ILE RPG Source in PGU übertragen

[Fuerchau]

Geht alles ohne BZ:

setll(e)
read(e)
reade(e)
readpe(e)
chain(e)
write(e)
delete(e)
update(e)

if %found()
if %eof()
if %error(); // früher Fehler-BZ, nun xxx(e)

[-Totti]

Erstmal vielen Dank für deine schnelle Antwort! :-)

Wie würde man folgendes zb. Umsetzen? Hier möchte ich prüfen ob die Tour passt, die angegeben wurde. Die Eingabe wird in einer Tabelle überprüft und dann geschaut, ob das Eingegebene eben dem Wert in der Tabelle entspricht.

TOURF2        IFNE      *BLANK                                                 MOVEL(P)  TGTOUR        GRUPTW                     
              MOVEL(P)  TOURF2        WERTTW                     
KEYTAB        SETLL     TABWERRC                               99
*IN99         IFEQ      *OFF                                     
              SETON                                        4666

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