×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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
This mailing list archive is Copyright 1997-2024 by midrange.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 on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
