Don't know how super-efficient it is, but use DCOLLECT input (or FDREPORT extract if you have FDREPORT), then in Rexx under IKJEFT01
Read a record set dataset_name_variable to the DSN If you're worried about uncataloged also set unit and volume variable "ALLOC FI(X) DA("dataset_name_variable") SHR REUSE" <== add UNIT and VOLUME if necessary "EXECIO 0 DISKR X (OPEN" "EXECIO 0 DISKW X (FINIS" in a loop until end of file on the input. You can of course use program logic to just filter the volumes and/or datasets you want. This is based on the concept (fact, I believe) that it last referenced date is set by OPEN. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN