$ diff call.function.pl~ call.function.pl
76c76
<     $dbh->prepare(qq{SELECT DB2INST1.FUNC_JUST_RETURN_IT(?) FROM SYSIBM.SYSDUMMY1});
---
>     $dbh->prepare(qq{SELECT DB2INST1.FUNC_JUST_RETURN_IT(CAST(? AS INT)) FROM SYSIBM.SYSDUMMY1});
$ /usr/bin/perl -w call.function.pl
ok 1 - Expect 123456 returned
ok 2 - Expect 123456 returned
1..2