RE: Something Wrong with the following Code ?

Rory,

I hadn't even noticed that. That is, of course, if it would even compile. But still very good catch.

Jerry C. Adams
IBM System i Programmer/Analyst
--
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx

Hating the Yankees isn't part of my act, it is one of those exquisite times when life and art are in perfect conjunction. -Bill Veeck


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Rory Hewitt
Sent: Thursday, June 03, 2010 12:01 PM
To: RPG programming on the IBM i / System i
Subject: Re: Something Wrong with the following Code ?

Aside from the fact that the code will loop?

Your INUSE subroutine does a GOTO to immediately *before* the EXSR INUSE, so
it will keep running the INUSE subroutine.



On Thu, Jun 3, 2010 at 9:37 AM, Marc Couture <couturem@xxxxxxxxxxx> wrote:

C BEG TAG

C ExSr INUSE

C Eval *InLr = *On


*--------------------------------------------------------------------------------------------*

* Check For Record In Use Error *


*--------------------------------------------------------------------------------------------*

C INUSE BegSr

C If *In01 = *Off

C Eval *In01 = *ON

C Else

C Eval *In01 = *OFF

C EndIf

C GOTO BEG

C EndSr




--
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.