RE: Something Wrong with the following Code ?

I'm with Dennis; this is a change (and not necessarily a good one in my opinion). Because my compiles blew off years ago if I tried something like this, I never tried again. So I have no idea when the change occurred - or why.

I do remember decades ago (on another system) actually compiling a program that issued a GOTO in detail calcs to the first line in total calcs. Anyone who knows the Cycle knows that this is a very bad idea (which is how and why I learned the Cycle, by the way); the program went into a loop, but not one intuitively obvious from looking at the compilation listing. When we moved to a System/3 I tried it just for laughs, and it issued a compile error.

Hey, Rob, did you do a DCR for this?! Now because someone actually did it, IBM won't accept another DCR to fix it.

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

This ain't a football game. We do this every day. -Earl Weaver


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

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