Re: Something Wrong with the following Code ?

[Michael Ryan <michaelrtr@xxxxxxxxx>]

On further review (looking at the manual), you *can* branch out of a
subroutine within the same procedure. I don't believe you can branch into a
subroutine.

On Thu, Jun 3, 2010 at 1:08 PM, Jerry Adams <Jerry@xxxxxxxxxxxxxxx> wrote:

> Well, first GOTO's are frowned upon.  Second, one cannot branch out of a
> subroutine.
>
> One can do this:
>
> A       IFEQ    B
>        (do stuff)
> X       TAG
>        (do more stuff
>        ELSE
>        (do other stuff
>        GOTO    X
>        ENDIF
>
> Charlie and I had a debate with another guy at COMMON years ago about
> whether or not this was structured code.  Charlie and I just rolled out eyes
> in disbelief.  But it will compile and execute.
>
> Jerry C. Adams
> IBM System i Programmer/Analyst
> --
> B&W Wholesale
> office: 615-995-7024
> email:  jerry@xxxxxxxxxxxxxxx
>
> You can look it up. -Casey Stengel
>
>
> -----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
>
>
>
>
> --
> 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.