Yes it works when using the CAST function:
$ diff call.function.pl~ call.function.pl
76c76
< $dbh->prepare(qq{SELECT DB2INST1.FUNC_JUST_RETURN_IT(?) FROM SYS
+IBM.SYSDUMMY1});
---
> $dbh->prepare(qq{SELECT DB2INST1.FUNC_JUST_RETURN_IT(CAST(? AS I
+NT)) FROM SYSIBM.SYSDUMMY1});
$ /usr/bin/perl -w call.function.pl
ok 1 - Expect 123456 returned
ok 2 - Expect 123456 returned
1..2
Thank you very much.
--
No matter how great and destructive your problems may seem now, remember, you've probably only seen the tip of them. [1]
|