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):
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

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.


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

This mailing list archive is Copyright 1997-2015 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact