Ver Mensaje Individual
  #4
Antiguo 16 de enero de 2023, 11:15
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

@Josber, amigo, ya lo pillo. Pues esto no lo puedes hacer como tu quieres... pero sí de esta manera:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  COBJECT         OBJECT REFERENCE POW-COBJECT.
  5.  01  OBJETO          OBJECT REFERENCE COM.
  6.  
  7.  01  contenido   pic x(50).
  8.  
  9.  PROCEDURE       DIVISION.
  10.        
  11.      move spaces to contenido
  12.        
  13.      move CmText1 to COBJECT
  14.      
  15.      CALL "POWERCONVTOCOM" USING COBJECT RETURNING OBJETO
  16.      
  17.      invoke OBJETO "SET-Text" using contenido
  18.      



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