Condición IF ELSE COBOL
BlogCOBOL

Estructura Básica de un programa COBOL

cobolcoder.com

COBOL (Common Business-Oriented Language) es un lenguaje de programación diseñado principalmente para aplicaciones comerciales y empresariales. A continuación, te proporcionaré una estructura básica de un programa COBOL y explicaré sus principales secciones:

Programa COBOL

IDENTIFICATION DIVISION.
PROGRAM-ID. MiPrograma.
AUTHOR. TuNombre.
DATE-WRITTEN. DD/MM/AAAA.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-PC.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 Variable-1 PIC 9(5).
01 Variable-2 PIC X(20).

PROCEDURE DIVISION.
Inicio-Programa.
    DISPLAY 'Hola, Mundo!'.
    ACCEPT Variable-1 FROM CONSOLE.
    MOVE 'Bienvenido' TO Variable-2.
    DISPLAY 'Número ingresado: ' Variable-1.
    DISPLAY 'Mensaje: ' Variable-2.
Fin-Programa.

STOP RUN.

IDENTIFICATION DIVISION

  • PROGRAM-ID: Identifica el nombre del programa.
  • AUTHOR: Nombre del autor del programa.
  • DATE-WRITTEN: Fecha de creación del programa.

ENVIRONMENT DIVISION

  • CONFIGURATION SECTION: Define la configuración del entorno de ejecución.
  • SOURCE-COMPUTER: Especifica el tipo de computadora para la que se ha desarrollado el programa.

DATA DIVISION

  • WORKING-STORAGE SECTION: Reserva espacio para variables de trabajo.
  • 01: Nivel de entrada de la variable.
  • Variable-1: Ejemplo de una variable numérica de 5 dígitos.
  • Variable-2: Ejemplo de una variable alfanumérica de longitud 20.

PROCEDURE DIVISION

  • Inicio-Programa: Etiqueta que marca el inicio de la ejecución del programa.
  • DISPLAY: Muestra mensajes en la consola.
  • ACCEPT: Lee la entrada desde la consola.
  • MOVE: Asigna un valor a una variable.
  • DISPLAY: Muestra valores de variables en la consola.
  • Fin-Programa: Etiqueta que marca el final de la ejecución del programa

STOP RUN

  • Indica el final del programa.

Este es un ejemplo muy simple y básico de un programa COBOL. En aplicaciones más grandes, encontrarás secciones adicionales como DIVISION DE ARCHIVOS, DIVISION DE PROCEDIMIENTOS, entre otras. Además, COBOL utiliza un formato fijo en columnas, donde cada línea tiene una estructura específica basada en la posición de los caracteres. Este formato es una característica única de COBOL.