I agree with John, make the referback always to the previous step. When I was doing a lot of tape stacking, I also had a placeholder dataset for the first one on the initial tape.
I would generate the JCL using a REXX to build the STEPNAME referback name and build a new job at step 255. Use of an instream PROC also makes the JCL more streamlined, make the referback a PROC JCL PARM. I have a feeling that if you only refer back to label 1, when a new volume is mounted, the job fails... On Fri, Sep 11, 2009 at 7:08 AM, John Laubenheimer <[email protected]> wrote: > The originally specified JCL isn't exactly correct. If you were to call for > a 2nd > tape sometime before reaching file 10, the system would try to place that file > on the 1st (full) tape, due to the way this refer-back is coded. Also, if > allowed, there would be gaps in the file numbers (such as file 10 following > file 8 > with no file 9 present). The correct specification would be to refer back to > the DD for the previous file on the tape. > > Original: > > //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) > > Corrected: > > //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) > . . . > //TAPE9 DD DSN=CHGE.&VOL9..MAGSTAR(+1),DISP=(NEW,CATLG,DELETE), > // UNIT=3590-1,LABEL=(9,SL), > // VOLUME=(,RETAIN,REF=*.STEP01.TAPE8), > // 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.TAPE9), > // DCB=(MODEL,RECFM=U,LRECL=0,BLKSIZE=32760) > > ---------------------------------------------------------------------- > 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 > -- Wayne V. Bickerdike ---------------------------------------------------------------------- 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
