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
