Re: Record already locked to this job? Hans?

["Alan Cassidy" <acassidy@xxxxxxxxxxxxxxxxx>]

Wait a minute. My first questoin, if the record was not found, which would
kick in the "Else" code, how could there be a record lock on it? What did I
miss?

__Alan


----- Original Message -----
From: "William A.(Tony) Corbett" <corbett@ASRESOURCES.COM>
To: <rpg400-l@midrange.com>
Sent: Thursday, August 15, 2002 8:17 AM
Subject: Record already locked to this job? Hans?


> Hi,
> What makes the "record manager" so much smarter under ILE?
> I've seen this error a few times on programs converted to ILE, but ran OK
in
> RPG400.
> RPGIV / ILE / whatever seems to be a lot "smarter" about this than OPM
did.
>
> I'm just wondering why.
>
> This kind of thing is an argument used against converting to RPGIV / ILE.
> This seems as though it would be a function of the "record manager", not
the
> "environment".  Is this somehow caused by the new&improved activation
group?
>
> My latest example showing this problem is:
> C     kholdk        Chain     qlvf020d
> C                   If        %found(qlvf020d) And @lotohqty > *Zero
> C                   Eval      lbqoh  = lbqoh + @lotohqty
> C                   Update    ql020d
> C                   Else
> **** this goes and chains the same record, generating the error
>
> I added an UnLock(E) following the else.  Really should split the If, but
> the unlock was quicker.
> I realize this is a legitimate problem, but RPG400 (OPM) didn't care.
>
> This seems to be more of a "midrange-l" question, but after I added a
little
> RPG code, I changed to rpg400-l.
>
> TIA
>
> AS/Resources, Inc.
> William A.(Tony) Corbett
> IBM Certified Specialist - AS/400 Developer
> http://www.asresources.com
> corbett@asresources.com
> 770-587-4812 (office)
> 678-935-5006 (mobile)
> fax:  404-663-4737
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>