Re: Help with record lock

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Good catch...didn't realize...

More proof that having names that differ by only 1 character is a bad idea :)

Charles

On Fri, Jul 1, 2011 at 9:18 AM, Jerry C. Adams <midrange@xxxxxxxx> wrote:
> 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.