View Full Version : free programmierung rpgle
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
22-02-10, 11:27
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;
Aus der ILE RPG Referenz von IBM (http://publib.boulder.ibm.com/infocenter/iadthelp/v7r0/topic/com.ibm.etools.iseries.langref.doc/c092508602.htm)
GOTO (Go To)
Free-Form Syntax (not allowed - use other operation codes, such as LEAVE, LEAVESR, ITER, and RETURN)
Spateneder
23-02-10, 12:10
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.
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.
Danke , danke,
manchmal hängt man eben an Altbewährtem :rolleyes: