Hola, primero te comento que tienes que tener la palabra clave infds con una estructura de datos que recibe el error y una subrutina que se ejecutar� cuando se produzca. Todo se limita a que provocas un error en la pantalla al estar un tiempo determinado sin hacerla servir y desde el programa lo controlas.
Te envio como lo tengo definido yo en un programa. La pantalla ahora de la busco, y tambien un poco de documentacion m�s detallada, pero prueba primero con esto:
0001.00 FARC162FM CF E WORKSTN Sfile(DATOS:NRR)
0002.00 F Infds(Pantds)
0003.00 F maxdev(*file)
0004.00 F Infsr(Srerror)
*
0017.00 D sDS
0018.00 D WSPGM *proc
0019.00 *
0020.00 DPantds DS
0021.00 D Errpant *status
0022.00 *
0138.00 C Srerror Begsr
0140.00 C Select
0141.00 C When Errpant= 1331 OR Errpant = 1255
0142.00 C Seton 12
0143.00 C Endsl
0144.00 C Move '*GETIN' retorn
0145.00 C Endsr RETORN
| Javier Mora <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED] 23/02/05 10:52
|
|
> -----Mensaje original-----
> De: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]
> Enviado el: mi�rcoles, 23 de febrero de 2005 8:05
> Para: [email protected]
> Asunto: Re: Refresco autom�tico de un subarchivo
>
>
> Hola. Yo lo tengo en varios programas con subfichero y me funciona, pero
> compilo directamente la pantalla con waitcrd(20),total, si dentro del
> programa no controlas el error,este valor tampoco molesta. Puedes hacer la
> prueba de poner el fichero de pantalla con este valor con un chgdspf y
> mirar si te funciona,como minimo descartarias la posibilidad de que sea
> culpa del ovrdspf.
>
He realizado esta prueba y tampoco consigo refrescar el subarchivo.
La �nica diferencia que veo con una pantalla normal es que el subarchivo
est� solapado sobre un registro que muestra las teclas de funci�n. Por lo
dem�s est� todo igual. �Me puedes enviar un ejemplo para comparar?
>
> Un saludo,
>
Javier Mora
Dpto. Inform�tica
Dialsur S.A.U.
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
