Caracteres de edición - Capítulo 18

Curso de COBOL desde cero


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

Código

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 númerico, 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).

Código

01 NUM1 PIC 99999 VALUE 6000.

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

De estas formas, podemos quitarlo:

Código

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:

Código

01 NUM1 PIC -ZZZZZ.ZZ VALUE -6000.

Resultado

- 6000.00

Suscríbete a mi canal de YouTube para apoyarme

Si te ha gustado este curso y crees que el trabajo merece la pena, te agradeceré eternamente que te suscribas a mi canal de YouTube para apoyarme y que pueda seguir haciendo cursos gratuitos.

Además, si te encanta la programación, tienes un montón más de cursos gratuitos para ver.

No solo eso, podrás participar enviándome comentarios con tus sugerencias para temas específicos o cursos completos o incluso las dudas que tengas y las intentaré ir resolviendo en los cursos que estén todavía abiertos.


Comentarios

Si te quedan dudas sobre el temario, sobre COBOL, o cualquier otra cosa relacionada o simplemente quieres agradecer, aquí tienes tu sitio para dejar tu granito de arena. Gracias por tus comentarios y por darle vida a este sitio web.