Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > MicroFocus COBOL > COBOL-IT
COBOL-IT Compilador basado en OpenCOBOL.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
Recuperar archivo Roger COBOL - General 5 31 de mayo de 2020 18:30
[Sintaxis] Asignar valor a una propiedad lfortuny PowerCOBOL y COM/OLE 1 22 de diciembre de 2015 11:42
[Noticia] Teclado Virtual Roger PowerCOBOL (ActiveX, v4 - v11) 6 1 de diciembre de 2015 20:23
[Compilador] Recuperar proyecto dañado y ejecucion en red Roger PowerCOBOL (ActiveX, v4 - v11) 1 14 de abril de 2015 21:58
[Sintaxis] Valor SHIFT+TAB Recato53 PowerCOBOL (ActiveX, v4 - v11) 3 18 de febrero de 2015 18:51
Respuesta
 
Herramientas

  #1
Antiguo 18 de septiembre de 2020, 14:10
IDENTIFICATION DIVISION
MaloK
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de MaloK
DATA DIVISION
Forero desde (Registrado)septiembre 2020
España
Ubicación Madrid
Edad30 años
Última Actividad01.10.2020 13:43
PROCEDURE DIVISION
PostsPosts: 2
Ha dicho GraciasEnviado: 0
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
MaloK is an unknown quantity at this point
Predeterminado recuperar el valor teclado con CobolIT

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:
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID.  Hello.
  3.        WORKING-STORAGE SECTION.
  4.         01 TOUCHE         PIC 9(2).
  5.        PROCEDURE DIVISION.
  6.        DisplayPrompt.
  7.        
  8.            DISPLAY 'Hello world'
  9.            PERFORM UNTIL TOUCHE NOT = ZEROS
  10.             ACCEPT TOUCHE FROM ESCAPE KEY END-ACCEPT
  11.             DISPLAY TOUCHE
  12.            END-PERFORM
  13.            DISPLAY TOUCHE
  14.            
  15.            STOP RUN
  16.            .
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:
  1.     call x"AF" using  set-bit-pairs
  2.                       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
MaloK no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 18 de septiembre de 2020, 18:58
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad35 años
Última Actividad30.11.2020 22:20
PROCEDURE DIVISION
PostsPosts: 1.659
Ha dicho GraciasEnviado: 471
Ha recibido agradecimientosRecibido: 662
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

@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.


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 20 de septiembre de 2020, 12:10
IDENTIFICATION DIVISION
MaloK
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de MaloK
DATA DIVISION
Forero desde (Registrado)septiembre 2020
Francia
Ubicación Madrid
Edad30 años
Última Actividad01.10.2020 13:43
PROCEDURE DIVISION
PostsPosts: 2
Ha dicho GraciasEnviado: 0
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
MaloK is an unknown quantity at this point
Predeterminado

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
MaloK no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 20 de septiembre de 2020, 17:23
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad35 años
Última Actividad30.11.2020 22:20
PROCEDURE DIVISION
PostsPosts: 1.659
Ha dicho GraciasEnviado: 471
Ha recibido agradecimientosRecibido: 662
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

@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


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 04:18.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2020, Jelsoft Enterprises Ltd.