
¿Qué son los caracteres de edición de COBOL? ¿Cómo se utilizan?
Capítulo 18: 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
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.