@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:
Código COBOL:
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