On 4/8/21 2:45 PM, Mark Waterbury wrote:
Do it the same way that the SAVCHGOBJ command does it, by using the
library's changed object list.
Thanks. However:

I took a look at that, and it looks to be an order of magnitude nastier than what I'd already started doing by the time I saw it.

So here's what I ended up with:

An RPG program, CHKLIBCHG, with two parameters: a 10-character library name, and a 13-character last-changed date (this must be initialized to all zeros by the calling program, because by the time I realized it needed to be initialized, I was writing the calling program).

CHKLIBCHG does a QUSLOBJ on the specified library, with OBJL0300, and goes through all the entries, one by one. If the object's last-changed-date (processed through QWCCVTDT and truncated to the first 13 characters) is more recent than the current value, then it replaces the current value.

If the object is a physical file, then it does a QUSLMBR on it, and goes through all *those* entries, one by one. If the member's last-changed-date is nonblank (blank is returned if it's not a source PF), and more recent than the current value, then *it* replaces the current value.

Thus, CHKLIBCHG returns the most recent of all the object-level and member-level change dates it finds in the specified library.

And a CL program, SAVENEEDED, which takes a single parameter, a 10-character library name. It assumes that a save file with the same name as the library exists in a specified place.

If the save file's creation date matches its change date, it is assumed to be new and empty, and it saves the library into the save file.

If not, then it calls CHKLIBCHG. If the last-changed-date CHKLIBCHG is more recent than the save file's change date, then it saves the library into the save file.

If both of those tests fail, then the save file is up to date.

Eventually, this will also FTP the save file to a small server entirely inside the firewall, with a date-stamped name, e.g., if the library (and the save file) is "FOO," and today is 04/08/2021, then it will be squirted to the server as "FOO.04082021.savf" (or something like that).


As an Amazon Associate we earn from qualifying purchases.

This thread ...


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

This mailing list archive is Copyright 1997-2021 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.