separate (RPC) procedure RPC_Network_Inq_Protseqs( Protseq_Vector : out RPC_Protseq_Vector_Type; Status : out DCE_Status.Status_Type) is -- **************************************************************************** procedure rpc_network_inq_protseqs( protseq_vector : System.Address; status : System.Address); pragma INTERFACE (C, rpc_network_inq_protseqs); Local_Vector : RPC_Protseq_Vector_Type; Local_Status : DCE_Status.Status_Type; begin rpc_network_inq_protseqs(Local_Vector'ADDRESS, Local_Status'ADDRESS); Protseq_Vector := Local_Vector; Status := Local_Status; end RPC_Network_Inq_Protseqs;