How to call a AS/400 Stored Procedure with a BigDecimal Value?

Question

Hi,
Could you pls tell me how to call a stored procedure on the AS/400 which request an input value of packed decimal(10P 4) value.
I have tried to convert it to a BigDecimal in Java and call the stored procedure as follows but it gave me a decimal point error on the AS/400.
Could you pls show me where I'm wrong in the following code.
Thanks
Jan
========Java program to call AS/400 Stored procedure with setBigDecimal()===========
//Assign the value to String
string sBDVal = "30"
//Convert the String value to BigDecimal
BigDecimal bdAmt = new BigDecimal(sBDVal);
//Call Stored Procedure with parameters,
CallableStatement callSP = conn.prepareCall("{call OSCUPDLENS(?,?,?)}");
// Set in parm values
callSP.setString(1,"Value 1");
callSP.setBigDecimal(2,bdAmt);
callSP.setString(3,"");
// Register out parameter
callSP.registerOutParameter(3, Types.CHAR);
// Execute call to stored procedure
callSP.execute();
// Retrieve out parameters
sErrFlag = callSP.getString(3).trim();
========================Create Stored Procedure on AS/400===========================
c/EXEC SQL
c+ CREATE PROCEDURE TESTSPROC
c+ (IN VAL1 CHAR ( 8),
c+ IN BDAMT DEC (10, 4),
C+ INOUT ERR CHAR ( 1))
C+ LANGUAGE RPGLE NOT
C+ DETERMINISTIC NO SQL EXTERNAL NAME TESTSPROC PARAMETER STYLE
C+ GENERAL
c/END-EXEC
======RPG program on AS/400 to accept the BigDecimal value to a Packed decimal======
* Initialize the i/p parameter
DP#VAL1 S 8A
DP#AMT S 10P 4
DP#ERR S 1A
C*Input parameters
C *ENTRY        PLIST                          
C PARM P#VAL1
C PARM P#AMT
C PARM P#ERR

Answer 1

Could you pls show me where I'm wrong in the following codeI don't know, you're doing a lot of things I have never tried. But "decimal data error" most likely means that the stored procedure is expecting packed data and the driver is giving it zoned data, or vice versa. You could confirm that by dumping your variables inside your RPG. If that is your problem, you could work around it by redefining your BDAMT parameter as integer or string and reformatting it in the RPG.