Re: need ALCOBJ type lock released when program ends

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Steve mentioned he's hesitant to introduce a different activation group as
he is using commitment control.

Charles

On Wed, May 26, 2021 at 10:57 PM D*B <dieter.bender@xxxxxxxxxxxx> wrote:

> <Steve>
> is it possible to have a CL program run ALCOBJ to get an *EXCLRD lock on
> an
> object. Then be guaranteed that once the CL program ends, the lock will be
> released?
> </Steve>
>
> ACTGRP(*NEW) and CEE4RAGE could do this. As I don't use CL since more than
> 15 years, I don't have an CL example, but lots of RPG (using CEE4RAGE for
> cleanup work is standard in all my programms.
> For instance here: http://bender-dv.de/Sourcen/QRPGLESRC.HASHTABLE (have
> a
> look on subprocedures init and exit. init registers procedure exit as exit
> handler, put your DLCOBJ in procedure exit and the runtime calls the
> procedure , when the ACTGRP ends - regardless why and when this happens.
>
> D*B
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com