Re: conditional JCL - Reinvent the wheel?

2021-11-16 Thread Clem Clarke
It's about 50 years ago since I wrote Jol, the replacement or enhancement language for JCL. And it's my birthday, so I thought I might say a word or two. One of the reasons I wrote Jol was to incorporate PL/I style IF's into the language.  And to generally simply the whole JCL process. Now,

Re: conditional JCL - Reinvent the wheel?

2021-11-14 Thread Paul Gilmartin
On Sun, 14 Nov 2021 17:50:21 +, Robert Prins wrote: >The symbolic parameter is tested against a valid relational-expression >keyword, and I'm not using some "IF THIS= THEN" expression! > >Maybe someone from IBM will chip in to once and for all clarify this, >update the manual, either way, and

Re: conditional JCL - Reinvent the wheel?

2021-11-14 Thread Robert Prins
The symbolic parameter is tested against a valid relational-expression keyword, and I'm not using some "IF THIS= THEN" expression! Maybe someone from IBM will chip in to once and for all clarify this, update the manual, either way, and tell us who is wrong... Robert On Sun, 14 Nov 2021 at

Re: conditional JCL - Reinvent the wheel?

2021-11-14 Thread Paul Gilmartin
On Sun, 14 Nov 2021 10:19:12 +, Robert Prins wrote: > >> On Sat, 13 Nov 2021 13:54:15 -0600, Robert Prins wrote: >>> Replying via the website, so no context, apologies >>> (The upside of that was it got the timestamp right.) >>... >>> //SET LI=4095 (skip link) >>> //*SET LI=0 (link if

Re: conditional JCL - Reinvent the wheel?

2021-11-14 Thread Robert Prins
On 2021-11-13 21:05, Paul Gilmartin wrote: On Sat, 13 Nov 2021 13:54:15 -0600, Robert Prins wrote: Replying via the website, so no context, apologies Replying via the website, with context from clicking on the quotation mark at the upper left of the text composition box, no apologies. Use

Re: conditional JCL - Reinvent the wheel?

2021-11-13 Thread Paul Gilmartin
On Sat, 13 Nov 2021 13:54:15 -0600, Robert Prins wrote: >Replying via the website, so no context, apologies > Replying via the website, with context from clicking on the quotation mark at the upper left of the text composition box, no apologies. >Use "impossible to match" if-then logic, this is

Re: conditional JCL - Reinvent the wheel?

2021-11-13 Thread Robert Prins
Replying via the website, so no context, apologies Use "impossible to match" if-then logic, this is what I use in one particular job to just compile: //SET LI=4095 (skip link) //*SET LI=0 (link if compile is OK) //* //IFLINKIF RC <= 4 & RC >= THEN Robert -- Robert AH Prins

Re: conditional JCL - Reinvent the wheel?

2021-11-11 Thread Massimo Biancucci
//SYSPRINT DD SYSOUT=* > //SYSTSIN DD *,SYMBOLS=JCLONLY > /* > > > Thanks, > Kolusu > > > "IBM Mainframe Discussion List" wrote on > 11/10/2021 05:29:37 AM: > > > From: "Colin Paice" > > To: IBM-MAIN@LISTSERV.UA.EDU > > Date: 11/10

Re: conditional JCL - Reinvent the wheel?

2021-11-11 Thread Seymour J Metz
-dmarc-requ...@listserv.ua.edu] Sent: Thursday, November 11, 2021 1:56 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: conditional JCL - Reinvent the wheel? Billy's example explains it very well. A) "IF" cannot be the first step, thus his IEFBR14 call B) "IF" only allows num

Re: conditional JCL - Reinvent the wheel?

2021-11-11 Thread Paul Gilmartin
On Thu, 11 Nov 2021 12:56:21 -0600, Wendell Lovewell wrote: >Billy's example explains it very well. > ( that apparently refers to: // SET RUNTEST1=0 ) >A) "IF" cannot be the first step, thus his IEFBR14 call >B) "IF" only allows numerics. // IF (="YES") will not work like you >want,

Re: conditional JCL - Reinvent the wheel?

2021-11-11 Thread Wendell Lovewell
Billy's example explains it very well. A) "IF" cannot be the first step, thus his IEFBR14 call B) "IF" only allows numerics. // IF (="YES") will not work like you want, but // IF (=1) or // IF (=0) will work. I don't know how high of a value you can check, but I've used up to 5 (for

Re: conditional JCL - Reinvent the wheel?

2021-11-10 Thread Paul Gilmartin
On Wed, 10 Nov 2021 12:29:37 +, Colin Paice wrote: >I'm looking at ways of doing customisation, and want an easy way to >run/omit steps. >For example >ADDUSER ZZZ NAME('COLINS')NOPASSWORD - > OMVS(AUTOUID ASSIZE(25600) THREADS(512)) > >being a good person, I also want to

Re: conditional JCL - Reinvent the wheel?

2021-11-10 Thread Colin Paice
Billy, great - thank you I'll get the JCL manual updates, as it does not describe this way of doing things - I read it as only supporting RC, ABEND etc., not variables Colin On Wed, 10 Nov 2021 at 15:59, Billy Ashton wrote: > Here is a neat little trick I learned from a guy at CA, using SET

Re: conditional JCL - Reinvent the wheel?

2021-11-10 Thread Billy Ashton
Here is a neat little trick I learned from a guy at CA, using SET and IF. I use this a lot now, and other than needing a dummy step if I am testing the first step in a job, it works great. I have been able to nest my IF statements sometimes 3 deep when I have complex processing that I want to

Re: conditional JCL - Reinvent the wheel?

2021-11-10 Thread Sri h Kolusu
DD *,SYMBOLS=JCLONLY /* Thanks, Kolusu "IBM Mainframe Discussion List" wrote on 11/10/2021 05:29:37 AM: > From: "Colin Paice" > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 11/10/2021 05:31 AM > Subject: [EXTERNAL] conditional JCL - Reinvent the wheel? > Sent

Re: conditional JCL - Reinvent the wheel?

2021-11-10 Thread David Spiegel
Hi Colin, Add a TSO Step in which a CLIST/Rexx does a "LU Userid", trap the output and if your program "sees" ICH30001I UNABLE TO LOCATE USER ENTRY, avoid the DELUSER. Regards, David On 2021-11-10 07:29, Colin Paice wrote: I'm looking at ways of doing customisation, and want an easy way to

conditional JCL - Reinvent the wheel?

2021-11-10 Thread Colin Paice
I'm looking at ways of doing customisation, and want an easy way to run/omit steps. For example ADDUSER ZZZ NAME('COLINS')NOPASSWORD - OMVS(AUTOUID ASSIZE(25600) THREADS(512)) being a good person, I also want to provide a delete step DELUSER Z. My fantasy JCL looks like //