Mover datos de un CmList

[Breew]

Hola.

He generado una pequeña descripcion de los campos de un resumen en un cmlist.

Me preguntaba si es posible pasar los datos del interior a otro campo para generar un Informe impreso, por ejemplo

move "text" of Cmlist1 to P-decripcion1.

Gracias

[Rapinto]

Breew

Experimenta assim:

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