Thanks Mark! Sounds like an easy way then the copy members we were considering
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Mark S Waterbury
Sent: Thursday, January 24, 2013 12:24 PM
To: Midrange Systems Technical Discussion
Subject: Re: QCLSRC with PF38-SRC attribute
Hi, Mike:
Here is an easy way to perform this task, while preserving the individual member create dates, last changed dates, etc.:
1. create a save file named QCLSAV38 in some library (for this example I will use QGPL; you could use some other)
CRTSAVF QGPL/QCLSAV38
2. create a save file named QDDSSAV38 in some library (as above)
CRTSAVF QGPL/QDDSSAV38
3. save the original QCLSRC *FILE from the original library, e.g.:
SAVOBJ OBJ(QCLSRC) LIB(original) OBJTYPE(*FILE) DEV(*SAVF) +
SAVF(QGPL/QCLSRC38) UPDHST(*NO)
4. save the original QDDSSRC *FILE from the original library, e.g.:
SAVOBJ OBJ(QDDSSRC) LIB(original) OBJTYPE(*FILE) DEV(*SAVF) +
SAVF(QGPL/QDDSSAV38) UPDHST(*NO)
5. rename QCLSRC to QCLSRC38 in the original library
6. rename QDDSSRC to QDDSSRC38 in the original library
7. issue CRTSRCPF to create the new empty QCLSRC in the correct library.
Be sure to specify the same record length as the original file.
8. issue CRTSRCPF to create the new empty QDDSSRC in the correct library
Be sure to specify the same record length as the original file.
9. ensure new QCLSRC file is owned by the same profile as the original QCLSRC38 file
10. ensure new QDDSSRC file is owned by the same profile as the original
QDDSSRC38 file
11. restore the members from QCLSRC as follows:
RSTOBJ OBJ(QCLSRC) SAVLIB(original) DEV(*SAVF) OBJTYPE(*FILE) +
SAVF(QGPL/QCLSAV38) OPTION(*ALL) FILEMBR((*ALL *ALL)) +
MBROPT(*ALL) ALWOBJDIF(*FILELVL)
12. restore the members from QDDSSRC as follows:
RSTOBJ OBJ(QDDSSRC) SAVLIB(original) DEV(*SAVF) OBJTYPE(*FILE) +
SAVF(QGPL/QDDSSAV38) OPTION(*ALL) FILEMBR((*ALL *ALL)) +
MBROPT(*ALL) ALWOBJDIF(*FILELVL)
Once satisified with the results, you can delete the files QCLSRC38 and QDDSSRC38, and delete the save files, QGPL/QCLSAV38 and QGPL/QDDSSAV38
Let me know if you have any questions or run into any problems.
All the best,
Mark S. Waterbury
On 1/24/2013 10:52 AM, Mike Cunningham wrote:
This is going to date us for how long we have been on this platform. Our QCLSRC and QDDSSRC files have an attribute of PF38-SRC. This attribute setting is preventing us from using Rational to edit the source. What's going to be the best way to get rid of that attribute? You can't just change it. There is no command to do that. So we are thinking rename QCLSRC to something else, create a new QCLSRC then copy every member over to the new file. 2,076 members in QCLSRC and 13,304 members in QDDSSRC. Would anyone have any other options to make this change?
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at
http://archive.midrange.com/midrange-l.
midrange.com
