i did not know that Rexx can convert a day to a number (at least I think that is what it is doing). is this returning the day of the week 1-7 or just setting 1 if it is friday. my program can also return the month of the year (1-12), day of year (1-365) time of day (0-2400) and day of week (1-7), but it is helpful to know that alot of these functions may be available in Rexx.
Thanks for the info Robert. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Robert Birdsall Sent: Friday, June 26, 2009 12:29 PM To: [email protected] Subject: Re: IF-Statement in JCL I realize that this is still conditional code execution, but a very simple Rexx exec will work: SetCC: (I'll borrow your program name) interpret 'return' arg(1) JCL fragment: // SET TODAY=FRI //TEST EXEC PGM=IRXJCL,PARM='SETCC &TODAY=FRI' //SYSEXEC DD DISP=SHR,DSN=pds.contains.setcc //* // IF (TEST.RC = 1) THEN //CODE EXEC PGM=IEFBR14 // ENDIF Actually, if you're willing to deal with the strangeness, you could use the following where the '@' is replaced by one byte of hex '00'. // SET TODAY=FRI //TEST EXEC PGM=IRXJCL,PARM='@ &TODAY=FRI' //SYSEXEC DD * interpret 'return' arg(1) //* // IF (TEST.RC = 1) THEN //CODE EXEC PGM=IEFBR14 // ENDIF Of course, you'll get the -CAUTION- Data contains invalid (non-display) characters. Use command ===> FIND P'.' to position cursor to these message each time you edit the JCL :( We use a simple exit to change // SET TODAY=&LWDAY into // SET TODAY=FRI On Thu, 25 Jun 2009 09:40:41 -0400, Barkow, Eileen <[email protected]> wrote: >i wrote a program (aptly named SETCC) that accepts various parms passed >in the parm field and passes them as condition codes, including an >option to pass the date and time. The program accepts numbers to be >passed as well as various keywords that it converts to numbers. > > >-----Original Message----- >From: IBM Mainframe Discussion List [mailto:[email protected]] On >Behalf Of Paul Gilmartin >Sent: Thursday, June 25, 2009 9:36 AM >To: [email protected] >Subject: Re: IF-Statement in JCL > >On Thu, 25 Jun 2009 14:01:54 +0200, Michael Knigge wrote: > >>Roland, >> >>> Not with YES/NO but like this >>> Note: IEFBR14 always set RC0 >> >>oh my god, that simple...... >> >>I always thought to myself, I could write a utility that just returns >>(so do a "B R14") and set a RC that I've specified with a PARM >>JCL-Statement (EXEC PGM=FOO,PARM='1' or something like that) >> >You can use IDCAMS to set RC to a desired value, but it must >appear in SYSIN, not in PARM. > >And you can use JCL symbols in IF statements; something like: > > // SET YES=0 > ... > // IF ( IEFBR14.RC = &YES ) ... > >-- gil > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] 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 [email protected] 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 [email protected] 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 [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
