Ver Mensaje Individual
  #7
Antiguo 1 de septiembre de 2017, 19:01
Rapinto
Gran amigo del Foro
Guru de COBOL
Activista del Foro: Activista del Foro - Issue reason: ¡Gracias! Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por ayudar mucho a los foreros Guru de los Gurus: Por solidos y amplios conocimientos - Issue reason: Por saber demasiado! 
Última Actividad 29.01.2018 20:23
Posts Posts: 240
Likes enviados Enviados: 19
Likes recibidos Recibidos: 224

Joseg,
Penso que percebi o que pretendes.

Tens que definir em Special Names:
Código COBOL:
  1.          ENVIRONMENT-NAME IS ENV-NAME
  2.          ENVIRONMENT-VALUE IS ENV-VALUE.

Em seguida, na Procedure Division fazes:

Código COBOL:
  1.     MOVE "MyFILE1"  TO VARNAME.
  2.     DISPLAY VARNAME UPON ENV-NAME.
  3.     ACCEPT  TEXTO FROM ENV-VALUE.
  4.     MOVE TEXTO TO "CAPTION" OF CMSTATIC1.

Espero que ajude
Um abraço,
Rui Pinto
Rapinto is offline   Responder Con Cita