separate (RPC) procedure RPC_Mgmt_Inq_Stats( Binding_Handle : in RPC_Binding_Handle_Type; Statistics : out RPC_Statistics_Vector_Type; Status : out DCE_Status.Status_Type) is -- **************************************************************************** procedure rpc_mgmt_inq_stats( binding_handle : RPC_Binding_Handle_Type; stats_vector : System.Address; status : System.Address); pragma INTERFACE (C, rpc_mgmt_inq_stats); Local_SVect : RPC_Statistics_Vector_Type; Local_Status : DCE_Status.Status_Type; begin rpc_mgmt_inq_stats(Binding_Handle, Local_SVect'ADDRESS, Local_Status'ADDRESS); Statistics := Local_SVect; Status := Local_Status; end RPC_Mgmt_Inq_Stats;