MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » January 2013

Re: QCLSRC with PF38-SRC attribute



fixed

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?






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact