× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.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 on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.