Los caracteres de edición

Anteriormente vimos los números decimales, te voy a mostrar otra forma de añadirlos en una variable:

01 NUM1 PIC 9999.99 VALUE 5000.75.

Estas variables no son del todo normales, ya que aunque tenemos ante nosotros una variable de tipo numérico, no podremos calcular con ella, ya que usa lo que se conoce como caracteres de edición y el punto es uno de ellos.

Este tipo de variable se denomina variable numérica editada y solo sirven a modo de presentación, algo así como un string.

Cómo eliminar los ceros en las variables numéricas de COBOL

Es muy sencillo, solo tienes que utilizar la letra Z en el PICTURE, puedes utilizar solo una o tantas como desees. El efecto de esta Z solo funciona si es un cero y solo si está por delante (cero a la izquierda).

01 NUM1 PIC 99999 VALUE 6000.

Si imprimimos esto, aparece en la consola con un 06000.

Así podemos quitar este cero:

01 NUM1 PIC Z9999 VALUE 6000.
01 NUM1 PIC ZZZZZ VALUE 6000.

Resultado

El resultado es el mismo en los dos casos.

6000

Puedes también editar el número de esta forma, para presentarlo sin ceros de más, en negativo y con decimales:

01 NUM1 PIC -ZZZZZ.ZZ VALUE -6000.

Resultado

- 6000.00