separate (RPC)

procedure RPC_Mgmt_Inq_IF_Ids(
  Binding_Handle : in     RPC_Binding_Handle_Type;
  IF_Id_Vector   :    out RPC_Interface_Id_Vector_Type;
  Status         :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_mgmt_inq_if_ids(
              binding_handle : RPC_Binding_Handle_Type;
              if_id_vector   : System.Address;
              status         : System.Address);
  pragma INTERFACE (C, rpc_mgmt_inq_if_ids);

  Local_Status      : DCE_Status.Status_Type;
  Local_Vector      : RPC_Interface_Id_Vector_Type;
  
begin
  rpc_mgmt_inq_if_ids(Binding_Handle,
		      Local_Vector'ADDRESS, Local_Status'ADDRESS);
  IF_Id_Vector := Local_Vector;
  Status := Local_Status;
end RPC_Mgmt_Inq_IF_Ids;