Cobol Foro - [Sintaxis] Volcar registros de un fichero hacia varios CmText

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Sintaxis] Volcar registros de un fichero hacia varios CmText (https://www.cobolforo.es/showthread.php?t=53)

Volcar registros de un fichero hacia varios CmText

Hola Amigos.

Tengo una nueva duda.
Quisiera volcar el contenido de un fichero en varios cmtext , pero no encuentro la manera de hacerlo en un solo golpe.
La idea seria

Código COBOL:

inicio.
        open fichero.
        cont = 1.
leo-fichero.
        read fichero at end go adios.
        move campo1 of fichero to "Text" OF "CMTEXT(cont)".
        add 1 to cont.
        go fichero.
adios.
        close fichero.

Alguna idea?

Breew, tienes que seleccionar en modo diseño los CmText en los que quieres volcar los datos y haciendo click con el boton derecho crear un ARRAY y darle un nombre, por ejemplo TextBox. De esta manera el conjunto de CmText-s se convierte en una sola unidad llamada TextBox y a cada uno de los CmText que componen la nueva unidad TextBox se les asigna un indice automaticamente. Luego haces un bucle y lo siguiente lo metes en el bucle de lectura:

Código COBOL:

...
PERFORM UNTIL SW-FILE-STATUS = '10'
    MOVE RE-REGISTRO TO POW-TEXT OF TextBox(IDX)
 
    ADD 1 TO IDX
END-PERFORM