separate (RPC)

procedure RPC_Binding_Server_from_Client(
  Client_Binding : in     RPC_Binding_Handle_Type;
  Server_Binding :    out RPC_Binding_Handle_Type;
  Status         :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_binding_server_from_client(
              client_binding : RPC_Binding_Handle_Type;
              server_binding : System.Address;
              status         : System.Address);
  pragma INTERFACE (C, rpc_binding_server_from_client);

  Local_Server : RPC_Binding_Handle_Type;
  Local_Status : DCE_Status.Status_Type;

begin
  rpc_binding_server_from_client(Client_Binding, Local_Server'ADDRESS,
                                 Local_Status'ADDRESS);
  Server_Binding := Local_Server;
  Status := Local_Status;
end RPC_Binding_Server_from_Client;