That's what I do: //SYSUT1 DD DSN=&&DSN,DISP=(OLD,PASS) //SYSUT2 DD DSN=*.SYSUT1,DISP=(OLD,PASS), // UNIT=AFF=SYSUT1, // VOL=REF=*.SYSUT1
I've gotten into the habit of doing lots of refer-backs for as much as possible. Actually, I used pseudo-temporary dataset names. I use IDCAMS or CA-11 to delete all DISP=NEW datasets in the job, then use perm names and delete them in an IEFBR14 at the end. Makes it easier to restart my job and not "waste" CPU time. On Fri, 2011-01-28 at 18:23 -0800, Schwarz, Barry A wrote: > It was explained to me a long time ago by someone who used to read the > microfiche that when a dataset is found in the Pass Queue, it is > removed from the queue. The work around (from foggy memory) was to > add a VOL=REF=*.xx (SYSUT1 in your example) to any subsequent DD > statements. > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf > Of Edward Jaffe > Sent: Friday, January 28, 2011 6:15 PM > To: [email protected] > Subject: Second Reference to Temporary Data Set Fails > > Obviously, IANFJE (I ain't no friggin JCL expert). But, it seems to me that > this > should work: > > //JCLERROR JOB ... > //AGMLENU EXEC PGM=IEFBR14 > //GML DD DSN=&&GML,UNIT=SYSALLDA, > // RECFM=FB,LRECL=80,BLKSIZE=0, > // DISP=(NEW,PASS),SPACE=(TRK,(1,1,1)) > //IGMLENU EXEC PGM=IEBUPDTE,PARM=NEW > //SYSPRINT DD SYSOUT=* > //SYSUT1 DD DSN=&&GML,DISP=(OLD,PASS) > //SYSUT2 DD DSN=&&GML,DISP=(OLD,PASS) > //SYSIN DD DATA,DLM='^%' > ./ ADD NAME=NAME1 > DATA > ^% > // > > It fails with: > > IEF212I JCLERROR IGMLENU SYSUT2 - DATA SET NOT FOUND > > If it can find the data set for SYSUT1, then why can't it find it for SYSUT2? > It > works fine when a normal cataloged data set is used. It fails only with a > temporary data set. We can't find this restriction documented. > > -- > Edward E Jaffe > Phoenix Software International, Inc > 831 Parkview Drive North > El Segundo, CA 90245 > 310-338-0400 x318 > [email protected] > http://www.phoenixsoftware.com/ > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html -- John McKown Maranatha! <>< ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
