Yes, Giovanni, my astute colleague, "very, very carefully" indeed. I use this exact example in our security standards to solidify the concept that users should not have more access than they need to do their job......
Once, during a disaster recovery test, I ran this exact job stream at the end of the test. It's amazing how fast so many datasets disappeared ! Thanks for advertising the danger. I should push this over to my RACF-L colleagues for their amusement. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Giovanni L Bozzetti Sent: Monday, January 30, 2006 5:09 PM To: [email protected] Subject: Re: Basic question on deleting datasets 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 ---------------------------------------------------------------------- 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
