Select Code to Download

use Data::Dumper;
use DBI;
...
my $rv = $sth->execute();
print "$rv\n";

DBD::ODBC::st execute failed: [IBM][Client Access Express ODBC Driver 
+(32-bit)][DB2/400 SQL]Data truncated. (SQL-01004)(DBD: st_execute/SQL
+Execute err=-1) at a.pl line 33.
INSERT into middbexp.marmtest (MIDID, MIDDELETIONFLAG, UMREN, MEINH, U
+MREZ, LAENG, BREIT, NOEHE, VOLUM, VOLEH, BRGEW, GEWEI, MESUB, SYSTEM_
+ID, LEGACY_ID, MAKT_MAKTX_PL, MAS_IADSC, DUP_CHK, MAS_IAPACS, MARM_ME
+INS, MAS_IANPAL) values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,
+ ?, ?, ?, ?, ?, ?)
...
20, MAS_IANPAL, 00337PAL