ILE RPG Source in PGU übertragen

[Pikachu]

Das ist auch mit dem CHAIN möglich, falls man den in PGU umsetzen kann...

[DKSPROFI]

Moin,


Du kannst die Logik nicht unbedingt in ein PGU umsetzen, da PGU ein Dialogprogrammgenerator ist, der eine „feste“ Logik hat.

Du kannst allerdings in jedem PGU Punkt - z. B. vor Ausgabe des Formats, nach Ausführung Feldprüfung usw. - eigene Logik einbauen. Also auch CHAIN auch ohne BZZ.
Dabei ist es unerheblich, ob Du „reines“ RPG oder Freeform einbaust.


mfg


DKSPROFI

[Fuerchau]

Ein CHAIN sucht genau den Schlüssel, der ggf. auch verkürzt angegeben werden kann.
Allerdings gilt bei "not %found()" der Zeiger als undefiniert, so dass ein nächster READE a) nicht erfolgreich sein muss oder b) nicht zwingend den nächsten Satz abgibt.
Nur SETLL/SETGT setzt den Dateizeiger für einen nachfolgenden READE/READPE.

Was den Austausch der Anweisung angeht:

SETLL ohne Bezugszahl, anschließend "if not %found()".

Übrigens: Der Status %eof(), %found(), %error() ist für jede Datei statisch bis zu nächsten IO-Anweisung derselben Datei, so dass mit %xxx(Datei) der Status jederzeit erneut prüfbar ist.

[-Totti]

Vielen Dank euch allen für die hilfreichen Antworten!
Ich habe es nun umgesetzt und die Fehlerprüfung funktioniert auch dementsprechend.
Habe nun 2 funktionierende Wege gefunden.
Geht man nach PGU - Basis, funktioniert auch folgendes:

    EXSR      CHKSKEY                       IF        $SCHKERR = 'J' 
 $$RTRN0001    IFEQ      '1'

Danach eben dirket EVAL #MSGDT = ' '

Ihr habt mir auf jeden Fall alle auf die Sprünge geholfen! :-)
Schöne Arbeitswoche noch an alle!