I am tryin to select one records(SQL) using Rexx.Here is
the code
ADDRESS DSNREXX "EXECSQL FETCH C1 USING
DESCRIPTOR :TBSQLDA"
IF SQLCODE = 0 THEN
DO
LINE
= ''
DO I = 1 TO
TBSQLDA.SQLD
LINE = LINE
TBSQLDA.I.SQLDATA
END
I
SAY
LINE
END
ADDRESS DSNREXX "EXECSQL CLOSE
C1"
ADDRESS
DSNREXX 'DISCONNECT'
i am getting the following errors and also i dont know wr
to see the ouput.Can anyone please hlep me in solving this?
28 +++ ADDRESS
DSNREXX 'DISCONNECT'
Error running DB2REXX, line 28: Incomplete
DO/SELECT/IF
Answers were Sorted based on User's Feedback
Answer / jagdish
DSNREXX 'DISCONNECT'
insist of this wirte
ADDRESS DSNREXX 'DISCONNECT'
AND CHECK IT OUT
Is This Answer Correct ? | 2 Yes | 1 No |
Answer / jyotiprakash8
can any one send me website on which i can get REXX Book
with some Programing Example...
Thanks in advance
Jyoti Prakash
Is This Answer Correct ? | 0 Yes | 1 No |
What are the functions available in rexx?
What are various loop types supported by rexx?
is oorexx compatible with ibm object rexx?
I want to remove a duplicates form a given input field using rexx program. please Any one help me out to solve this ... Thanks in Advance.
what would I use uni-rexx for?
i'm getting error while editing macro, its not even entering into the macro, getting error like 31 *-* "EDIT DATASET('"DSN"("MEM")') MACRO("CHGLINE")" +++ RC(-3) +++ ? any idea why?
Can anyone provide me the source code for LOC(lines of code) counter written in REXX language which can run on IBM mainframe z/OS V1R4. The LOC counter should be able to count the comments,lines of code,blank lines in a COBOL program and JCL's
how to access data held on the jes spool?
why is there no os/2 (ecs) port of oorexx?
what is uni-rexx?
I have one input file and some 40 tables, I want to read input file and compare the input file value with the table value if it is present then we have to update with new value, this should be repeated for all 40 tables and we are reading only one input file, for this is there any REXX program or job or routine to accomplish above requirement. components of the requirements; 1. One input file 2. 40 DB2 tables 3. we have to read from the input file and compare with table value, if present then update with new value (this should be recurssive for all 40 tables for every record of input file). 4. quick help is appreciated.
I am tryin to select one records(SQL) using Rexx.Here is the code ADDRESS DSNREXX "EXECSQL FETCH C1 USING DESCRIPTOR :TBSQLDA" IF SQLCODE = 0 THEN DO LINE = '' DO I = 1 TO TBSQLDA.SQLD LINE = LINE TBSQLDA.I.SQLDATA END I SAY LINE END ADDRESS DSNREXX "EXECSQL CLOSE C1" ADDRESS DSNREXX 'DISCONNECT' i am getting the following errors and also i dont know wr to see the ouput.Can anyone please hlep me in solving this? 28 +++ ADDRESS DSNREXX 'DISCONNECT' Error running DB2REXX, line 28: Incomplete DO/SELECT/IF