@orlando, Hola , en el ejemplo que te pase , de turnos , utiliza el timer para leer el archivo de turnos y mostrarlo en pantalla
Timer : dentro
rutina monitoreo
Código COBOL:
PROCEDURE DIVISION.
MOVE FEC-DD TO MON-DD.
MOVE FEC-MM TO MON-MM.
MOVE FEC-SG TO MON-SG.
MOVE FEC-AA TO MON-AA.
READ MONITOR.
MOVE MON-CODIGO-1 TO "Caption" OF CONTADOR-1.
MOVE MON-CODIGO-2 TO "Caption" OF CONTADOR-2.
INVOKE POW-SELF "Refresh".
UNLOCK MONITOR.