Yo uso lo siguiente.
Defino en las dds de pantalla la palabra Vldcmdkey(25). Este indicador se enciende cuando pulsan cualquier tecla de mandato valida, es decir si después del exfmt el indicador está apagado sólo puede ser el INTRO. Saludos De: [email protected] [mailto:[email protected]] En nombre de Javier Mora Enviado el: martes, 06 de abril de 2010 10:11 Para: forum.help400 Asunto: RE: Tecla ENTER por programa Creo que por DDS se puede identificar la tecla Intro mediante un indicador. Yo no he utilizado nunca este método. Tienes otra opción, consiste en averiguar dentro del programa RPG cual ha sido la última tecla de función pulsada. En la declaración de archivo de pantalla en la hoja H utiliza lo siguiente: FMAN001W CF E WORKSTN F InfDs( infDsp ) En el programa RPG define la estructura de datos "infDsp": D InfDsp DS D Qualified D key 1A Overlay( InfDsp: 369 ) La tecla Intro corresponde con el valor hexadecimal X'F1', así que en tu programa podrás averigual si se ha pulsado la tecla haciendo la siguiente comparación: If InfDsp.key = X'F1' Esta técnica se puede elaborar un poco más con archivos de cabecera (/copy) y también se puede utilizar para detectar la pulsación de otras teclas de función. Espero te sirva de ayuda. Javier Mora ________________________________ De: [email protected] [mailto:[email protected]] En nombre de Carlos Pedrozo Enviado el: lunes, 05 de abril de 2010 21:23 Para: [email protected] Asunto: Tecla ENTER por programa Hola Foro; Alguno de Uds no tiene un ejemplo de tecla enter por pgm? Por ejemplo si el Operador presiono Enter, para realizar un evento. Gracias de antemano. Carlos Pedrozo ________________________________ Hotmail: Free, trusted and rich email service. Get it now. <https://signup.live.com/signup.aspx?id=60969>
____________________________________________________ © Publicaciones Help400, S.L.
