RE: How do I code a GOTO in free format

Steve,

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.

Matt

-----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

Hi

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