[Sintaxis] Volcar registros de un fichero hacia varios CmText

[Breew]

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

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?

[Kuk]

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:

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