[Sintaxis] Control de teclas pulsadas

[Kuk]

@lumalma, yo utilizo en tu caso el evento Change y funciona de maravilla incluso si pegas un texto copiado:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 LINKAGE         SECTION.
 01  POW-ARG-KEYASCII PIC S9(4) COMP-5.
 PROCEDURE       DIVISION USING POW-ARG-KEYASCII.
     
     EVALUATE POW-ARG-KEYASCII
         
         WHEN POW-KEY-A
         WHEN POW-KEY-B
         WHEN POW-KEY-C
         WHEN POW-KEY-D
         WHEN POW-KEY-BACK
             CONTINUE
         
         WHEN OTHER
             MOVE POW-KEY-CANCEL TO POW-ARG-KEYASCII
     
     END-EVALUATE
     

[lumalma]

Hola
@Josber, @Kuk, gracias por vuestras respuestas.

@Josber, en el evento MouseUp todavía no he pegado el carácter en el TextBox con lo que tengo que comprobarlo en el evento Change.

@Kuk, he probado en el evento Change pero este evento no tiene el parámetro POW-KEY-ASCII. He puesto el código en el evento KeyPress y si no me he confundido funciona bien. Puede ser que hayas puesto que es el evento Change cuando es el evento KeyPress?

Un saludo

[Kuk]

@lumalma, efectivamente me he confundido. Es el evento KeyPress y no el Change.... El calor hija que hace evaporar las neuronas que nos quedan

Le he añadido la conversión de minúsculas a mayúsculas porque por lo que veo no hay constantes diferenciadas para ello en Power, con lo cual, con minúsculas no funcionaba antes:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 LINKAGE         SECTION.
 01  CHAR.
     05  LETRA        PIC X.
     05  FILLER       PIC X.
 01  POW-ARG-KEYASCII  REDEFINES CHAR PIC S9(4) COMP-5.
 
 PROCEDURE       DIVISION USING POW-ARG-KEYASCII.
     
     INSPECT LETRA CONVERTING
         "abcd" TO "ABCD"
          
     EVALUATE POW-ARG-KEYASCII
         
         WHEN POW-KEY-A THRU POW-KEY-D
         WHEN POW-KEY-BACK
             CONTINUE
         
         WHEN OTHER
             MOVE POW-KEY-CANCEL TO POW-ARG-KEYASCII
     
     END-EVALUATE
     

[lumalma]

Estupendo @Kuk, gracias