That works. Thanks! I've not used ICETOOL before. One minor thing. I wish I could skip steps (or conditionally execute them) rather than having the job set RC12. Something like how IDCAMS works:
COUNT FROM(TC33IN) EMPTY RC4 IF LASTCC = 0 THEN COPY FROM(TC33IN) TO(TC33OUT) ELSE IF LASTCC = 4 THEN SET MAXCC=0 Oh well! Thanks again, Frank >________________________________ > From: Frank Yaeger <yae...@us.ibm.com> >To: IBM-MAIN@bama.ua.edu >Sent: Thursday, April 19, 2012 11:38 AM >Subject: Re: DFSORT, no records for SORTOUT > >Frank Swarbrick at IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> >wrote on 04/19/2012 10:22:56 AM: >> I know of the NULLOUT and NULLOFL options to specify return code >> setting if there are no records to be written to the output file. >> I'm wondering if there is any option I can specify so that the >> SORTOUT file will not even be opened if there are no records to be >> written to it. Basically, I want to leave the "old" records that >> were in SORTOUT alone if there is nothing new to go in to it for this >run. >> >> At this point the best thing I can think of is to run SORT twice; >> the first time copying one record to a dummy file with NULLOUT=RC4 >> set. Then skipping step 2, the actual copy into the real SORTOUT, >> if the RC from step 1 is not 0. >> >> If there is a program other than SORT (IDCAMS?) that I can use to >> accomplish this, that's fine as well. No actual sorting is being >> done; just a straight copy. > >Frank, > >You could use a DFSORT ICETOOL job with COUNT and COPY like this: > >//S1 EXEC PGM=ICETOOL >//TOOLMSG DD SYSOUT=* >//DFSMSG DD SYSOUT=* >//IN DD DSN=... input file >//OUT DD DSN=... output file >//TOOLIN DD * >MODE STOP >COUNT FROM(IN) EMPTY RC12 >COPY FROM(IN) TO(OUT) >/* > >If IN is emtpy, the COUNT operator will set RC=12 and >the COPY operator will NOT be executed so OUT will not be >opened. The step will give back cc=12. COUNT does not >require an output data set. > >If IN is not empty, the COUNT operator will set RC=0 and >the COPY operator will be executed so OUT will be >opened and IN will be copied to it. The step will give >back cc=0 > >Note that MODE STOP is the default so you don't have to >specify it, but I put it in for doc purposes. > >Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com >Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration > >=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN > > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
