Ver Mensaje Individual
  #2
Antiguo 27 de febrero de 2015, 15:44
Kuk
Administrador
Última Actividad 21.09.2026 18:24
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

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:
  1. ...
  2. PERFORM UNTIL SW-FILE-STATUS = '10'
  3.     MOVE RE-REGISTRO TO POW-TEXT OF TextBox(IDX)
  4.  
  5.     ADD 1 TO IDX
  6. END-PERFORM



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita