CL Parameterübergabe als Datenstruktur

[Chris.jan]

Es gibt da einen Trick, damit kann man sich ständigere Änderungen in der Struktur ersparen. Wenn Du eine Datei definierst, deren Satzstruktur der Parameterstruktur entspricht.
Dann schreibst Du die Parameter kurz in die Datei, und im CL arbeitest Du mit DCLF und RCVF. Dann sind alle Felder automatisch als Variabel definiert.
Außerdem kannst Du das Satzformat bereits im RPG-Programm nutzen um die Parameter-DS zu definieren.

Vielleicht etwas antik die Methode, aber sie funktioniert bestens.

[camouflage]

So hab ich's schliesslich auch gelöst - auf die gute alte Tour.

@Baldur
Die Methode mit den Pointern wird schon gangbar sein, ein genaueres Studium wollte ich mir jedoch nicht antun. Schliesslich möchte ich ja eine Lösung die ich auch nach zwei Jahren noch verstehe und nicht einen halben Tag zum einlesen brauche ;-))

Wie schon erwähnt, eigentlich wollte ich einen ganzen String als Parameter übergeben und mit einem DCLF-Overlay diesen segmentieren. Geht halt nicht im CL und das ist nicht gut so. Schade.

[harkne]

Hallo, ist lange her dieser Thread. Inzwischen geht es. Ich weiß leider nicht ab welchem Release.

Beispiel:

DCL VAR(&P3_PARM) TYPE(*CHAR) LEN(1000)
DCL VAR(&P3_RES) TYPE(*CHAR) STG(*DEFINED) +
LEN(1) DEFVAR(&P3_PARM 1)
DCL VAR(&P3_PGM) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&P3_PARM 2)
DCL VAR(&P3_AUTO) TYPE(*CHAR) STG(*DEFINED) +
LEN(1) DEFVAR(&P3_PARM 12)
DCL VAR(&P3_PROZ) TYPE(*CHAR) STG(*DEFINED) +
LEN(3) DEFVAR(&P3_PARM 13)

Also zumindest das mit der Datenstruktur. Nicht mit e ds

[Fuerchau]

Stimmt auffallend.
Die obige Lösung mit dem DCLF hilft halt nur bei der Übergabe als einzelne Felder.