separate (RPC)

procedure RPC_NS_Profile_Delete(
  Profile_Name_Syntax : in     DCE_Base.NS_Syntax_Type;
  Profile_Name        : in     NS_Profile_Name_Type;
  Status              :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_ns_profile_delete(
              profile_name_syntax : DCE_Base.NS_Syntax_Type;
              profile_name        : NS_Profile_Name_Type;
              status              : System.Address);
  pragma INTERFACE (C, rpc_ns_profile_delete);
  
  Local_Status : DCE_Status.Status_Type;

begin
  rpc_ns_profile_delete(Profile_Name_Syntax, Profile_Name, Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_NS_Profile_Delete;