Puedes recuperar el valor del byte devuelto con la pulsación de cada tecla de 
función mediante la INFDS del archivo de pantalla

Por ejemplo:

d INFDSP          ds              
d  TeclaFuncion         369    369

Yo tengo un copy con todos los valores devueltos y los asigno a constantes con 
nombre.
El valor de la tecla Intro es: X'F1'. así que por ejemplo en tu caso podrías 
definirte lo siguiente:

d Intro           c                   const(X'F1') 


Y en el programa preguntar por: 
IF TeclaFuncion = Intro;
...
ENDIF;

Espero te sirva.


      
____________________________________________________
© 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

Responder a