Sam Golob wrote on 3/11/2012 9:23 AM:
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
I haven't tried this in nearly forever (because the approach above is
usually easy enough), and I think that at one point it was broken, but
if you're using my TAPEMAP or a derivative you should be able to give
it a SYSIN file with volsers in columns 1-6 of each record and it'll
process each volume with OPEN TYPE=J. Of course this has the
disadvantage that all the output ends up in a single print file.
/Leonard
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
