ILE RPG Source in PGU übertragen

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