separate (RPC)

procedure RPC_Server_Use_All_Protseqs_IF(
  Max_Call_Requests : in     DCE_Base.unsigned32;
  Interface_Handle  : in     RPC_Interface_Handle_Type;
  Status            :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_server_use_all_protseqs_if(
              max_call_requests : DCE_Base.unsigned32;
              if_handle         : RPC_Interface_Handle_Type;
              status            : System.Address);
  pragma INTERFACE (C, rpc_server_use_all_protseqs_if);

  Local_Status : DCE_Status.Status_Type;

begin
  rpc_server_use_all_protseqs_if(Max_Call_Requests,
                                 Interface_Handle,
                                 Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_Server_Use_All_Protseqs_IF;