Variables, constantes DISPLAY y tipos de datos - Capítulo 7
Curso de COBOL desde cero
Constantes DISPLAY
Estas constantes sirven para mostrar como te dije en un capítulo anterior, datos en pantalla.
Con estos DISPLAY podemos mostrar cualquier dato, ya sean strings, integers, variables, constantes, etc.
Tipos de datos en COBOL
Strings
Veamos un pequeño ejemplo con los strings o cadenas de caracteres (texto).
IDENTIFICATION DIVISION.
PROGRAM-ID. CAPITULO-7.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "Este texto se va a mostrar en la consola."
STOP RUN.
END PROGRAM CAPITULO-7.
Resultado
Debes fijar solo en la constante DISPLAY, la cual muestra un texto. Para que COBOL sepa que es un texto, se lo tienes que indicar con unas comillas, ya sean simples ('') o dobles ("").
Ten en cuenta, que las tabulaciones en el DISPLAY y en el STOP RUN no afectan en nada a la ejecución del programa como si ocurre en Python por ejemplo, unicamente son para presentación y ordenación del código.
Este texto se va a mostrar en la consola.
Integers
Para escribir un número entero (integer) lo haremos escribiendo el número entre comillas. Si lo escribes entrecomillado COBOL lo va a interpretar como un string y no podrás hacer cálculos aritméticos con dicho número. Aunque si sabes programar, esto ya lo tienes más que asumido.
En el siguiente ejemplo tienes un número que es un string en el primer DISPLAY y el segundo que es un intenger:
IDENTIFICATION DIVISION.
PROGRAM-ID. CAPITULO-7.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "70"
DISPLAY 70
STOP RUN.
END PROGRAM CAPITULO-7.
Las variables en COBOL
Ya hemos visto alguna variables, pero esta vez vamos a profundizar en sus partes.
01 SALUDO PICTURE XXXX VALUE "Hola".
La primera parte es el número de nivel de la variable que explicaré más adelante.
La segunda parte es el nombre de la variable, el cual puede ser el que quieras siempre que te ciñas a las normas de palabras vistas anteriormente.
La tercera parte es el PICTURE que representa la declaración del tipo de dato y la longitud de la variable.
Las 4 X (XXXX) representan que el tipo de dato es string y tiene una longitud máxima de 4 caracteres, uno por cada X.
La parte del VALUE es para indicar que queremos iniciar la variable dándole un valor que se corresponda con el PICTURE.
El PICTURE tiene diversas abreviaturas:
01 SALUDO PICTURE XXXX VALUE "Hola".
01 SALUDO PIC XXXX VALUE "Hola".
Las tres formas de PICTURE son correctas, utiliza la que más te guste.
La longitud de la variable también se puede abreviar, es tan válida una opción como la otra:
01 SALUDO PICTURE X(4) VALUE "Hola".
Para indicar en el tipo de dato numérico en la variable, debes poner el número 9 en lugar de X. Además, lo puedes abreviar de la misma forma:
01 NUMERO PICTURE 999999 VALUE 100500.
01 NUMERO PICTURE 9(6) VALUE 100500.
Como imprimir el valor de una variable
Es muy sencillo, solo debes tener la variable creada y con un DISPLAY la llamas:
IDENTIFICATION DIVISION.
PROGRAM-ID. CAPITULO-7.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 SALUDO PIC X(4) VALUE "Hola".
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY SALUDO.
STOP RUN.
END PROGRAM CAPITULO-7.
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.
IDE para COBOL en este curso
OpenCobolIDE
Te presento OpenCobolIDE, un IDE gratuito y de código abierto para programar en COBOL. Además es multiplataforma.
El único problema que le podemos encontrar es que se ha dejado de actualizar desde el año 2016, pero por el momento funciona perfecto.
Puedes contactarme para peticiones comerciales y proyectos a mi correo electrónico.
Para dudas sobre el sitio web o sobre alguno de los cursos, puedes dejarme comentarios en la página correspondiente a la duda o en mi canal de YouTube.