Tema: Hacer referencia a un "Name" con una variable
Ver Mensaje Individual
  #17
Antiguo 18 de enero de 2023, 12:46
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207
Predeterminado
0
Likes

None...

Inactivo Inactivo
@Josber, te estás liando yo creo

Posibilidad Nº1 utilizando OBJECT-REFERENCE nombre_de_la_clase:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  misTextBox.
  5.      05 miTextBox occurs 3 times OBJECT REFERENCE AMixed-DCmTextbox-Main-with-DCfGroupItem-Main.
  6.  
  7.  01  nombreTextBox pic x(20).
  8.  01  contenTextBox pic x(30).
  9.  01  idx           pic 9(4) comp-5.
  10.  PROCEDURE       DIVISION.
  11.      
  12.      move "Hola Josber"   to "Text" OF CmText1
  13.      move "Esta es la"    to "Text" OF CmText2
  14.      move "posibilidad 1" to "Text" OF CmText3
  15.           
  16.      move CmText1 to miTextBox(1)
  17.      move CmText2 to miTextBox(2)
  18.      move CmText3 to miTextBox(3)
  19.      
  20.      move 1 to idx
  21.      
  22.      perform until idx > 3
  23.          move "Name" OF miTextBox(idx) to nombreTextBox
  24.          move "Text" OF miTextBox(idx) to contenTextBox
  25.          
  26.          display "Nombre: " nombreTextBox "   contenido: " contenTextBox
  27.          
  28.          add 1 to idx
  29.      end-perform 
  30.          

Posibilidad Nº2, pasando por COM/OLE:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  COBJECT         OBJECT REFERENCE POW-COBJECT.
  5.  
  6.  01  misTextBox.
  7.      05 miTextBox occurs 3 times OBJECT REFERENCE COM.
  8.      
  9.  01  nombreTextBox pic x(20).
  10.  01  contenTextBox pic x(30).
  11.  01  idx           pic 9(4) comp-5.
  12.  PROCEDURE       DIVISION.
  13.        
  14.      move "Hola Josber"   to "Text" OF CmText1
  15.      move "Esta es la"    to "Text" OF CmText2
  16.      move "posibilidad 2" to "Text" OF CmText3
  17.      
  18.      move CmText1 to COBJECT
  19.      CALL "POWERCONVTOCOM" USING COBJECT RETURNING miTextBox(1)
  20.      
  21.      move CmText2 to COBJECT
  22.      CALL "POWERCONVTOCOM" USING COBJECT RETURNING miTextBox(2)
  23.      
  24.      move CmText3 to COBJECT
  25.      CALL "POWERCONVTOCOM" USING COBJECT RETURNING miTextBox(3)
  26.      
  27.      move 1 to idx
  28.      
  29.      perform until idx > 3
  30.          invoke miTextBox(idx) "GET-Name" returning nombreTextBox
  31.          invoke miTextBox(idx) "GET-Text" returning contenTextBox
  32.          
  33.          display "Nombre: " nombreTextBox "   contenido: " contenTextBox
  34.          
  35.          add 1 to idx
  36.      end-perform 
  37.      
  38.      


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