separate (RPC)

function RPC_Network_Is_Protseq_Valid(
  Protocol_Seq : in Protocol_Sequence_Type;
  Status       : in DCE_Status.Status_Type
  ) return DCE_Base.boolean32 is
-- ****************************************************************************

  function rpc_network_is_protseq_valid(
              protseq : Protocol_Sequence_Type;
              status  : System.Address
              ) return DCE_Base.boolean32;
  pragma INTERFACE (C, rpc_network_is_protseq_valid);

begin
  return ( rpc_network_is_protseq_valid(Protocol_Seq, Status'ADDRESS) );
end RPC_Network_Is_Protseq_Valid;