Below is a part of one of the last ones I ran, but it's been awhile.
Note PARM='TEST', it is your friend, it will tell you what it will try
to do before updating anything.
If I remember correctly, this would copy all active files from the tape
volumes listed AND those on any other tapes in the volume sets NOT
listed. It will set the input tapes expdt so they will expire and
recatalog cataloged datasets on the new volume.
My OUTUNIT was a SMS construct, not really an EDT. Input was 3490,
output was 3590 J carts.
//STEP1 EXEC PGM=COPYCAT,PARM='TEST'
//SYSPRINT DD SYSOUT=*
//CCRPT DD SYSOUT=*
//SYSUSNAP DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
FILECOPY
FILES=ACTIVE
SAVEINFO=YES
RECATLG=PREV
INDISP=EXPDT=2006/275
OUTDISP=SAME
DUPLEX=NO
INUNIT=CART
OUTUNIT=MAG10
COMP=YES
SORT=YES
INPUT=*
P00xxx
P09xxx
P09xxx
P09xxx
P09xxx
...
----------------------------------------------------------------------
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
