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 [email protected] with the message: INFO IBM-MAIN
