separate (RPC)

procedure RPC_NS_Profile_Elt_Inq_Begin(
  Profile_Name_Syntax : in     DCE_Base.NS_Syntax_Type;
  Profile_Name        : in     NS_Profile_Name_Type;
  Inquiry_Type        : in     DCE_Base.NS_Profile_Inquiry_Type;
  Interface_ID        : in     RPC_Interface_ID_Type;
  Version_Option      : in     DCE_Base.Version_Option_Type;
  Member_Name_Syntax  : in     DCE_Base.NS_Syntax_Type;
  Member_Name         : in     NS_Member_Name_Type;
  Inquiry_Context     :    out RPC_NS_Handle_Type;
  Status              :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_ns_profile_inq_begin(
              profile_name_syntax : DCE_Base.NS_Syntax_Type;
              profile_name        : NS_Profile_Name_Type;
              inquiry_type        : DCE_Base.NS_Profile_Inquiry_Type;
              if_id               : System.Address;
              version_option      : DCE_Base.Version_Option_Type;
              member_name_syntax  : DCE_Base.NS_Syntax_Type;
              member_name         : NS_Member_Name_Type;
              inquiry_context     : System.Address;
              status              : System.Address);
  pragma INTERFACE (C, rpc_ns_profile_inq_begin);

  Local_Context : RPC_NS_Handle_Type;
  Local_Status  : DCE_Status.Status_Type;

begin
  rpc_ns_profile_inq_begin(Profile_Name_Syntax, Profile_Name,
                           Inquiry_Type,
                           Interface_ID'ADDRESS,
			   Version_Option,
                           Member_Name_Syntax, Member_Name,
                           Local_Context'ADDRESS,
                           Local_Status'ADDRESS);
  Inquiry_Context := Local_Context;
  Status := Local_Status;
end RPC_NS_Profile_Elt_Inq_Begin;