This can work in some cases, but it's a major kludge in my opinion. I can't believe MVS'ers have lived with this for 40 or so years.
Can I assume that there is no way to have "conditional" DD statements. Something like: // IF COMPILE=CICS //SYSLIB DD DISP=SHR,DSN=CICS.SDFHCOB // ENDIF Simple in VSE. In z/OS? No way that I can see. Argh! -- Frank Swarbrick Applications Architect - Mainframe Applications Development FirstBank Data Corporation Lakewood, CO USA P: 303-235-1403 F: 303-235-2075 On 6/25/2009 at 5:30 AM, in message <listserv%200906250630370840.0...@bama.ua.edu>, Roland Schiradin <rol...@schiradin.de> wrote: > Not with YES/NO but like this > Note: IEFBR14 always set RC0 > > // SET STEP1=1 > // SET STEP2=0 > //* > //TEST1 EXEC PGM=IEFBR14 > //* > //IF1 IF TEST1.RC = &STEP1 THEN > // ELSE > //DELETE EXEC PGM=IDCAMS > //SYSPRINT DD SYSOUT=* > //SYSIN DD * > TEST > //IFEND1 ENDIF > //* > //TEST2 EXEC PGM=IEFBR14 > //* > //IF1 IF TEST2.RC = &STEP2 THEN > // ELSE > //DEFINE EXEC PGM=IDCAMS > //SYSPRINT DD SYSOUT=* > //SYSIN DD * > DEFINE ALIAS NAME () - > RELATE () > /* > //IFEND2 ENDIF > // > > > Roland > > >>All, >> >> >>is it possible to control the steps to be executed by a IF-Statement, i. >>e. with a variable? >> >>Like this: >> >>// SET SWITCH1=YES >>// SET SWITCH2=NO >>//* >>//* EXECUTE ONLY IF SWITCH1 IS SET TO YES >>//IF SWITCH1=YES >>//STEP01 EXEC PGM=IEBGENER >>//... more stuff >>//ENDIF >>//* >>//* EXECUTE ONLY IF SWITCH2 IS SET TO YES >>//IF SWITCH2=YES >>//STEP02 EXEC PGM=IEBGENER >>//... more stuff >>//ENDIF >>//* >> >> >>If I've understood the JCL docs corretly there are only some predefined >>variables (like "RC") that can be checked... I wonder if there is a way... >> >> >>Thanks.... >> >>Bye, >>Michael >> >>---------------------------------------------------------------------- >>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 > > ---------------------------------------------------------------------- > 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 >>> The information contained in this electronic communication and any document attached hereto or transmitted herewith is confidential and intended for the exclusive use of the individual or entity named above. If the reader of this message is not the intended recipient or the employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any examination, use, dissemination, distribution or copying of this communication or any part thereof is strictly prohibited. If you have received this communication in error, please immediately notify the sender by reply e-mail and destroy this communication. Thank you. ---------------------------------------------------------------------- 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
