recuperar el valor teclado con CobolIT

[MaloK]

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 :

       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

    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

[Kuk]

@MaloK, hola, bienvenido

Para empezar, dinos por qué has elegido Cobol-IT para aprender, y por qué has empezado con manejos de teclado?

Sigues algún curso o algo?

Es que Cobol-IT es un producto no muy conocido y, al menos lo que yo lo conozco, no muy maduro. Puede tener bugs, sobre todo para este tipo de cosas, porque está orientado a migraciones de Mainframes sobre Linux (o sea, para grandes empresas), donde no se usan capacidades de Cobol para manejar ni pantallas ni teclados ni nada.


De lo de ADIS olvídate, porque eso es de la capa técnica de Micro Focus. Y aunque estos han comprado Cobol-IT, no le han integrado cosas de su propio compilador ni nada. De hecho sólo dan soporte, no le hacen evolución alguna.

[MaloK]

Hola @Kuk,
Gracias por contestarme.
He elegido Cobol-it porque me lo proporcionó un compañero del trabajo. Solo quería conocer esta función para ver como funciona pero entiendo que Cobol-it no puede hacerlo. Si tienes en mente otro emulador mejor me interesa también.

Muchas gracias

[Kuk]

@MaloK, hombre, imagino que es posible, lo que pasa es que habría que buscar documentación de Cobol-IT. Pero sabiendo que fueron 4 tíos mal contaos que lo crearon y mantuvieron hasta que fue vendido a Micro Focus, me temo que mucha documentación no debe haber por ahí.

Yo diría que empezaras por Visual Cobol Eclipse de Micro Focus. Tienen versión gratuita para uso no comercial. Échale un ojo a ver: Visual COBOL 2.3 Personal Edition - COBOL Foro