View previous topic :: View next topic
|
Author |
Message |
graswant
New User
Joined: 29 Apr 2006 Posts: 93 Location: Singapore
|
|
|
|
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.
Code: |
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.
Code: |
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?
Regards
Gaurav |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
Back to top |
|
|
graswant
New User
Joined: 29 Apr 2006 Posts: 93 Location: Singapore
|
|
|
|
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.. |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Can't you use the TSO RENAME command here? |
|
Back to top |
|
|
graswant
New User
Joined: 29 Apr 2006 Posts: 93 Location: Singapore
|
|
|
|
Rename does not work for GDG.. I used the above approach nd it works |
|
Back to top |
|
|
graswant
New User
Joined: 29 Apr 2006 Posts: 93 Location: Singapore
|
|
|
|
Superk
I was referring to GDG base when I said rename does not work. |
|
Back to top |
|
|
|