separate (RPC)

procedure RPC_Mgmt_Inq_Dflt_Protect_Level(
  Authn_Service : in     DCE_Base.RPC_Authentication_Service_Type;
  Protect_Level :    out DCE_Base.RPC_Protect_Level_Type;
  Status        :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_mgmt_inq_dflt_protect_level(
              authn_svc     : DCE_Base.RPC_Authentication_Service_Type;
              protect_level : System.Address;
              status        : System.Address);
  pragma INTERFACE (C, rpc_mgmt_inq_dflt_protect_level);

  Local_Protect : DCE_Base.RPC_Protect_Level_Type;
  Local_Status  : DCE_Status.Status_Type;

begin
  rpc_mgmt_inq_dflt_protect_level(Authn_Service,
                                  Local_Protect'ADDRESS,
                                  Local_Status'ADDRESS);
  Protect_Level := Local_Protect;
  Status := Local_Status;
end RPC_Mgmt_Inq_Dflt_Protect_Level;