Re: ALCOBJ *DTAARA & In *Lock in RPG in same job?

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx>]

Check the 2nd-level text - prior ALCOBJ will not work. IN *LOCK does an 
exclusive lock. You might want to use the E extender (?) in ILE, if 
available, or check the program status for errors.

BTW, the message description is in QRNXMSG.

Maybe

Vern

At 07:57 AM 9/5/2003 -0700, you wrote:
> This seemed logical to do, but am getting RNX0432 "*LOCK for data area
> STUJRNEPRA was not granted" after (in the CL program):
> 1) ALCOBJ OBJ((PRQJRN/PRJRNEPRA *DTAARA *EXCLRD)) WAIT(3)
> 2) called RPG-IV program does an IN *LOCK on this data area so that I can
> update it on the OUT op.
>
> The reason for the ALCOBJ is that I want to ensure that there is only one
> job running this program at any given time.  I am not using any files, so
> I can't allocate that.  And I don't want to set an Active/Inactive status
> flag in the data area to make the determination of whether this is running
> elsewhere in the system, because this NEP job will be subject to being
> ended via ENDJOB, ENDSBS, PWRDWNSYS, etc.
>
> Since I was allocating the data area, I tried taking out the *Lock from
> the In statement, but I got a runtime error when the Out statement tried
> to update the data area.
>
> Advice / suggestions welcomed.
>
> GA