Re: Accessing the RRN of a locked record

[Peter Dow <petercdow@xxxxxxxxx>]

There is a pretty old (1999) discussion of this in the midrange.com 
archives.  Chris Bipes wrote the bit that I think is relevant: 
https://archive.midrange.com/rpg400-l/199906/msg00507.html

Basically, if you're getting a record-locked error, the message contains 
the job that locked the record (so you don't need to do the extra call), 
and that info is in the program status data structure.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx> /

On 5/7/2021 8:03 AM, dfreinkel@xxxxxxxxxxxxxxxxx wrote:
> Here's another challenge.
>
>   
>
> Again it's a RPG/400 OPM program.
>
>   
>
> I need to get the RRN (relative record number) of a record locked by another
> job.
>
> I added the INFDS for the file, but when I CHAIN to the record, the RRN is
> not populated into the data structure because the record was not read.
>
> Does anyone know of a method to get the RRN of the locked record?
>
>   
>
> I use the RRN to call another utility program that uses SELECT * FROM
> QSYS2.RECORD_LOCK_INFO which gives me the job that is locking the record.
>
>   
>
> Thanks
>
> Darryl Freinkel
>
> A4G
>
> Telephone: 770.321.8562 Mobile: 678.355.8562
>
>