RE: Something Wrong with the following Code ? -- RPG400-L

That is the way I understood it for years! Something must have changed
recently. (By "recently," I mean within the last twenty or so.) The code
compiles (to my similar surprise) on V5R3.

I'd like to see Barbara's take on this.

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"There is a theory which states that if ever anyone discovers exactly what
the Universe is for and why it is here, it will instantly disappear and be
replaced by something even more bizarrely inexplicable.

There is another theory which states that this has already happened."
-- The Hitchhiker's Guide to the Galaxy

I was expecting the compile to failed ?

As per IBM documention "A GOTO outside the subroutine cannot be issued
to a BEGSR, ENDSR, or TAG within a subroutine"

"If you think education is expensive, try ignorance"
(Derek Bok, pres. of Harvard Univ. 1971-1990)

Date: Thu, 3 Jun 2010 10:01:20 -0700
Subject: Re: Something Wrong with the following Code ?
From: rory.hewitt@xxxxxxxxx
To: rpg400-l@xxxxxxxxxxxx

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.

--

Rory Hewitt

http://www.linkedin.com/in/roryhewitt
--
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.