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