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.
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.