Hi,
Is it possible read the result of each column in the physical file using RCVF?
Is it possible read the result of each column in the physical file using RCVF?
Code:
START: PGM DCL VAR(&PTYPE) TYPE(*CHAR) LEN(130) DCLF FILE(QTEMP/TSTTMP) RUNSQL SQL('DROP TABLE QTEMP/TSTTMP') COMMIT(*NONE) MONMSG MSGID(SQL0000) RUNSQL SQL('CREATE TABLE QTEMP/TSTTMP AS (SELECT DISTINCT IMORIG, IMREF, LELOPR, + ''test@test.com'' AS EMAIL FROM LIBTEST/TABLE WHERE TRIM(LESTAT) = + '''' AND OPDORD = ''250522'' AND LELOPR = LECTRL LIMIT 1) WITH DATA') + COMMIT(*NONE) NAMING(*SQL) MONMSG MSGID(SQL0000) READ: RCVF MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END1)) CHGVAR VAR(&PTYPE) VALUE('Type: ' || &IMORIG || ' Reference: ' || &IMREF || ' Email: + ' || &EMAIL ) END1: SNDUSRMSG MSG('THE END OF FILE IS REACHED') EXIT: ENDPGM
Comment