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.
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Steve Roper
Sent: Wednesday, July 22, 2009 4:39 PM
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 ...
Re: How do I code a GOTO in free format, (continued)
This mailing list archive is Copyright 1997-2019 by midrange.com 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