ouch - thanks old fingers faster than old brain
IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> wrote on 07/15/2011 09:49:19 AM: > From: Scott Rowe <scott.r...@joann.com> > To: IBM-MAIN@bama.ua.edu > Date: 07/15/2011 09:50 AM > Subject: Re: How to control in an JCL that a file is empty or not exist ? > Sent by: IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> > > Kirk, > > I don't think your little code sample would work as you intended, try LA > instead of LR ;-) > > On Thu, Jul 14, 2011 at 5:24 PM, Kirk Talman <rkueb...@tsys.com> wrote: > > > Or write little program (skeleton ASM) > > > > OPEN > > LR R3,4 > > GET > > LR R3,0 OR ... > > EOF EQU * > > RETURN w/R3 as return code in R15 > > > > can also be done in Cobol in same manner and probably all other languages > > > > IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> wrote on 07/14/2011 > > 09:22:05 AM: > > > > > From: Greg Shirey <wgshi...@benekeith.com> > > > To: IBM-MAIN@bama.ua.edu > > > Date: 07/14/2011 09:31 AM > > > Subject: Re: How to control in an JCL that a file is empty or not exist > > ? > > > Sent by: IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> > > > > > > As mentioned, LISTC will test for whether a file exists; ICETOOL > > > provides a method to test if a file is empty. > > > > > > From "Smart DFSORT tricks" (ftp.software.ibm.com/storage/dfsort/mvs/ > > > sorttrck.pdf) > > > > > > For example, in the following ICETOOL job, the EMPTY operand of > > > COUNT is used to stop STEP2 from being executed if the IN data set > > > is empty. ICETOOL sets RC=8 (because the RC8 operand is specified) > > > if the IN data set is empty, or RC=0 if the IN data set is not > > > empty. ICETOOL only reads one record to determine if the data set is > > > empty or not empty, regardless of how many records there are in the data > > set. > > > > > > //STEP1 EXEC PGM=ICETOOL > > > //TOOLMSG DD SYSOUT=* > > > //DFSMSG DD SYSOUT=* > > > //IN DD DSN=... > > > //TOOLIN DD * > > > * SET RC=8 IF THE 'IN' DATA SET IS EMPTY, OR > > > * SET RC=0 IF THE 'IN' DATA SET IS NOT EMPTY > > > COUNT FROM(IN) EMPTY RC8 > > > /* > > > // IF STEP1.RC = 0 THEN > > > //*** STEP2 WILL RUN IF 'IN' IS NOT EMPTY > > > //*** STEP2 WILL NOT RUN IF 'IN' IS EMPTY > > > //STEP2 EXEC ... > > > ... > > > // ENDIF > > > > > > > > > HTH, > > > Greg Shirey > > > Ben E. Keith Company > > > > > > > > > -----Original Message----- > > > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On > > > Behalf Of Hilario G. > > > Sent: Thursday, July 14, 2011 7:40 AM > > > To: IBM-MAIN@bama.ua.edu > > > Subject: How to control in an JCL that a file is empty or not exist ? > > > > > > Hello folks, > > > > > > I have several batch processes that contain empty files or files > > > that do not exist. > > > > > > I need to control the execution of certain programs based on the > > > existence of these files (including files created empty). > > > > > > I try to used IDCAMS but didn't work in my tests. > > > > > > Thank you very much everyone. > > > > > > ----------------------------------------- > > The information contained in this communication (including any > > attachments hereto) is confidential and is intended solely for the > > personal and confidential use of the individual or entity to whom > > it is addressed. If the reader of this message is not the intended > > recipient or an agent responsible for delivering it to the intended > > recipient, you are hereby notified that you have received this > > communication in error and that any review, dissemination, copying, > > or unauthorized use of this information, or the taking of any > > action in reliance on the contents of this information is strictly > > prohibited. If you have received this communication in error, > > please notify us immediately by e-mail, and delete the original > > message. Thank you > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > > Search the archives at http://bama.ua.edu/archives/ibm-main.html > > > > CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains > confidential and privileged information intended only for the addressee. > If you are not the intended recipient, please be advised that you have > received this material in error and that any forwarding, copying, printing, > distribution, use or disclosure of the material is strictly prohibited. > If you have received this material in error, please (i) do not read it, > (ii) reply to the sender that you received the message in error, and > (iii) erase or destroy the material. Emails are not secure and can be > intercepted, amended, lost or destroyed, or contain viruses. You are deemed > to have accepted these risks if you communicate with us by email. Thank you. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html ----------------------------------------- The information contained in this communication (including any attachments hereto) is confidential and is intended solely for the personal and confidential use of the individual or entity to whom it is addressed. If the reader of this message is not the intended recipient or an agent responsible for delivering it to the intended recipient, you are hereby notified that you have received this communication in error and that any review, dissemination, copying, or unauthorized use of this information, or the taking of any action in reliance on the contents of this information is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail, and delete the original message. Thank you ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
