I had a requirement in which I wanted to delete all the datasets starting with a given HLQ. Actually these datasets are not referenced in last 45 days. To do that I used the beow JCL:
Code: Select all
//STEP010 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//DUMMYDD DD DUMMY
//SYSIN DD *
DUMP /* COMMAND DUMP */ -
DS(INCL(HLQ.**) /* INCLUDE ALL DSN WITH HLQ */ -
BY((REFDT,LE,*,-45)) /* SELECT IF REFDT LE 45 */ -
OUTDD(DUMMYDD) /* OUT DD NAME */ -
DELETE /* DELETE ALL THE DATASETS */
/*