Re: Help with record lock

A bit confuse here. Your email subject indicates "...record lock" but email
content says you use WRKOBJLCK to determine if lock is released. WRKOBJLCK
determines lock at the Object (file) level. Record lock is at the file
record level. Are you trying to resolve a record lock or file lock issue?



"Willie J. Moore"<WJMoore@xxxxxxxxxxxx> wrote in message
news:mailman.208.1309468264.2630.rpg400-l@xxxxxxxxxxxx...
There are times when you think you know what you are doing and then RPG says
no you don't.
I am having trouble in clearing a record lock in the following program. I
check for a lock using the WRKOBJLCK command.

C againgood tag

C exsr clrscn
C exfmt scrn01
C read zzuser2
C*
C write zzuser
C unlock zzuser2
C time dtime
C exfmt scrn01
C end
C goto againgood
C*
C ENDLR tag
C seton LR

I want the file zzuser2 to be released after the write. When I check the
file it shows the file is still locked even after the 'unlock' as processed.
Any help would be greatly appreciated.


William Moore
California Fine Wire
805-489-5144
wjmoore@xxxxxxxxxxxx