If you want the original JCL COND= parms to fix this (instead of the 'JCL for Dummies' IF THEN ELSE), let me know. Cheers, CP
On 21/02/2017 15:40, George, William@FTB wrote: > Thanks for the suggestions. > Yes, I definitely, and easily, could do this with a REXX however.... :-( > > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of scott Ford > Sent: Saturday, February 18, 2017 8:15 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: JCL IF Condition - I'm Missing Something > > Gil, > > Yeah, I hear you, it should be simpler to perform tasks. > > > > On Sat, Feb 18, 2017 at 11:12 AM Paul Gilmartin < > 0000000433f07816-dmarc-requ...@listserv.ua.edu> wrote: > >> On Fri, 17 Feb 2017 21:44:01 -0500, scott Ford wrote: >> >>> >> >>> Heres what I did: >> >>> >> >>> //BUILDLIB JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8, >> >>> // NOTIFY=&SYSUID,REGION=4096K >> >>> //*------------------------------------------* >> >>> //* BUILD IDF-TSS PRODUCT LIBRARIES * >> >>> //*------------------------------------------* >> >>> //MYLIBS JCLLIB ORDER=IDF.PRODCTL.JCLLIB >> >>> //MYSETS INCLUDE MEMBER=JCLSETS >> >>> //*-------------------------------------------------------* >> >>> //* REXX INITIAL STEP TO SET RC FOR IDF * >> >>> //*-------------------------------------------------------* >> >>> //STEP1 EXEC PGM=IRXJCL,PARM='SETRC BUILD,COPY' >> >>> //SYSEXEC DD DSN=IDF.PRODCLST.LIBRARY,DISP=SHR >> >>> //SYSTSPRT DD SYSOUT=* >> >>> //REXXLOG DD SYSOUT=* >> >>> //SYSPRINT DD SYSOUT=* >> >>> //SYSTSIN DD DUMMY >> >>> //IF1 IF (STEP1.RC = 4) THEN >> >>> //MYBUILD INCLUDE MEMBER=LIBUILD >> >>> //ENDIF1 ENDIF >> >>> //IF1 IF (STEP2.RC = 0) THEN >> >>> //MYCPY INCLUDE MEMBER=CPYLIBS >> >>> //ENDIF1 ENDIF >> >>> >> >> Yes, but be aware that: >> >> >> >> o ENQues for data set names mentioned in either MYBUILD or MYCPY >> >> will be issued, regardless that only one of those steps will be executed. >> >> >> >> o JES3 setup adds constraints. For example if the same data set is >> >> mentioned with DISP=(,CATLG) in both MYBUILD and MYCPY JES3 >> >> setup will report a conflict because it assumes all steps will be >> >> executed regardless of IF or COND. >> >> >> >> I hate JCL! >> >> >> >> -- gil >> >> >> >> ---------------------------------------------------------------------- >> >> For IBM-MAIN subscribe / signoff / archive access instructions, >> >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> >> -- > Scott Ford > IDMWORKS > z/OS Development > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ______________________________________________________________________ > CONFIDENTIALITY NOTICE: This email from the State of California is for the > sole use of the intended recipient and may contain confidential and > privileged information. Any unauthorized review or use, including disclosure > or distribution, is prohibited. If you are not the intended recipient, please > contact the sender and destroy all copies of this email. > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
