Hello, Maybe you can try this:
//STEP1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DISP=SHR,DSN=YOUR.DATASET //TOOLIN DD * * SET RC=12 IF THE 'IN' DATA SET IS EMPTY, OR * SET RC=0 IF THE 'IN' DATA SET IS NOT EMPTY COUNT FROM(IN) EMPTY Best Regards Ituriel do Nascimento Neto z/OS System Programmer Em terça-feira, 9 de julho de 2024 às 11:30:07 BRT, Cameron Conacher <[email protected]> escreveu: Thank you Sri, I do indeed see the WER* messages in the log. I will see who I can hunt down here. Or I will just work around things. As always Sri, I appreciate your info. Thanks …….Cameron From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Sri Hari Kolusu Sent: Tuesday, July 9, 2024 10:24 AM To: [email protected] Subject: Re: Another Sort Question > I still see RC=0 Cameron, Please send me the COMPLETE joblog and I will check > as to why your job does not end with an RC=4. Just an fyi. . . If your DFSMSG > has WERxxx messages, then you are using the other product, and I don't > support it. > I still see RC=0 Cameron, Please send me the COMPLETE joblog and I will check as to why your job does not end with an RC=4. Just an fyi... If your DFSMSG has WERxxx messages, then you are using the other product, and I don't support it. Thanks, Kolusu DFSORT Development IBM Corporation -----Original Message----- From: IBM Mainframe Discussion List <[email protected]<mailto:[email protected]>> On Behalf Of Cameron Conacher Sent: Tuesday, July 9, 2024 6:53 AM To: [email protected]<mailto:[email protected]> Subject: [EXTERNAL] Re: Another Sort Question I still see RC=0 STEP0100 00 56 Thanks .......Cameron From: IBM Mainframe Discussion List <[email protected]<mailto:[email protected]>> On Behalf Of Sri Hari Kolusu Sent: Tuesday, July 9, 2024 9:31 AM To: [email protected]<mailto:[email protected]> Subject: Re: Another Sort Question >> Basically, I wanted to raise RC=4 when the output file from the SORT >> is empty. Cameron, NULLOFL should work. Can you run this job? >> //STEP0100 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD >> SYSOUT=* //LOG31IN DD * //LOG31OUT DD >> Basically, I wanted to raise RC=4 when the output file from the SORT is >> empty. Cameron, NULLOFL should work. Can you run this job? //STEP0100 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //LOG31IN DD * //LOG31OUT DD SYSOUT=* //TOOLIN DD * SELECT FROM(LOG31IN) - TO(LOG31OUT) - ON(001,49,CH) - LAST - USING(LG31) /* //LG31CNTL DD * OUTFIL FNAMES=LOG31OUT,NULLOFL=RC4 /* Does that give you RC=4 ? Thanks, Kolusu DFSORT Development IBM Corporation ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected]<mailto:[email protected]><mailto:[email protected]<mailto:[email protected]>> with the message: INFO IBM-MAIN ________________________________ 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<https://isolate.menlosecurity.com/1/3735928037/http:/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<https://isolate.menlosecurity.com/1/3735928037/http:/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 [email protected]<mailto:[email protected]> with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected]<mailto:[email protected]> with the message: INFO IBM-MAIN ________________________________ 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 [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
