Hi,
This JCL need to be used very, very, very carefully.
And please, RUN the first time using in PARM='TYPRUN=NORUN', after you are
OK remove the PARM.
The files not need to be catalogued, use VOLUME reference, if catalogued no
need volume, but if you write wrong
the mask, we can probably remove more than you want.
But in your case, you need to clean up many volumes, you can use VOLUME and
** in the mask
All datasets will be deleted. BUT CAREFULL where you run.......
//DELETE EXEC PGM=ADRDSSU,REGION=4096K,
//TAPE DD DUMMY
//IN1 DD DISP=SHR,UNIT=3390,VOL=SER=VOLUM3
//SYSPRINT DD SYSOUT=X
//SYSIN DD *
DUMP DATASET(INCLUDE(IBMUSER.TEST.** -
)) INDD(IN1) OUTDD(TAPE) -
ALLDATA(*) ALLEXCP TOL(ENQF) -
DELETE PURGE
In this case I create 4 datasets, in VOLUM3 Uncataloged and run the JCL
above, this is the result. If the dataset was catalogued and you use volume,
DFDSS
uncatalog the dataset also.
TEND(01), 2006.030 15:12:59 EXECUTION BEGINS
DSDU(01), THE FOLLOWING DATA SETS WERE SELECTED FROM VOLUME VOLUM3
IBMUSER.TEST.ARQ1
IBMUSER.TEST.ARQ2
IBMUSER.TEST.ARQ3
IBMUSER.TEST.ARQ4
TDS (01), PROCESSING BYPASSED DUE TO NORUN OPTION <=== This is
important to prevent mistakes
TEND(02), 2006.030 15:12:59 EXECUTION ENDS
LTSK(01), 2006.030 15:12:59 TASK COMPLETED WITH RETURN CODE 0000
Giovanni Bozzetti
System programmer
----------------------------------------------------------------------
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
