separate (RPC)

procedure RPC_Binding_Inq_Object(
  Binding_Handle    : in     RPC_Binding_Handle_Type;
  Object_UUID       :    out UUID_Type;
  Status            :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_binding_inq_object(
              binding_handle : RPC_Binding_Handle_Type;
              object_uuid    : System.Address;
              status         : System.Address);
  pragma INTERFACE (C, rpc_binding_inq_object);

  Local_UUID   : UUID_Type;
  Local_Status : DCE_Status.Status_Type;

begin
  rpc_binding_inq_object(Binding_Handle,
                         Local_UUID'ADDRESS,
                         Local_Status'ADDRESS);
  Status := Local_Status;
  Object_UUID := Local_UUID;
end RPC_Binding_Inq_Object;