fyi, heres what I use, I just have 10 vols but same concept Just pass the dasd volser to the proc.
//DUMPVOL PROC //DISK1 DD UNIT=3390,VOL=SER=&VOL1.,DISP=SHR //DISK2 DD UNIT=3390,VOL=SER=&VOL2.,DISP=SHR //DISK10 DD UNIT=3390,VOL=SER=&VOL10.,DISP=SHR //TAPE1 DD DSN=CHGE.&VOL1..MAGSTAR(+1),DISP=(NEW,CATLG,DELETE), // UNIT=3590-1,LABEL=(1,SL), // VOLUME=(,RETAIN,SER=), // DCB=(MODEL,RECFM=U,LRECL=0,BLKSIZE=32760) //TAPE2 DD DSN=CHGE.&VOL2..MAGSTAR(+1),DISP=(NEW,CATLG,DELETE), // UNIT=3590-1,LABEL=(2,SL), // VOLUME=(,RETAIN,REF=*.STEP01.TAPE1), // DCB=(MODEL,RECFM=U,LRECL=0,BLKSIZE=32760) //TAPE10 DD DSN=CHGE.&VOL10..MAGSTAR(+1),DISP=(NEW,CATLG,DELETE), // UNIT=3590-1,LABEL=(10,SL), // VOLUME=(,RETAIN,REF=*.STEP01.TAPE1), // DCB=(MODEL,RECFM=U,LRECL=0,BLKSIZE=32760) // EXEC DUMPVOL, // VOL1=VOL001, // VOL2=VOL002, // VOL10=VOL010 Tim Brown Systems Specialist - Project Leader Central Hudson Gas & Electric 284 South Ave Poughkeepsie, NY 12601 Email: tbr...@cenhud.com <mailto:tbr...@cenhud.com> Phone: 845-486-5643 Fax: 845-486-5921 Cell: 845-235-4255 -----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu]on Behalf Of Daniel McLaughlin Sent: Wednesday, September 09, 2009 7:31 AM To: IBM-MAIN@bama.ua.edu Subject: Use of RETAIN OK...I'm a bit baffled and readily admit it. I've created an EXEC in REXX to create a 12 step job to dump 420 DASD volumes to one 3592. Step one runs along fine and stacks all the volumes, 35 of them, fine in the first step. When the next step starts it belches on the tape so I know it's not passed correctly. I am sure it has to do with the RETAIN option..so do I put that on the last file of the first step or the first file of the next or both? This is a DR type of thing and the EXEC, which I inherited with the job, works great. And yes...I have read the JCL User guide but it ain't helping a lot... ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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
