anchor.diff:      list_to_binary([
           byte4(op_val(op_transaction)),
           byte4(DbHandle),
  -        byte4(length(Tpb)), Tpb, pad4(Tpb)]).
  +        list_to_xdr_bytes(Tpb)]).
   
   %%% allocate statement
   op_allocate_statement(DbHandle) ->
  
positive.code: 
  %%% prepare statement
  op_prepare_statement(TransHandle, StmtHandle, Sql) ->
      Head = list_to_binary([
          byte4(op_val(op_prepare_statement)),
          byte4(TransHandle),
          byte4(StmtHandle),
          byte4(3),
          byte4(size(Sql))]),
      DescItems = <<
          0,0,0,14,     %% length of bellow bytes
          21,     %% isc_info_sql_stmt_type
          4,      %% isc_info_sql_select
          7,      %% isc_info_sql_describe_vars
  
negative.code:         3 -> [0]
      end.
  
  list_to_xdr_string(L) ->
      lists:flatten([byte4(length(L)), L, pad4(L)]).
  
  list_to_xdr_bytes(L) ->
      list_to_xdr_string(L).
  
  uid(Host, Username) ->
      Data = lists:flatten([
          1,  %% CNCT_user
  