free programmierung rpgle

[kretzsch]

Hallo, habe folgendes Problem:
im free-Format scheint es den Operationscodes GOTO und TAG nicht mehr zu geben. Wie springe ich nun aber von "hier" nach "dort"

Z.B. if felda > 0
goto weiter
endif

weiter tag

Sicher kennt sich jemand besser aus als ich.
kretzsch

[andreaspr@aon.at]

du wirst wohl deine struktur verbessern müssen, wenn du mit Free-Form arbeiten möchtest.

die GOTOs gibts nicht ohne grund nicht mehr in Free-From.

if felda = 0;
leavesr;
oder leave;
oder iter;
oder return;
oder ELSE;
endif;

[Pikachu]

Aus der ILE RPG Referenz von IBM

GOTO (Go To)

Free-Form Syntax (not allowed - use other operation codes, such as LEAVE, LEAVESR, ITER, and RETURN)

[Spateneder]

Die Hinweise auf LEAVE, LEAVESR etc. gehen immerhin von der optimistischen Annahme aus, dass mit GOTO eine Struktur beendet werden soll. Sehr häufig ist der GOTO aber auch einfach nur gleichbedeutend mit:

if fielda <= 0;
(mach alles zwischen GOTO und WEITER);
endif;

Vor allem, wenn die GOTO-Anweisung schon die "modernisierte" Version von CABxx ist.
Auf GOTO kann man wirklich gut verzichten.

[Fuerchau]

GOTO ?
Was ist das denn für ein Befehl, den kenn ich ja seit Jahren nicht mehr .

DO *HIVAL / ENDDO
LEAVE / ITER
SELEC
WHEN
ENDSL
CASXX

Das sind schon lange meine Favoriten.

[kretzsch]

Danke , danke,

manchmal hängt man eben an Altbewährtem