Hi Folks, Here is a way that I TAPEMAP multiple tapes, with a PROC.
All the best....... Sam //* //* TAPEMAP UTILITY PROGRAM //* //TAPEMAP PROC VL=XXXXXX //TAPEMAP EXEC PGM=TAPEMAP //STEPLIB DD DISP=SHR,DSN=SYS2.LINKLIB //SYSUT1 DD DISP=OLD, // UNIT=562, // VOL=(,RETAIN,SER=&VL), // LABEL=(,BLP,EXPDT=98000) //SYSPRINT DD SYSOUT=* //SYSPRNT2 DD SYSOUT=* // PEND //* //S01 EXEC TAPEMAP,VL=EXS001 //S02 EXEC TAPEMAP,VL=EXS002 //S03 EXEC TAPEMAP,VL=EXS003 //S04 EXEC TAPEMAP,VL=EXS004 //S05 EXEC TAPEMAP,VL=EXS005 * * * ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN