With PROG06 in DSNEW status, run:
//ADRDSSU EXEC PGM=ADRDSSU,REGION=5M,
// TIME=1439 ,PARM='TYPRUN=SCAN'
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY DATASET(INCLUDE(**)) -
INDY( -
(PROD06) -
)-
ALLEXCP -
ALLDATA(*) -
ADMIN -
CATALOG -
DELETE -
PROCESS(SYS1) -
PURGE -
SPHERE
Which will move everything it can off of PROD06 and keep it in the same SMS
pool.
Then determine why whatever is left wouldn't move, remove the inhibitor, and
move it.
When volume is empty, reinit.
IMO, any of the other methods suggested include unneeded risk.
Dave Gibney
Information Technology Services
Washington State University
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
