Re: SQL CLI Parameter Value Issue

Hello Arturo,

Can you post the CREATE PROCEDURE statement you used? I can't reproduce the problem you described. I tried your code, but I get all 9 digits without any errors.

Unfortunately, I had to fill in a lot of the details myself to try it out, since you didn't include everything in the message you posted, so I don't know if I'm comparing apples to apples -- and that's why I wanted the CREATE PROCEDURE statement that you used.

Also... have you considered using SQLBindParam() instead of SQLBindParameter()? I've always used SQLBindPAram() in the past, and it works nicely for me. Of course, it doesn't allow output parms, so that'd be one reason why you should use SQLBindParameter() instead.


Arturo_Duarte@xxxxxxxxxxxxxxx wrote:

Greetings.
I am calling a Stored Procedure passing four character parameters. The first parameter is of 9 bytes. When passing the value of '000001204', the Stored Procedure shows the value '000001200'. Here is my CLI code:
D testNum S 9a
D Frm_TXYear S 4a
D ReqSystem S 6a
D Too_TXYear S 4a inz(*blanks) Optional
D LenDFlag S 4a inz(*blanks) Optional
D Service_ID S 6a inz(*blanks) Optional
/free

EvalR testNum = '000000000' + %Trim('1204') ;
Eval Frm_TXYear = '2007' ;
Eval ReqSystem = 'SPEECH' ;

SQLAllocEnv(env); SQLAllocConnect(env: conn);

SQLSetConnectAttrI( conn
: SQL_ATTR_DBC_SYS_NAMING
: SQL_TRUE
: %size(SQLINTEGER) );

SQLConnect( conn
: '*LOCAL'
: SQL_NTS
: *NULL
: SQL_NTS
: *NULL
: SQL_NTS );

SQLAllocStmt( conn : stmt );
SQLPrepare(stmt :'Call YESTMNT1R(?,?,?,?,?,?)' :SQL_NTS) ; SQLBindParameter(stmt :1 :SQL_PARAM_INPUT
:SQL_CHAR
:SQL_CHAR
:9 :0
:%Addr(testNum)
:%Size(testNum)
:%len(testNum)); SQLBindParameter(stmt :2 :SQL_PARAM_INPUT
:SQL_CHAR :SQL_CHAR :4 :0 :%Addr(Frm_TXYear)
:%Size(Frm_TXYear) :%len(Frm_TXYear));

SQLBindParameter(stmt :3 :SQL_PARAM_INPUT
:SQL_CHAR :SQL_CHAR :6 :0 :%Addr(ReqSystem)
:%Size(ReqSystem) :%len(ReqSystem));

SQLBindParameter(stmt :4 :SQL_PARAM_INPUT
:SQL_CHAR :SQL_CHAR :4 :0 :%Addr(Too_TXYear)
:%Size(Too_TXYear) :%len(Too_TXYear));

SQLBindParameter(stmt :5 :SQL_PARAM_INPUT
:SQL_CHAR :SQL_CHAR :4 :0 :%Addr(LenDFlag)
:%Size(LenDFlag) :%len(LenDFlag));

SQLBindParameter(stmt :6 :SQL_PARAM_INPUT
:SQL_CHAR :SQL_CHAR :6 :0 :%Addr(Service_ID)
:%Size(Service_ID) :%len(Service_ID));

SQLExecute(stmt); ...

The prototype for the called procedure is D Yestmnt1R PI
D itestNum 9a Const
D**
D iTaxYear 4a Const
D iReqSystem 6a Const
D iTo_TaxYr 4a Const
D iLendFlag 4a Const
D iService_ID 6a Const

Why is the value of testNum passing as '000001200' instead of '000001204'?

Thank you
Art Duarte

======================================================================

Confidentiality Notice: The information contained in and transmitted with this communication is strictly confidential, is intended only for the use of the intended recipient, and is the property of Countrywide Financial Corporation or its affiliates and subsidiaries. If you are not the intended recipient, you are hereby notified that any use of the information contained in or transmitted with the communication or dissemination, distribution, or copying of this communication is strictly prohibited by law. If you have received this communication in error, please immediately return this communication to the sender and delete the original message and any copy of it in your possession.

======================================================================