free rpg

[Ludger Muhmann]

Wie stelle ich folgende statements in free rpg dar

a) KLIST
b) do *hival ( enddo )
c) *nokey clear satz

Bin für jeden Hinweis dankbar.

[B.Hauser]

Hallo Ludger,

Schlüssel-Listen können erst ab Release V5R2M0 ersetzt werden.
Dazu muss der Schlüssel als Datenstruktur definiert werden.
Schlüssel-Wort EXTNAME(DateiName: *KEY)

Ab Release V5R2M0 ist es ausserdem möglich, die einzelnen Schlüssel direkt aufzulisten:

D KeyADRBL1 DS LikeRec(LLADRBF1: *Key)

/Free
//Zugriff mit Komplettem Schlüssel
Chain %KDS(KeyADRBL1) LLADRBF1;
//Zugriff mit Teilschlüssel
if not Found;
Chain %KDS(KeyADRBL1: 3) LLADRBF1;
endif;

//Zugriff mit Schlüssel-Feldern
Chain (FIRNR: %Xlate(R1KND: Gross: Klein): 'E')
LLADRBF1 DSADRBL1;
/End-Free

DO wird in Free-Format nicht unterstützt
Als Ersatz müssen DoU / DoW oder FOR genommen werden

/Free
DoW 1=1;
Enddo;

DoU 1<>1;
EndDo;

For X;
EndFor;
/End-Free

Clear wird im Free-Format unterstützt.
Für clear gilt, wie für jeden anderen OPCODE geänderte Reihenfolge:
OPCode Faktor1 Faktor2 Ergebnis

/Free
Clear *NoKey Satz;
/End-Free

Noch eine kleine Anmerkung:
In der RPGIV-Referenz ist für jeden OPCode beschrieben, wie er im Free-Format aussieht, bzw. wodurch er ersetzt werden kann.

Birgitta

[loeweadolf]

Danke Birgitta,
Ludger.

( aus technischen Gründen musste ich mich neu anmelden,
jetzt nicht mehr "Ludger Muhmann", sondern "loeweadolf".