separate (RPC)

procedure RPC_NS_Mgmt_Binding_Unexport(
  Entry_Name_Syntax    : in     DCE_Base.NS_Syntax_Type;
  Entry_Name           : in     NS_Entry_Name_Type;
  Interface_ID         : in     RPC_Interface_Id_Type;
  Version_Option       : in     DCE_Base.Version_Option_Type;
  Object_UUID_Vector   : in     UUID_Vector_Type;
  Status               :    out DCE_Status.Status_Type;
  Use_NULL_IF_Id       : in     boolean := FALSE) is
-- ****************************************************************************

  procedure rpc_ns_mgmt_binding_unexport(
              entry_name_syntax : DCE_Base.NS_Syntax_Type;
              entry_name        : NS_Entry_Name_Type;
	      if_ident          : System.Address;
	      vers_option       : DCE_Base.Version_Option_Type;
	      uuid_vector       : UUID_Vector_Type;
              status            : System.Address);
  pragma INTERFACE (C, rpc_ns_mgmt_binding_unexport);

  Local_IF_Addr : System.Address := Interface_ID'ADDRESS;
  Local_Status  : DCE_Status.Status_Type;

begin
  if Use_NULL_IF_Id then
    Local_IF_Addr := System.NULL_ADDRESS;
  end if;
  rpc_ns_mgmt_binding_unexport(Entry_Name_Syntax, Entry_Name,
                               Local_IF_Addr, Version_Option,
			       Object_UUID_Vector, Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_NS_Mgmt_Binding_Unexport;