separate (RPC)

procedure RPC_Server_Use_Protseq_IF(
  Protocol_Seq      : in     Protocol_Sequence_Type;
  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_protseqs_if(
              protseq           : Protocol_Sequence_Type;
              max_call_requests : DCE_Base.unsigned32;
              if_handle         : RPC_Interface_Handle_Type;
              status            : System.Address);
  pragma INTERFACE (C, rpc_server_use_protseqs_if);

  Local_Status : DCE_Status.Status_Type;

begin
  rpc_server_use_protseqs_if(Protocol_Seq,
                             Max_Call_Requests,
                             Interface_Handle,
                             Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_Server_Use_Protseq_IF;