[Compilador] Problemas con ASCII extendido

[Fernandofc]

Hola a todos;

Después de muchos años sin programar en cobol, he decidido volver a retomarlo, el caso es que he instalado la versión gratuita de Visual Cobol.

El problema que se me plantea es a la hora de visualizar un caracter del modo ASCII extendido .. por ejemplo alt+179, no me sale el carácter de raya vertical al que corresponde.

Me imagino que necesito configurar esto en algún lado del compilador, alguien me podría indicar como resolver esto?

gracias

[Kuk]

Fernandofc, dónde quieres visualizar dicho caracter y no te sale, en el editor o en la pantalla de consola?

[Fernandofc]

Es a la hora de ejecutarlo en modo consola.

Lo que quería era diseñar cuadros para decorar un poco las ventanas en modo consola.

[Kuk]

Fernandofc, ponnos un pantallazo para que veamos qué es lo que aparece en lugar del caracter que queires. Y también dinos cómo haces para mover el caracter especial al campo.

[Fernandofc]

Diseño en la screen section un cuadro, solo pongo la parte de arriba para simplificar, la línea la hago con alt+191

 
screen section.
       
       01  Pantalla-inicial.
           03  line 1 col 20   pic x value  "──────".
           
           
       
       procedure division.
       
       Main.
           
                     
               display Pantalla-inicial
               stop ' '
         
 

cuando compilo y ejecuto el programa en vez de una línea me el caracter ô

[Kuk]

Fernandofc, en este código yo no veo dónde mueves el alt+191... No sé si lo harás así, pero la manera de hacerlo es la siguiente:

 WORKING-STORAGE SECTION.
 01  WS-BIN             PIC S9(9) COMP-5. *> OCUPA 2 BYTES
 01  FILLER REDEFINES WS-BIN. 
     05  FILLER         PIC X.
     05  WS-ASCII       PIC X. *> AQUÍ QUEDARÍA EL CARACTER
     
 PROCEDURE DIVISION.
     
     MOVE H"191" TO WS-BIN
     
     MOVE WS-ASCII TO ...

Puedes hacer una rutina a partir de este código, la cual te devuelve el caracter especial por LINKAGE.

[Josber]

No Kuk no lo mueve, en vez de hacerlo moviendolo como tú, lo hace asignándolo directamente con la instrucción "value".

Un saludo.-

[Kuk]

Josber, puede ser. Pero si lo hace copiando y pegando el valor "raro", posiblemente sea fallo de conversión, dependiendo de la fuente y la codificación que tenga definidas en el editor.
Lo que él quiere, si se hace en la WORKING, se debe asignar sea vía HEX (en este caso 191 = X"BF"), es decir:

 01   WS-BARRA-V            PIC X VALUE X"BF".

O si no quieres convertir a mano los valores a HEX, con la rutina que le he pasado. El pegado directo en caso de juego de caracteres fuera del estándar suele dar resultado incorrecto. Porque el mismo carácter visual tiene códigos distintos en diferentes codificaciones y fuentes.

[Fernandofc]

Efectivamente lo hago en la screen section copiando y pegando el valor, pero no me corresponde con el de la tabla, por eso decía que podía ser que tengo el visual estudio mal configurado.

Trataré de mirar donde se puede arreglar esto...

y si no trataré de hacerlo como me dices tu Kuk

gracias

[Kuk]

Fernandofc, dinos cómo has solucionado finalmente tu problema y en qué consistía, si lo has descubierto.