Code: |
//EZTRUN EXEC PGM=EZTPA00 //SYSPRINT DD SYSOUT=* //SYSABEND DD SYSOUT=* //SYSOUT DD SYSOUT=* //EZTVFM DD UNIT=SYSDA,SPACE=(CYL,(25,25)) //EZTMAC DD DSN=YOUR.MACLIB,DISP=SHR //INFILE DD DSN=YOUR.INPUT.FILE,DISP=SHR //SYSIN DD * PARM DB2SSID('DSP2') * FILE INFILE INFILE-REC 01 80 A SQL INCLUDE LOCATION W FROM YOURDB2TABLE1 * SQL DECLARE YOURCSR CURSOR FOR + SELECT COLUMN1, + COLUMN2 + FROM YOURDB2TABLE1 + WHERE YOUR CONDITION * JOB INPUT (INFILE) START(INIT-RTN) FINISH (LAST-RTN) SQL OPEN YOURCSR IF SQLCODE NE 0 AND SQLCODE NE 100 DISPLAY ' SQL CODE : ' SQLCODE END-IF * * SQL FETCH YOURCSR + INTO :WS-COL1, + :WS-COL2 * * IF SQLCODE NE 0 AND SQLCODE NE 100 DISPLAY ' SQL CODE : ' SQLCODE END-IF * SQL CLOSE YOURCSR * * IF SQLCODE NE 0 AND SQLCODE NE 100 DISPLAY ' SQL CODE : ' SQLCODE END-IF * INIT-RTN. PROC DISPLAY 'Easytrieve DB2 Process Started' END-PROC * LAST-RTN. PROC DISPLAY 'Easytrieve DB2 Process Ended' END-PROC /* // |
Code: |
//******************************************************************** //* Jcl to compile, Link edit and run the Easytrieve program * //******************************************************************** //* //******************************************************************** //* Compile the Easytrieve program * //******************************************************************** //EZTCOMPL EXEC PGM=EZTPA00 //EZTVFM DD UNIT=SYSDA,SPACE=(CYL,(25,25)) //SYSPRINT DD SYSOUT=* //SYSABEND DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSLIN DD DSN=&&SYSLIN, // UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE),DISP=(,PASS) //SYSIN DD * PARM LINK(UREZTPGM R) Your Easytrieve code goes here /* //* //********************************************************************* //* Link Edit the Easytrieve program * //********************************************************************* //EZTLINK EXEC PGM=IEWL //SYSPRINT DD SYSOUT=* //SYSLMOD DD DSN=YOUR.EZT.LOADLIB,DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,5)) //SYSLIN DD DSN=&&SYSLIN,DISP=(OLD,DELETE,DELETE) //* //********************************************************************* //* Run the Easytrieve program * //********************************************************************* //EZTRUN EXEC PGM=UREZTPGM //STEPLIB DD DSN=YOUR.EZT.LOADLIB,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSABEND DD SYSOUT=* //SYSOUT DD SYSOUT=* // |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours