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