kansassho
New User
Joined: 31 Mar 2008 Posts: 14 Location: kansas city
|
|
|
|
Hi
I am trying to execute a SQL cursor thru REXX, I am getting a SQL code of -905 with following error
[img]-905
SQLCODE =-905
SQLERRMC =ASUTIME:000000000002:000000030000:SYSTEM PARAMETER
SQLERRP =DSNXRRC
SQLERRD =101,13172746,0,13227495,-472440830,12714050
SQLWARN = , , , , , , , , , ,
SQLSTATE=57014 [/img]
My code is
Code: |
SQLSTMT = "SELECT TRX_CODE",
"FROM MLQV1F0A.TRXHX",
"WHERE TRX_CODE IN ('TA ', 'MA ' ,'NA ', 'PA ','EA ','TC ')",
"AND TRX_DATE = 20090917"
/* "GROUP BY TRX_CODE" */
ADDRESS DSNREXX "EXECSQL DECLARE C1 CURSOR FOR S1"
say rc
If SQLCODE <> 0 Then Call SQLCA
ADDRESS DSNREXX "EXECSQL PREPARE S1 FROM :SQLSTMT"
say rc
If SQLCODE <> 0 Then Call SQLCA
ADDRESS DSNREXX "EXECSQL OPEN C1"
say rc
If SQLCODE <> 0 Then Call SQLCA
/* CHECKING SQL CODE */
j = 0
DO UNTIL(SQLCODE \=0)
"EXECSQL FETCH C1 USING DESCRIPTOR :OUTSQLDA"
IF(SQLCODE = 0) THEN DO
j = j + 1
LINE1 = ''
LINE2 = ''
LINE1 =LINE1 OUTSQLDA.1.SQLDATA
SAY LINE1 LINE2
END
ELSE
do
SAY SQLCODE
Call SQLCA
END
END
say ' total number :' j |
However, if I executed the same query thru Online Spufi, it gets completed without error.
Now my question is there any other way to execute the query in REXX only, to get the the above query executed. |
|