I am learning how to use DB2 in rexx code and have coded below code but I am getting error RC(-1) while executing prepare statement. Looking at result I think their is no connectivity problem. There might be something wrong in my coding. Please help in removing error from code.
DO WHILE (SQLCODE=0)
CALL RUN_SQL1 'FETCH C1'
IF SQLCODE = 0 THEN
DO
SAY 'SUCCESSFULL'
END
END
CALL RUN_SQL1 'CLOSE C1' /* CLOSE CURSOR */
/* DISCONNECT FROM DB2 */
ADDRESS DSNREXX "DISCONNECT "
IF SQLCODE != 0 THEN CALL SQLCA
exit
SQLCA:
SAY ''
SAY '***************** SQL ERROR IN REBIND REXX **************'
SAY '* SQLCODE =' SQLCODE
SAY '* SQLSTMT =' SQL_STMT
SAY '* SQLWARN =' SQLWARN.0','SQLWARN.1','SQLWARN.2',',
||SQLWARN.3','SQLWARN.4','SQLWARN.5',',
||SQLWARN.6','SQLWARN.7','SQLWARN.8',',
||SQLWARN.9','SQLWARN.10
SAY '* SQLERRD =' SQLERRD.1','SQLERRD.2','SQLERRD.3',',
||SQLERRD.4','SQLERRD.5','SQLERRD.6
SAY '* SQLERRP =' SQLERRP
SAY '* SQLERRMC =' SQLERRMC
SAY '* SQLSTATE =' SQLSTATE
SAY '***********************************************************'
SAY ''
RETURN
RUN_SQL1:
SQL_STMT = ARG(1)
ADDRESS DSNREXX "EXECSQL" SQL_STMT
IF SQLCODE != 0 & SQLCODE != 100 THEN CALL SQLCA
Thanks for your suggestion. I applied it and it worked fine (giving RC=0 after executing the rexx). But how can we view the output of the query mentioned in the code. Please help.