separate (RPC)

procedure RPC_Binding_Copy(
  Source_Binding : in     RPC_Binding_Handle_Type;
  Dest_Binding   :    out RPC_Binding_Handle_Type;
  Status         :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_binding_copy(
              source_binding_handle : RPC_Binding_Handle_Type;
              dest_binding_handle   : System.Address;
              status                : System.Address);
  pragma INTERFACE (C, rpc_binding_copy);

  Local_Status  : DCE_Status.Status_Type;
  Local_Binding : RPC_Binding_Handle_Type;

begin
  rpc_binding_copy(Source_Binding,
                   Local_Binding'ADDRESS,
                   Local_Status'ADDRESS);

  Dest_Binding := Local_Binding;
  Status := Local_Status;
end RPC_Binding_Copy;