On Tue, 14 Aug 2012 16:24:31 -0500, Tim Hare wrote:
>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.
>
I'd be afraid to do this, lest it write an end-of-file at the beginning of
every data set. In fact, I've done approximately that (two DISKWs
instead of DISKR; DISKW) intentionally to empty data sets.
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
