RE: Something Wrong with the following Code ?

[Kurt Anderson <kurt.anderson@xxxxxxxxxxxxxx>]

> From WDSCi help on Goto:

"Use a GOTO operation to specify a branch: 

> From a detail calculation line to another detail calculation line 
> From a total calculation line to another total calculation line 
> From a detail calculation line to a total calculation line 
> From a subroutine to a TAG or ENDSR within the same subroutine 
> From a subroutine to a detail calculation line or to a total calculation line."

Thanks,
Kurt Anderson
Sr. Programmer/Analyst
CustomCall Data Systems

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Marc Couture
Sent: Thursday, June 03, 2010 11:37 AM
To: RPG programming on the IBM i / System i
Subject: Something Wrong with the following Code ?



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