if you just want to alert operators as Rex mentioned you can do something like this
DUMP OUTDDNAME(TAPE) - DATASET(INCLUDE(SYS1.**)) - COMPRESS IF LASTCC GT 0 - THEN DO WTO '****************************************************' WTO '********* DSSU BACKUP HAS ABENDED ! *************' WTO '****************************************************' END ELSE DO WTO '****************************************************' WTO '*** DSSU BACKUP HAS COMPLETED SUCCESSFULLY ! ****' WTO '****************************************************' END Carmen Vitullo ----- Original Message ----- From: "Rex Pommier" <rpomm...@sfgmembers.com> To: IBM-MAIN@LISTSERV.UA.EDU Sent: Thursday, January 17, 2019 7:41:57 AM Subject: Re: Using IF/THEN/ELSE for return code checking Grant, Would it work to use an IF-THEN-ELSE in the ADRDSSU step: IF MAXCC LE 4 THEN SET MAXCC=0 Then you should be able to just check for RC=0 in your IF statement at the end of the job Rex -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Ward Able, Grant Sent: Thursday, January 17, 2019 3:50 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [External] Using IF/THEN/ELSE for return code checking This seems simple and I may be having a senior moment, but I don’t seem to be able to get this to work. I have a number of batch jobs that do ADRDSSU backups, then execute a variable number of PROC statements to copy files. TSOBATCH PGM=IKJEFT01 CC= 0000 BKDSN PGM=ADRDSSU CC= 0004 Each PROC causes a series of steps to execute: CLEARIT PGM=IEBCOPY CC= 0000 COPYS PGM=IEBCOPY CC= 0000 COPYQ PGM=IEBCOPY CC= 0000 CLEARIT PGM=IEBCOPY CC= 0000 COPYB PGM=IEBCOPY CC= 0000 CHKQMGR PGM=IKJEFT01 CC= 0000 Then the final step is to check the return codes and issue an alert for RC > 0 //NOTIFY IF (ABEND | RC > 0) THEN //ALERT EXEC PGM=CICCRE01 //SYSPRINT DD SYSOUT=* //NOTIFYX ENDIF My question is this: how do I code the IF/THEN(/ELSE) to allow for RC=4 from step BKDSN? I do not want an alert if this is the case, but any other step > 0 should give me an alert. Regards – Grant DTCC Internal (Green) DTCC DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error, please notify us immediately and delete the email and any attachments from your system. The recipient should check this email and any attachments for the presence of viruses. The company accepts no liability for any damage caused by any virus transmitted by this email. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information contained in this message is confidential, protected from disclosure and may be legally privileged. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any disclosure, distribution, copying, or any action taken or action omitted in reliance on it, is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by replying to this message and destroy the material in its entirety, whether in electronic or hard copy format. Thank you. ---------------------------------------------------------------------- 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
