I am writing a REXX to Move an Id's Physical Datasets under a new pre defined ID/Group.
i.e. HLQ.XYZ.PQR renamed to NEWHLQ.HLQ.XYZ.PQR
I have used ALTER command for NONVSAM.
NEW = 'TUSRDSN.'
CALL OUTTRAP 'LISTC.'
"LISTC LVL("HLQ") "
CALL OUTTRAP 'OFF'
DO I = 1 TO LISTC.0
TEST = WORD(LISTC.I,1)
IF TEST = 'NONVSAM' THEN DO
DSN = WORD(LISTC.I,3)
DSN = STRIP(DSN)
FLQ = NEW||DSN
X = MSG('OFF')
"ALTER '"DSN"' NEWNAME('"FLQ"')"
"ALTER '"FLQ"' MANAGEMENTCLASS('MCTMP')"
I tried using ALTER for GDG however got error msg.
IDC3009I ** VSAM CATALOG RETURN CODE IS 48 - REASON CODE IS IGG0CLE8-26
Need some help on the above. What command can I use to rename GDG?
Thanks Dick, well i was hoping to get a quick option like a command but after looking at the link you gave I guess I have to define the base with new names and rename the generations with normal ALTER..