Este ejemplo que te mando funciona. No trata un subfichero pero es muy sencillo
y te permitirá hacer pruebas.
Espero te sirva de ayuda.
________________________________
De: [email protected]
[mailto:[email protected]] En nombre de Juan Pelaez
Enviado el: miércoles, 04 de marzo de 2009 13:00
Para: [email protected]
Asunto: Me sabe mal pero... NO consigo actualizar una pantalla automáticamente.
Saludos,
A pesar de todas vuestras explicaciones y ejemplos mi pantalla no se actualiza
automáticamente. No caigo con el error,
Lo he probado con pantallas normales y tipo Window, he revisado que no falte
nada ( INVITE ) el write y el read pero
cuando visualizo la pantalla no hace nada, he compilado la pantalla con el
parámetro WAITRCD en 15 ( segundos ) pero nada.
Algunas preguntas :
- No habrá algún parámetro del sistema a modificar ?.
- En la pantalla registro de control puede haber campos INPUT ?,
pienso que debe pero ....
- En último extremo puede alguien enviarme algún ejemplo ?
GRACIAS a TODOS.
FAUTOREF2W CF E WORKSTN MAXDEV(*FILE) USROPN
D QCMDEXC PR ExtPgm('QCMDEXC')
D Command 32702A const options(*varsize)
D Length 15P 5 const
D Cmd s 1000A varying
D TimeFld s T
c exsr OpenFile
c dou *INKC = *ON
c time TimeFld
c *HMS move TimeFld TheTime
c write AUTOREF2S1
c read(e) AUTOREF2W
c if %status = 1331
C*** read from display timed out!
c else
c datain dsply
c endif
c enddo
c exsr CloseFile
c eval *inlr = *on
*=================================================================
* Attach a data queue to the display file
*=================================================================
Csr OpenFile begsr
*------------------------
c eval Cmd = 'OVRDSPF FILE(AUTOREF2W) ' +
c 'WAITRCD(5)'
c callp QCMDEXC(Cmd: %len(Cmd))
c open AUTOREF2W
*------------------------
Csr endsr
*=================================================================
* Detach the data queue from the display file
*=================================================================
Csr CloseFile begsr
*------------------------
c close AUTOREF2W
c eval Cmd = 'DLTOVR FILE(AUTOREF2W)'
c callp QCMDEXC(Cmd: %len(Cmd))
*------------------------
Csr endsr
A DSPSIZ(24 80 *DS3)
A R AUTOREF2S1
A CF03
A INVITE
A 11 30'The time is:'
A THETIME 8 O 11 43
A 23 2'F3=Exit'
A 14 30'Data in:'
A DATAIN 10 B 14 40
__________________________________________________
Forum.HELP400 es un servicio más de ServerNEWS.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
