Author: Pete Wilson
Posted: Mon Aug 15, 2016 12:45 pm (GMT 5.5)
//STEP1 EXEC PGM=ADRDSSU
//SYSPRINT DD *
//X DD DUMMY
//SYSIN DD *
DUMP ODD(X) ALLE OPT(4) PURGE DELETE -
DS(INC( -
data.set.name.or mask -
) -
BY(REFDT,LE,*-35) ) -
/* the above selects dataset matching the dsname masks unreferenced */ -
/* for 35 or more days prior to today */ -
/* then you can specify individual volsers ...or a Storgrp name.. */ -
IDY( -
(volser1) -
(volser2) -
)
STORGRP(sgname)
_________________
DinoZos
Posted: Mon Aug 15, 2016 12:45 pm (GMT 5.5)
//STEP1 EXEC PGM=ADRDSSU
//SYSPRINT DD *
//X DD DUMMY
//SYSIN DD *
DUMP ODD(X) ALLE OPT(4) PURGE DELETE -
DS(INC( -
data.set.name.or mask -
) -
BY(REFDT,LE,*-35) ) -
/* the above selects dataset matching the dsname masks unreferenced */ -
/* for 35 or more days prior to today */ -
/* then you can specify individual volsers ...or a Storgrp name.. */ -
IDY( -
(volser1) -
(volser2) -
)
STORGRP(sgname)
_________________
DinoZos