Inicio » Informática » Cobol

Ejemplos de Cobol

Uno de los lenguajes de programación más antiguo que existe es COBOL, abreviatura de Common Business Oriented Language, Lenguaje Común Orientado a Negocios. Este lenguaje de computación fue desarrollado en 1959 con la finalidad de contar con un Lenguaje de Programación que fuera muy cercano al idioma inglés y que estuviera orientado a los procesos administrativos, ya que los lenguajes de la época estaban muy orientados a procesos científicos y cálculos matemáticos.

Esta característica del lenguaje COBOL lo hizo muy popular y se desarrollaron grandes sistemas con él, a tal grado que cuando surgieron otros lenguajes era demasiado caro migrar todas las aplicaciones existentes en COBOL. A partir de esto se le dio un gran impulso al grado de que existen versiones actuales de este lenguaje como son Microsoft COBOL, Rm/COBOL 11 y COBOL 650 por mencionar algunos.

En la versión de COBOL 85 los estándares de su compilador incluyeron variables locales, recursividad, soporte a programación estructurada y reserva de memoria dinámica con la finalidad de competir con los lenguajes modernos de computación que estaban surgiendo.

Los equipos en que más se utiliza este lenguaje son los grandes computadores conocidos como Mainframe como lo es el Sistema 390 de IBM. COBOL es utilizado ya sea para desarrollar aplicaciones en línea o procesos por lotes (BATCH) las principales aplicaciones desarrolladas en COBOL son las nóminas, contabilidad y una gran cantidad de sistemas bancarios y financieros.

Ejemplo de COBOL:

Programa que despliega un mensaje.

IDENTIFICATION DIVISION.
PROGRAM-ID. EjemploCOBOL.

ENVIRONMENT DIVISION.

DATA DIVISION.
WORKING-STORAGE SECTION.

PROCEDURE DIVISION.

DISPLAY “Programa de ejemplo de Cobol”.
STOP RUN
 

Ejemplo de COBOL CICS:

***********

*  PROGRAMA EJEMPLO DE CICS-COBOL
*
************

IDENTIFICATION DIVISION.
PROGRAM-ID.EjemploCICSCOBOL

ENVIRONMENT DIVISION.

DATA DIVISION.
WORKING-STORAGE SECTION.

01 EJEMPLOMP  PIC X(1000).
01  EJEMPLOPI REDEFINES EJEMPLOMP.
     02  FILLER PIC X(12).
 01  EJEMPLOMPO REDEFINES EJEMPLOMPI.
     02  FILLER PIC X(12).
*
 PROCEDURE DIVISION.
*

Desplegar-MAPA.
     EXEC CICS SEND MAP('Ejemplo de CICS COBOL')
               MAPONLY
               ERASE
               NOHANDLE
     END-EXEC.
FIN-PGM.
     EXEC CICS RETURN
     END-EXEC.
GOBACK.

¡Ayúdanos a ayudarte! Por favor comparte este artículo.

  
Por : Morris

Búsqueda:

Deja un comentario

Tweet