>> Using ADRDDSU and (CATLG EQ NO) is not an option as it would need a DD
Jack, Not sure what you tried, but you can try the DUMP command with TYPRUN=NORUN so that you can see the list of datasets that will processed. Try this //GENLIST EXEC PGM=ADRDSSU,PARM='TYPRUN=NORUN' //SYSPRINT DD SYSOUT=* //PSEUDO DD DUMMY //PSEUDO DD DUMMY //SYSIN DD * DUMP /* Command DUMP */ - DS(INCL(*.**) /* Include all datasets */ - BY((REFDT,LE,*,-90))) /* Select If CATLG EQ NO */ - OUTDD(PSEUDO) /* You can route the SYSPRINT to a dataset and run DFSORT to extract the contents. Let me know if you are interested in that. Thanks, Kolusu ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
