Thanks John . I am new to Rexx , but just wanted to know how in the below
code, we make sure that only what is in my input file is read and renamed and
not all the datasets under the SLXR5V.SAPDB.* ?
/* REXX */
XX=OUTTRAP('DATA.','*')
LISTC LVL('SLXR5V.SAPDB​')
XX=OUTTRAP("OFF")
DO I=1 TO DATA.0
LINE=DATA.I
IF 'NONVSAM' <> WORD(LINE,1) THEN ITERATE /* ONLY WORKS FOR NON-VSAM */
DSN=WORD(LINE,3) /* GET THE DSN */
SUFFIX=SUBSTR(DSN,12) /* STRIP OFF THE FRONT */
NEWDSN='SLXR5V.SAPDB.X'||SUFFIX
"ALTER '"DSN"' NEWNAME('"NEWDSN"')"
END
Thanks
Ron T
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
