[Sintaxis] 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