Or this, posted on <https://ibmmainframes.com/viewtopic.php?t=42579> @ Tue Jul 28, 2009 11:59 pm
//* Use a tiny Rexx exec to check both month and year //* If 1st of month, return number of month, else return 99 //MAKEREXX EXEC PGM=IEBUPDTE,PARM=NEW //SYSIN DD DATA ./ ADD NAME=CHKDATE if substr(date(u),4,2)=1 then return substr(date(u),1,2); return 99 /* //SYSUT2 DD DISP=(,PASS),SPACE=(TRK,(1,1,2),RLSE),UNIT=VIO, // DCB=(LRECL=80,BLKSIZE=80,DSORG=PS,RECFM=F) //SYSPRINT DD DUMMY //* Now run the exec to get a return code //SETMAXCC EXEC PGM=IRXJCL,PARM='CHKDATE' //SYSEXEC DD DSNAME=*.MAKEREXX.SYSUT2,DISP=(OLD,DELETE) //SYSTSIN DD DUMMY //SYSTSPRT DD DUMMY /* Proceed as in other solutions //JAN EXEC PGM=IEFBR14,COND=(1,NE,SETMAXCC) //* //FEB EXEC PGM=IEFBR14,COND=(2,NE,SETMAXCC) //* // ... On Mon, 4 Mar 2024 at 16:02, Cameron Conacher < 000003cfc59146bb-dmarc-requ...@listserv.ua.edu> wrote: > Hello everyone, > From what I have read this is not possible, but I decided to throw it out > there to see if something is possible. > > I have a block of JCL with a bunch of steps. > I have symbolic parameters assigned. (JP1/JP2 SYSPLEX Symbolics for DFSORT) > > I was looking for a Utility that would examine the value of a Symbolic and > assign a User Return Coe value. RC1 = Development; RC2 = Pre-Production; > RC3 = Production? > I need a Return Code value to be able to conditionally execute subsequent > JOB steps. I cannot execute steps conditionally based on Symbolic Variable > values. > IF Step001.RC = 0 ….Development > > I could write a tine program to do this. > I was hunting around for a utility to do this. > DFSORT is my go to Utility but as mentioned, I believe it is not suitable > for this task. > I believe I could set RC0 or RC4 or RC16. RC0 and RC4 generate a message > and continue, but RC16 generates a message and terminates. I think this > (Termination) would be unsuitable. > > I was to be able to assign one of three different Return Code values (any > value) that I can let check to determine if I am running in Development, > Pre-Prod or Production, and then execute steps related to the specific > environment. > Not something I absolutely need since I could write a tiny program for > this. > > Just curious, and I think my ADHD has just sent me down another rabbit > hole 😊 > > I could do this in Easytrieve. Or COBOL. Or Assembler. Or Rexx. Or ….. > > Hope this makes sense. > > Thanks > > > Cameron Conacher > Senior Engineer > > American Express Canada Inc. > GCICS > 2225 Sheppard Avenue East, Toronto, ON M2J 5C2 > > cameron.conac...@aexp.com<mailto:cameron.conac...@aexp.com> > Office: 1-437-836-5265 > Mobile: 1-416-409-5147 > > https://amex.webex.com/join/cameron.conacher > > > > ________________________________ > American Express made the following annotations > ________________________________ > This e-mail was sent to you by a representative of Amex Bank of Canada, > P.O. Box 3204, Station "F", Toronto, ON, M1W 3W7, www.americanexpress.ca. > If you no longer wish to receive these e-mails, please notify the sender by > reply e-mail. > > This e-mail is solely for the intended recipient and may contain > confidential or privileged information. If you are not the intended > recipient, any disclosure, copying, use, or distribution of the information > included in this e-mail is prohibited. If you have received this e-mail in > error, please notify the sender by reply e-mail and immediately and > permanently delete this e-mail and any attachments. Thank you. > > American Express a fait les remarques suivantes > Ce courriel vous a été envoyé par un représentant de la Banque Amex du > Canada, C.P. 3204, succursale F, Toronto (Ontario) M1W 3W7, > www.americanexpress.ca. Si, par la suite, vous ne souhaitez plus recevoir > ces courriels, veuillez en aviser les expéditeurs par courriel. > > Ce courriel est réservé au seul destinataire indiqué et peut renfermer des > renseignements confidentiels et privilégiés. Si vous n’êtes pas le > destinataire prévu, toute divulgation, duplication, utilisation ou > distribution du courriel est interdite. Si vous avez reçu ce courriel par > erreur, veuillez en aviser l’expéditeur par courriel et détruire > immédiatement le courriel et toute pièce jointe. Merci. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Robert AH Prins robert(a)prino(d)org The hitchhiking grandfather <https://prino.neocities.org/index.html> Some REXX code for use on z/OS <https://prino.neocities.org/zOS/zOS-Tools.html> ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
