Make your own free website on Tripod.com

IDENTIFICATION DIVISION

 

Es la división en donde se identifica el programa. La única cláusula necesaria es PROGRAM-ID, las otras son opcionales. El siguiente ejemplo presenta las cláusulas que se utilizan son:

 

IDENTIFICATION DIVISION.

PROGRAM-ID. EXPENSES.

AUTHOR. M JACKSON.

INSTALLATION. DATA DEVICES, INC.

DATE-WRITTEN. JUNE 7, 2001.

DATE-COMPILED. JUNE 8, 2001.

SECURITY. AUTHORIZED PERSONNEL ONLY.

 

 

ENVIRONMENT DIVISION

 

Es la única división que depende de la computadora que se utiliza. Se compone de dos secciones:

·        CONFIGURATION SECTION – Es opcional. Indica:

o       La computadora que será usada para compilar el programa (SOURCE-COMPUTER).

o       La computadora que será usada para ejecutar el programa (OBJECT-COMPUTER).

 

Ejemplo:

ENVIRONMENT DIVISION.

CONFIGURATION SECTION.

SOURCE-COMPUTER. VAX-8800.

OBJECT-COMPUTER. VAX-8800.

 

·        INPUT-OUTPUT SECTION – Provee información sobre el equipo de entrada (Input) y de salida (Output) a usarse. Incluye el párrafo FILE-CONTROL, que consiste de oraciones SELECT. Estas oraciones son codificadas en el área B y terminan con un punto.

o       Las oraciones SELECT definen el nombre de los archivos y asigna el nombre del equipo a ese archivo. Se especifica un SELECT para cada archivo usado. Si se imprime un reporte, se usa un SELECT para el archivo de reporte.

 

Ejemplo:

INPUT-OUTPUT SECTION.

FILE-CONTROL.

    SELECT TRANSACTION-FILE

     ASSIGN TO “A:/DATA1.TXT”

     ORGANIZATION IS LINE SEQUENTIAL.

    SELECT REPORT-FILE

     ASSIGN TO PRINTER.

 

En el ejemplo, los nombres TRANSACTION-FILE y REPORT-FILE identifican los archivos en el programa. La cláusula ASSIGN indica el origen o destino del archivo. La cláusula ORGANIZATION IS LINE SEQUENTIAL se utiliza en computadoras personales, para crear archivos en discos donde cara record es una línea independiente; los records son separados por la tecla Enter.