Si no recuerdo mal, tendrás que hacer un WRITE al registro de control y a continuación un READ sobre el mismo registro. También te falta un pequeño detalle, en las DDS a niver de registro de control debes incluir INVITE.
-----Mensaje original----- De: [email protected] [mailto:[email protected]] En nombre de Juan Pelaez Enviado el: martes, 03 de marzo de 2009 19:02 Para: 'forum.help400' Asunto: RE: Actualizar Subarchivo Automaticamente 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 __________________________________________________ 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
