Re: method to view objects in production lib with locks on them

[Alan Campin <alan0307d@xxxxxxxxx>]

I have two command RMVOBJLCKS (Remove Object Locks) and RMVTABLCKS (Remove
Table Locks) that use system API's to find locks and remove them that I
could send you.

                        Remove Object Locks (RMVOBJLCKS)

 Type choices, press Enter.

 Object name  . . . . . . . . . .                 Name
   Library  . . . . . . . . . . .     *LIBL       Name, *LIBL
 Object Type  . . . . . . . . . .                 Character value
 Exclude Beginning Names  . . . .                 Character value
                + for more values

                         Remove Table Locks (RMVTABLCKS)

 Type choices, press Enter.

 Library name to check  . . . . .                 Name
                + for more values
 Exclude Beginning Names  . . . .                 Character value
                + for more values
 Exclude Lock States  . . . . . .                 Character value
                + for more values



On Mon, Aug 25, 2014 at 2: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?
>
> Thanks!
>
>
>
> ______________________________________________________________________
> 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.