Saludos,
Pues algo se me escapa dado que la pantalla NO hace nada, yo creo que el lio
lo tengo con el write y el read, veamos esta la pantalla :
A*%%TS SD 20090303 173615 JUAN2 REL-V5R4M0 5722-WDS
A*%%EC
A DSPSIZ(24 80 *DS3)
A R PAN00
A*%%TS SD 19990211 114642 JUAN2 REL-V2R3M0 5738-PW1
A ASSUME
A 1 3' '
A R PAN01 SFL
A*%%TS SD 20090303 173615 JUAN2 REL-V5R4M0 5722-WDS
A SFLNXTCHG
A PCDIA R O 5 3REFFLD(RRPR/RPDIAO
*LIBL/PEDRUTA)
A PCMES R O 5 6REFFLD(RRPR/RPMESO
*LIBL/PEDRUTA)
A PCA¥O R O 5 9REFFLD(RRPR/RPA¥OO
*LIBL/PEDRUTA)
A PCPEDI R O 5 31REFFLD(RRPR/RPPEDI
*LIBL/PEDRUTA)
A PCCLIE R O 5 39REFFLD(RHISCAB/ACCCLI
*LIBL/HISCAB)
A PCHO R O 5 14REFFLD(PLIS/PCHO *LIBL/REPELIS)
A PCMI R O 5 17REFFLD(PLIS/PCMI *LIBL/REPELIS)
A PCSE R O 5 20REFFLD(PLIS/PCSE *LIBL/REPELIS)
A PCALMA R O 5 23REFFLD(RRPR/RPALM *LIBL/PEDRUTA)
A PCTPV R O 5 27REFFLD(RRPR/RPTPV *LIBL/PEDRUTA)
A NOM24 16A O 5 46
A PCPOB14 14A O 5 63
A SEL 1 B 5 1
A R PAN02 SFLCTL(PAN01)
A*%%TS SD 20090303 171445 JUAN2 REL-V5R4M0 5722-WDS
A CF03(03)
A 50 INVITE
A OVERLAY
A 50 SFLDSP
A 50 SFLDSPCTL
A 51 SFLCLR
A 50 SFLEND
A SFLSIZ(0016)
A SFLPAG(0015)
A SFLMSG('F3-¯ Salir')
A WINDOW(2 1 21 76)
A 4 23'Alm'
A DSPATR(UL)
A DSPATR(HI)
A 4 27'TPV'
A DSPATR(UL)
A DSPATR(HI)
A 4 31'N§ PEDI'
A DSPATR(UL)
A DSPATR(HI)
A 4 39'CodCli'
A DSPATR(UL)
A DSPATR(HI)
A 2 60'IMPú¯'
A DSPATR(RI)
A COLOR(YLW)
A IFIMP R O 2 66REFFLD(REGF/IFIMP
*LIBL/IMPREFAC)
A DSPATR(HI)
A 4 3' Fecha '
A DSPATR(UL)
A DSPATR(HI)
A 4 14' Hora '
A DSPATR(UL)
A DSPATR(HI)
A 4 63' Poblaci¢n '
A DSPATR(UL)
A DSPATR(HI)
A 4 46' Nombre Cliente '
A DSPATR(UL)
A DSPATR(HI)
A 4 1'*'
A DSPATR(HI)
A COLOR(YLW)
A DSPATR(UL)
A 2 25' Gesti¢n PEDIDOS LISTADOS '
A DSPATR(UL)
A DSPATR(HI)
¿ me puedes decir cual debería lanzar por Write y cual por Read ?.
Gracias.
-----Mensaje original-----
De: [email protected]
[mailto:[email protected]] En nombre de Ismael Ruiz
Enviado el: viernes, 27 de febrero de 2009 11:22
Para: forum.help400
Asunto: Re: Actualizar Subarchivo Automaticamente
Hola,
Contado de una forma muy esquemática, lo que propones es tan sencillo como
realizar los siguientes pasos:
1- Vuelve a compilar el archivo de pantalla con el parámetro WAITCRD con los
segundos que tu quieres que espere la pantalla como tiempo de inactividad.
2. En el programa define lo siguiente en la hoja D ( en el caso de que sea
RPPG).
D INFDS DS
D TIEMPO *STATUS
3. En la hoja C cambia el EXFMT de la pantalla, por un WRITE y después por
un READ. Importante: esta última instrucción (el read) ha de ser sobre el
archivo de pantalla, no sobre el registro. Además tienes que encender un
indicador por menor y otro por igual.
WRITE MDT01
Registro de mandatos
WRITE CTL01
Registro de control
READ REOP05 1515
Archivo de pantalla
4. Inmediatamente después de la lectura del archivo, tienes que comprobar si
se ha activado el temporizador (campo TIEMPO igual al valor 1331) para
recargar el subarchivo o actualizarlo.
TIEMPO IFEQ 1331
EXSR BORSUB
GOTO INICIO
ENDIF
5. Debajo de estas líneas de programa conservas las que tu ya tenías para
cuando el usuario ha ejecutado alguna acción.
Saludos.
----- Original Message -----
From: "Juan Pelaez" <[email protected]>
To: <[email protected]>
Sent: Friday, February 27, 2009 8:39 AM
Subject: Actualizar Subarchivo Automaticamente
Buenos días,
Necesitaba saber como puedo actualizar un subarchivo de forma automatica
cada x minutos sín utilizar un bucle, se que en Cl hay una sentencia que
"espera" xxx segundos, el programa permanecerá abierto y debe
"refrescar" la pantalla para actualizar la información que está mostrando.
¿ Alguna idea ?.
Gracias,
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de ServerNEWS.
&#169; 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
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de ServerNEWS.
&#169; 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
__________ Información de ESET Smart Security, versión de la base de firmas
de virus 3893 (20090226) __________
ESET Smart Security ha comprobado este mensaje.
http://www.eset.com
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de ServerNEWS.
&#169; 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
