separate (RPC) procedure RPC_Server_Use_All_Protseqs( Max_Call_Requests : in DCE_Base.unsigned32; Status : out DCE_Status.Status_Type) is -- **************************************************************************** procedure rpc_server_use_all_protseqs( max_call_requests : DCE_Base.unsigned32; status : System.Address); pragma INTERFACE (C, rpc_server_use_all_protseqs); Local_Status : DCE_Status.Status_Type; begin rpc_server_use_all_protseqs(Max_Call_Requests, Local_Status'ADDRESS); Status := Local_Status; end RPC_Server_Use_All_Protseqs;