separate (RPC)

procedure RPC_NS_Profile_Elt_Remove(
  Profile_Name_Syntax : in     DCE_Base.NS_Syntax_Type;
  Profile_Name        : in     NS_Profile_Name_Type;
  Interface_ID        : in     RPC_Interface_ID_Type;
  Member_Name_Syntax  : in     DCE_Base.NS_Syntax_Type;
  Member_Name         : in     NS_Member_Name_Type;
  Status              :    out DCE_Status.Status_Type;
  Use_Default_Element : in     boolean := FALSE) is
-- ****************************************************************************

  procedure rpc_ns_profile_elt_remove(
              profile_name_syntax : DCE_Base.NS_Syntax_Type;
              profile_name        : NS_Profile_Name_Type;
              if_id               : System.Address;
              member_name_syntax  : DCE_Base.NS_Syntax_Type;
              member_name         : NS_Member_Name_Type;
              status              : System.Address);
  pragma INTERFACE (C, rpc_ns_profile_elt_remove);
 
  Local_IF_Id_Addr : System.Address := Interface_ID'ADDRESS;
  Local_Status     : DCE_Status.Status_Type;

begin
  if Use_Default_Element then
    Local_IF_Id_Addr := System.NULL_ADDRESS;
  end if;
  rpc_ns_profile_elt_remove(Profile_Name_Syntax, Profile_Name,
                            Local_IF_Id_Addr'ADDRESS,
                            Member_Name_Syntax, Member_Name,
                            Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_NS_Profile_Elt_Remove;