Hola buenas tardes!
soy nuevo en el foro y tambien en cobol.
intento hacer un programa en cobol que es muy sencillo y solo consiste en recuperar el valor del teclado apretado por el usuario. el codigo es muy corto :
Código COBOL:
IDENTIFICATION DIVISION.
PROGRAM-ID. Hello.
WORKING-STORAGE SECTION.
01 TOUCHE PIC 9(2).
PROCEDURE DIVISION.
DisplayPrompt.
DISPLAY 'Hello world'
PERFORM UNTIL TOUCHE NOT = ZEROS
ACCEPT TOUCHE FROM ESCAPE KEY END-ACCEPT
DISPLAY TOUCHE
END-PERFORM
DISPLAY TOUCHE
STOP RUN
.
cuando ejecuto esto con COBOLIT se queda encerrado en un blucle y el valor de la variable TOUCHE se queda siempre a 00 aunque apriete todas las teclas.
he visto que era posible desbloquear las teclas con un
Código COBOL:
call x"AF" using set-bit-pairs
adis-key-control
pero claro con cobolIT no tengo este sub programa y no se como podría sustituirlo.
Alguien tiene una idea?
gracias de antemano.
un saludo