COBOL

COBOL (Common Business-Oriented Language) es un lenguaje orientado a la resolución de las necesidades de bancos y otras entidades financieras, administraciones, fábricas o cualquier gran organización que tenga que gestionar un volumen de datos importante.

COBOL tiene una sintaxis recargada que intenta parecerse al lenguaje inglés. Uno de sus puntos fuertes es la generación de informes, ya que permite especificar una gran variedad de formatos de salida.

Un programa en COBOL consta de cuatro divisiones:

COBOL se definió en 1960 y ha tenido varias revisiones. La más actual incluye características de orientación a objetos y estructuras de control sofisticadas en un intento de modernizar el lenguaje y no perder toda la inversión en software realizada, ya que se calcula que es el lenguaje con que se han programado más líneas de código.

Los programas en COBOL acostumbran a ser bastante largos y sobrecargados, ya que cualquier pequeño procedimiento requiere muchas líneas. A continuación se presenta un ejemplo simplificado para calcular comisiones de vendedores:

 

IDENTIFICATION DIVISION.
    PROGRAM-ID. COMISION-VENDEDOR.
    AUTHOR. DEPT-INFO.
ENVIRONMENT DIVISION.
    INPUT-OUTPUT SECTION.
    FILE-CONTROL.
    SELECT FICHERO-VENDEDORES ASSIGN TO DISK 
            ACCESS MODE IS RANDOM ORGANIZATION IS RELATIVE
            RELATIVE KEY IS NUMERO.
        SELECT FICHERO-VENTAS ASSIGN TO TAPE RESERVE NO AREAS
            ACCESS MODE IS SEQUENTIAL ORGANIZATION IS SEQUENTIAL.
DATA DIVISION.
    FILE SECTION.
    FD FICHERO-VENDEDORES LABEL RECORD IS STANDARD 
        RECORDING MODE IS V
        RECORD CONTAINS 30 TO 60 CHARACTERS
        DATA RECORD IS VENDEDORES.
    01 VENDEDORES
        02 NOMBRE PICTURE X(50).
        02 NUMERO PICTURE 9(10).
    FD FICHERO-VENTAS LABEL RECORD IS STANDARD
        RECORDING MODE IS F
        RECORD CONTAINS 8
        DATA RECORD IS VENTA.
    01 VENTA PICTURE 9(8).
    WORKING STORAGE SECTION.
        77 PCT PICTURE 9(6).
        77 TOTAL PICTURE 9(6).
PROCEDURE DIVISION.
    INICIO.
    OPEN INPUT FICHERO-VENDEDORES INPUT FICHERO-VENTAS.
    CLAVE.
        ADD 1 TO NUMERO.
    LECTURA.
        READ FICHERO-VENDEDORES INVALID KEY GO TO FINAL-PROG.
        READ FICHERO-VENTAS AT END GO TO FINAL-PROG.
    CALCUL.
        DIVIDE VENTA INTO 100 GIVING PCT.
        MULTIPLY PCT BY 40 GIVING TOTAL.
    RESULTADO.
        DISPLAY NUMERO UPON PRINTER.
        DISPLAY TOTAL UPON PRINTER.
        GOTO CLAVE.
    FINAL-PROG.
        CLOSE FICHERO-VENDEDORES AND FICHERO-VENTAS.
        STOP RUN.

Arriba
Cerrar