separate (RPC)

procedure RPC_NS_Mgmt_Entry_Create(
  Entry_Name_Syntax : in     DCE_Base.NS_Syntax_Type;
  Entry_Name        : in     NS_Entry_Name_Type;
  Status            :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_ns_mgmt_entry_create(
              entry_name_syntax : DCE_Base.NS_Syntax_Type;
              entry_name        : NS_Entry_Name_Type;
              status            : System.Address);
  pragma INTERFACE (C, rpc_ns_mgmt_entry_create);

  Local_Status : DCE_Status.Status_Type;

begin
  rpc_ns_mgmt_entry_create(Entry_Name_Syntax, Entry_Name, Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_NS_Mgmt_Entry_Create;