Breew
Experimenta assim:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 COUNTER PIC 9(005).
01 CAMPO1 OCCURS 100 PIC X(512).
PROCEDURE DIVISION.
* COUNT ITEMS IN CMLIST
MOVE "ListCount" OF CMLIST1 TO COUNTER.
IF COUNTER = 0 GO TO MAIN-99.
* LOOP EACH ONE TO MOVE TO CAMPO1
PERFORM VARYING IDX1 FROM 1 BY 1 UNTIL IDX1 > COUNTER
MOVE IDX1 TO "ListIndex" OF CMLIST1
MOVE "SelString" OF CMLIST1 TO CAMPO1(IDX1)
END-PERFORM.
* IN CAMPO1 ARRAY YOU HAVE ALL DATA
MAIN-99.
EXIT PROGRAM.
Un saludo
Rui