Select Code to Download

my $row_count = $upd_idx1->execute($uuid, $doc_name, $doc_off, $doc_le
+n, $comp_off, $comp_len);

...
bind :p6 <== '86861' (attribs: <no attribs>)
  bind :p6: db2_param_type=1, db2_c_type=1, db2_type=0, PRECISION=4, S
+CALE=0, Maxlen=0, (null)
    !! ERROR: '-99999' '[IBM][CLI Driver] CLI0112E  Error in assignmen
+t. SQLSTATE=22005' (err#1)

--------------------------------------------------

$upd_idx1->bind_param(1, $uuid)                  or die "Bind failed f
+or UUID: $dbh->errstr";
$upd_idx1->bind_param(2, $doc_name)              or die "Bind failed f
+or doc_name: $dbh->errstr";
...
    >> execute     DISPATCH (DBI::st=HASH(0x3036ca5c) rc1/1 @1 g0 ima1
+041 pid#2338852)
    -> execute for DBD::DB2::st (DBI::st=HASH(0x3036ca5c)~0x3036c924) 
+thr#3002ee58
    !! ERROR: '-99999' '[IBM][CLI Driver] CLI0112E  Error in assignmen
+t. SQLSTATE=22005' (err#1)

--------------------------------------------------

my $row_count = $upd_idx1->execute($uuid, $doc_name, 0, 17555, 0, 8686
+1);

...
bind :p6 <== '86861' (attribs: <no attribs>)
  bind :p6: db2_param_type=1, db2_c_type=1, db2_type=0, PRECISION=4, S
+CALE=0, Maxlen=0, (null)
    <- execute= 1

--------------------------------------------------

my $row_count = $upd_idx1->execute($uuid, $doc_name, eval{$doc_off}, e
+val{$doc_len}, eval{$comp_off}, eval{$comp_len});

...
bind :p6 <== '86861' (attribs: <no attribs>)
  bind :p6: db2_param_type=1, db2_c_type=1, db2_type=0, PRECISION=4, S
+CALE=0, Maxlen=0, (null)
    !! ERROR: '-99999' '[IBM][CLI Driver] CLI0112E  Error in assignmen
+t. SQLSTATE=22005' (err#1)