> > Here is part of one of my more complex JCLs using a symbolic test. I run > specfic sections of the JCL depending on the need (is this a first run, a > rerun, a partial run...). I set the variables in the top of the job with 1 > or 0, then run a BR14 as the first step to set a CC (it seems you can't use > IF statements before the first program execution). I have used this kind of > structure in many types of jobs, and the symbolic can hold up to 4095, IIRC. > Let me know if you need more details. > Don
// SET DOFTP=1 <=== DO FTP STEPS? 1=Y, 0=N // SET DOESP=1 <=== CREATE TAPE? 1=Y, 0=N //* //STEP0 EXEC PGM=IEFBR14 //* //I$DOFTP IF &DOFTP=1 THEN //FTPXX EXEC PGM=FTP,REGION=4096K . . . //E$DOFTP ENDIF //* //I$DOESP IF &DOESP = 1 THEN //* //T$FTPI IF ((&DOFTP = 1 & FTPXX.RC = 0) | &DOFTP = 0) THEN //* //GENTAPE1 EXEC DCM0008 . . . //INIT EXEC PGM=IEHINITT . . . //* //T$INITI IF (INIT.RC = 0) THEN //* //NEXTPGM EXEC PGM=NEXTPGM . . . //* //T$ESPRI IF (NEXTPGM.RC = 0) THEN //* //TAPEMAP EXEC PGM=TAPEMAP . . . //T$ESPRE ENDIF //T$INITE ENDIF //T$FTPE ENDIF //* //E$DOESP ENDIF ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
