There is no free form replacement for GOTO and TAG. It sounds like the correct way to convert this to free format is to re-code the logic so you don't need the GOTO in the first place. The easiest fix would be to wrap the code you want to skip in an if statement but you may also want to consider breaking the logic into smaller steps so you don't need to many levels of nested IF's.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Steve Roper
Sent: Wednesday, July 22, 2009 4:39 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: How do I code a GOTO in free format


Can anyone help please I am converting an old RPG program
into RPG IV free format

The program uses a GOTO and TAG to exit from the middle of a
three level nesting of IF's

And needs to bypass much more code after the highest ENDIF,
this is all dependent on a

Flag returned from an external program.

I cannot call the external program earlier or later in the
cycle as it would negate other checks

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].