Re: : Best Way to Check if a Library Has At Least 1 Changed Object

IMO that is an error in the way SAVLIB is being used outside of the purpose of the intent of /Recovery/ in the B&R. The help text for the UPDHST() parameter of the SAVLIB command suggests:

Note: UPDHST(*NO) should be used for a save operation
that is not intended for recovery. For example, if the
save data is sent, record by record, to another system
and the save file immediately deleted, the save history
information is probably not to be updated.

Leaving the shipped default of UPDHST(*YES) would introduce the alluded caveat; the default reflects the intent of B&R, not saves for other purposes.

Regards, Chuck

phil.seay wrote:

There is one little caveat about using REFDATE(*SAVLIB).
If you save the library in your backup procedure and then
later save the library for some other reason (for example,
to a save file for FTP transmission to another machine),
you probably aren't getting the REFDATE you want. I use
SAVCHGOBJ for my daily saves and specify a date-time that
was saved in a data area during the last backup SAVLIB.

CRPence wrote:

FWiW the DSPOBJD is potentially a very expensive method to determine "if a library has at least one changed object". I'd
use a SAVCHGOBJ with its default of /since last full save/
[i.e. REFDATE(*SAVLIB)] to determine the answer to the
question; of course with that criteria of since when.
This can be effected with probably fewer resources by
limiting the actual capabilities of the save request by
using a DEV(*SAVF) created with CRTSAVF MAXRCDS(1). Using this
method, a save which has at least one object will fail with
Diag CPF3808 and Escape CPF3815 indicating the maximum number
of records was exceeded. A save which has no objects will /complete/ without saving any objects, then issuing the completion CPC3708 suggesting "all object excluded" for the given reference date\time. For example, using the command strings like:

===> CRTSAVF QTEMP/CHGTEST MAXRCDS(1)
===> SAVCHGOBJ OBJ(*ALL) LIB(&LIBNAME) DEV(*SAVF)
OBJTYPE(*ALL) OBJJRN(*YES) REFDATE(*SAVLIB) SAVF(QTEMP/CHGTEST)
UPDHST(*NO) CLEAR(*ALL) PRECHK(*NO) SAVACT(*NO) ACCPTH(*NO)
SAVFDTA(*YES) DTACPR(*YES) OMITOBJ((&LIBNAME/*ALL *JRN))
OUTPUT(*NONE) /* may want to include output queue data
selection as well */