separate (RPC) procedure RPC_NS_Binding_Export( Entry_Name_Syntax : in DCE_Base.NS_Syntax_Type; Entry_Name : in NS_Entry_Name_Type; IF_Handle : in RPC_Interface_Handle_Type; Binding_Vector : in RPC_Binding_Vector_Type; Object_UUID_Vector : in UUID_Vector_Type; Status : out DCE_Status.Status_Type) is -- **************************************************************************** procedure rpc_ns_binding_export( entry_name_syntax : DCE_Base.NS_Syntax_Type; entry_name : NS_Entry_Name_Type; if_handle : RPC_Interface_Handle_Type; binding_vector : RPC_Binding_Vector_Type; object_uuid_vector : UUID_Vector_Type; status : System.Address); pragma INTERFACE (C, rpc_ns_binding_export); Local_Status : DCE_Status.Status_Type; begin rpc_ns_binding_export(Entry_Name_Syntax, Entry_Name, IF_Handle, Binding_Vector, Object_UUID_Vector, Local_Status'ADDRESS); Status := Local_Status; end RPC_NS_Binding_Export;