Jerry,
The file (zzuser2) has the same record format (zzuser2) and the same field name (zzuser2).
This is a Mapics error file. So I had to rename the format. I think that is what is givening me fits.
William Moore
California Fine Wire
805-489-5144
wjmoore@xxxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry C. Adams
Sent: Friday, July 01, 2011 6:18 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Help with record lock
Charles,
Willie was reading ZZUSER2 but writing to ZZUSER; ergo the WRITE would not release the record lock. READ(n) ZZUSER2 would prevent the lock in the first place, but there may be a good reason why Willie wanted to lock ZZUSER2's record; can't tell from the code.
Jerry C. Adams
IBM i Programmer/Analyst
You'll never make it - four groups are out. Go back to Liverpool. - Decca Records executive to the Beatles (1962)
--
A&K Wholesale
Murfreesboro, TN
615-867-5070
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Charles Wilt
Sent: Friday, July 01, 2011 7:27 AM
To: RPG programming on the IBM i / System i
Subject: Re: Help with record lock
And if the record is still locked...are you using commitment control by chance?
You'd need to COMMIT before the lock would be released.
If not using commitment control, the reocrd lock will be released after the write, no UNLOCK required.
Charles
On Thu, Jun 30, 2011 at 5:15 PM, James Lampert <jamesl@xxxxxxxxxxxxxxxxx>
wrote:
Willie J. Moore wrote:
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.
The file is locked, or the record?
UNLOCK unlocks a record or a data area.
But to unlock the file (and the member), you would have to close it.
--
JHHL
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
