Some example REXX which might be of some help:
/* REXX */
X=OUTTRAP("OUT.","*");
"LISTC ENT('gdg.base.name') ALL"
X=OUTTRAP("OFF")
DSN='?'
DO I=1 TO OUT.0
IF 'NONVSAM-' <> LEFT(STRIP(OUT.I,'L'),8) THEN ITERATE
DSN=WORD(TRANSLATE(OUT.I,' ','-'),2)
LEAVE
END
IF DSN='?' THEN EXIT(12) /* NO DSN FOUND */
"RECEIVE INDATASET('"DSN"')"
I recall that doing a RECEIVE in REXX is "iffy". Perhaps another person
remembers how to do this?
--
Schrodinger's backup: The condition of any backup is unknown until a
restore is attempted.
Yoda of Borg, we are. Futile, resistance is, yes. Assimilated, you will be.
He's about as useful as a wax frying pan.
10 to the 12th power microphones = 1 Megaphone
Maranatha! <><
John McKown
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
