Números negativos y decimales

En este capítulo te voy a enseñar a trabajar con negativos y decimales.
Con lo que has visto hasta ahora, no puedes poner ni números negativos ni decimales.

Números decimales en COBOL

Para que una variable admita este tipo de dato numérico, debes incluir la letra >V en el PICTURE, la cuál representará el punto de los decimales.

Mira unos ejemplos de colocación:

01 NUM1 PIC 99V99.
* Equivale a un número de este tamaño:
00.00

01 NUM1 PIC 9999V99.
* Equivale a un número de este tamaño:
0000.00

01 NUM1 PIC 999V99999.
* Equivale a un número de este tamaño:
000.00000

Números negativos en COBOL

Para especificar PICTURE con números negativos, debes hacerlo con la letra S. La pondrás delante de los 9.

Mira unos ejemplos de colocación:

01 NUM1 PIC S9999.
* Equivale a un número de este tamaño:
-0000 o +0000

01 NUM1 PIC S999999.
* Equivale a un número de este tamaño:
-000000 o +000000

01 NUM1 PIC S9.
* Equivale a un número de este tamaño:
-0 o +0

Esto te da la opción de poner números negativos y positivos, para hacerlo negativos, tendrás que especificar el símbolo menos delante de la asignación de valor en la variable.
Si no entiendes esto, en el vídeo tienes un ejemplo gráfico que seguramente te ayudará a entenderlo mucho más fácil.

También puedes tener una combinación con números negativos y decimales a la vez:

01 NUM1 PIC S99V99.
* Equivale a un número de este tamaño:
-00.00 o +00.00

01 NUM1 PIC S99V9999.
* Equivale a un número de este tamaño:
-00.0000 o +00.0000

01 NUM1 PIC S9V9.
* Equivale a un número de este tamaño:
-0.0 o +0.0