Hallo zusammen,


ich habe in einer CMD Definition folgende Definitionen:

PARM KWD(YPARM) TYPE(LISXVAL) MAX(15) +
CHOICE(*NONE) PROMPT('X-Parms Values')
LISXVAL: ELEM TYPE(*CHAR) LEN(30) DFT(*NONE) +
SPCVAL((*NONE)) MIN(0) CHOICE(TEXT) +
PROMPT('Segement Item')
ELEM TYPE(*CHAR) LEN(25) DFT(*NONE) MIN(0) +
CHOICE(WERT) PROMPT('Segement Value Item 1')
ELEM TYPE(*CHAR) LEN(25) DFT(*NONE) MIN(0) +
CHOICE(WERT) PROMPT('Segement Value Item 2')
ELEM TYPE(*CHAR) LEN(25) DFT(*NONE) MIN(0) +
CHOICE(WERT) PROMPT('Segement Value Item 3')
ELEM TYPE(*CHAR) LEN(25) DFT(*NONE) MIN(0) +
CHOICE(WERT) PROMPT('Segement Value Item 4')



Der Befehl sieht so aus:

X-Parms Values:
Segement Item . . . . . . . . > 'Segement Item . . .'
Segement Value Item 1 . . . . > 'Segement Value Item 1'
Segement Value Item 2 . . . . > 'Segement Value Item 2'
Segement Value Item 3 . . . . > 'Segement Value Item 3'
Segement Value Item 4 . . . . > 'Segement Value Item 4'
+ für weitere Werte



Der Benutzer kann also 15 x die 5 Felder füllen.

Im Debugger sieht man die Werte mit binärfeldern.

....5...10...15...20...25...30...35...40...45...50 ...55...60
1 '   Segement Item . . . Segement Value Item 1
61 ' Segement Value Item 2 Segement Value Item 3 Segement
121 'Value Item 4 *YES  ö Ä   legende text4
181 ' legende text3 legende text2
241 ' legende text1 'legende text4' Item 4
301 '' *NONE *NONE
361 ' *NONE *NONE *NONE
421 ' *NONE *NONE
481 ' *NONE *NONE
541 ' *NONE *NONE
601 ' *NONE *NONE *NONE



Kennt jemand den Aufbau wie sich die Felder zusammensetzten
und wie man diese verarbeiten kann?

Die Binärfelder verschieben sich.
Je nach Anzahl der Einträge.

Gruss
Michael