I had the same problem with a backup routine. I do not have the code with me, but what I did was use the features in the SAVLIB command to output the list of objects. Then if the save fails to lock any objects, it does not start the save. I then have the out file with the details of objects that cannot be saved. I use that information with API's to track the locking jobs, which I then end immediately. The program then loops back and does the save again. It works and we now get all objects saved that save while active cannot save.

Darryl Freinkel

On Aug 25, 2014, at 4:50 PM, "Stone, Joel" <Joel.Stone@xxxxxxxxxx> wrote:

Each evening we bring down all users and run save-while-active on production files.

Once in a while the save-while-active job cannot get a lock on a file.

After bringing down the online system, we would like to run a job prior to the save that sends a text message to a few people showing the JOB/lib/file of any production objects with a lock on them.

This would avoid the scenario where the SAVE job cannot get a lock on each and every object for a moment.

Is a good method to DSPOBJD to an outfile of all PFs in the lib, and then RCVF thru the outfile with ???

Would it only be necessary to check PFs? Ie would a LF lock also show that the underlying PF has a lock?

Then what? ALCOBJ to each object, trying to get a *EXCL lock on it? And if ALCOBJ fails, then send a text message?

Is there a TAATOOL that will accomplish this? Or maybe a different OS400 tool?


This outbound email has been scanned for all viruses by the MessageLabs Skyscan service.
For more information please visit http://www.symanteccloud.com
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.

This thread ...


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