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