Am 03.06.2012 04:10, schrieb Shmuel Metz (Seymour J.):
In
<CAOdPEgRBghL+Cqd4qZryi2rYXVaUFY=9e-ugencg8mphj93...@mail.gmail.com>,
on 06/02/2012
at 12:02 PM, Itschak Mugzach<imugz...@gmail.com> said:
Did you try REXX OUTTRAP function?
OUTTRAP catches PUTLINE and PUTGET, not TPUT.
HI
Here a sample to Do a HLIST, and process the info in the REXX.Proc
Data is written in the STEM HSMI.
ODSN = Name of the DSN
RD ist a Random number to be able to alloc a Unique file
This is part of a proc that processes > 100.000 Files thru a Batch file
Hope it helps
Giovanni
RD =RANDOM(1,99999)
HSMDS = 'TWRK.TEMP.D'!!RD
"HLIST DSNAME('"ODSN"') ODS('"HSMDS"')"
CALL READ_HSMDS
READ_HSMDS:
"ALLOC DATASET('"HSMDS"') File(HSMDS) SHR "
"EXECIO 0 DISKR HSMDS (OPEN"
"EXECIO * DISKR HSMDS (STEM HSMI."
"EXECIO 0 DISKR HSMDS (FINIS "
X = MSG(OFF)
"DELETE '"HSMDS"'"
X = MSG(ON)
"FREE DD(HSMDS)"
RETURN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
