anchor.diff:          4,  %% CNCT_host
           length(Host),
           Host]),
  -    [byte4(length(Data)), Data].
  +    list_to_xdr_bytes(Data).
   
   %%% create op_connect binary
   op_connect(Host, Username, _Password, Database) ->
  
positive.code:         54, 4, byte4(1, little),        %% isc_dpb_overwrite = 54
          4, 4, byte4(PageSize, little)   %% isc_dpb_page_size = 4
      ]),
      Buf = lists:flatten([
          byte4(op_val(op_create)),
          byte4(0),
          byte4(length(Database)), Database,
          byte4(length(Dpb)), Dpb]),
      list_to_binary([Buf, pad4(Buf)]).
  
  
  %%% begin transaction
  
negative.code:         byte4(op_val(op_attach)),
          byte4(3),  %% CONNECT_VERSION
          byte4(1),  %% arch_generic,
          list_to_xdr_string(Database),
          byte4(1),  %% Count of acceptable protocols (VERSION 10 only)
          uid(Host, Username)],
      list_to_binary([Buf, Protocols]).
  
  %%% create op_attach binary
  op_attach(Username, Password, Database) ->
  