COBOL - Estructura del Programa


Advertisements

Un programa COBOL estructura consta de divisiones, como se muestra en la imagen siguiente:

Estructura del programa

Una breve introducción de esas divisiones se indican a continuación:

  • Las secciones son la subdivisión lógica de la lógica del programa. Una sección es una colección de párrafos.

  • Los párrafos son la división de una sección o división. Es definida por el usuario o un nombre predefinido seguido de un período, y consta de cero o más frases/entradas.

  • Las penas son la combinación de uno o más declaraciones. Las penas sólo aparecen en el procedimiento. La condena debe terminar con un punto.

  • Las declaraciones son significativos COBOL declaración que realiza algún procesamiento.

  • Caracteres son los más bajos de la jerarquía y no puede ser divisible.

Puede vincular los términos antes mencionados con el programa COBOL en el siguiente ejemplo:

PROCEDURE DIVISION.
A0000-FIRST-PARA SECTION.
FIRST-PARAGRAPH.
ACCEPT WS-ID            - Statement-1  -----|
MOVE '10' TO WS-ID      - Statement-2       |-- Sentence - 1
DISPLAY WS-ID           - Statement-3  -----|
.

Las Divisiones

Programa COBOL consta de cuatro divisiones.

Identificación División

Es la primera y única división obligatoria de cada programa COBOL. El programador y el uso del compilador esta división para identificar el programa. En esta División, PROGRAMA-ID es la única obligatoria párrafo. PROGRAMA-ID especifica el nombre del programa que puede constar 1 a 30 caracteres.

Pruebe el siguiente ejemplo utiliza lapruebalo opción online.

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
DISPLAY 'Welcome to Tutorialspoint'.
STOP RUN.

A continuación se ofrece el JCL para ejecutar el programa COBOL.

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

Cuando se compila y ejecuta el programa antes mencionado, se produce el resultado siguiente:

Welcome to Tutorialspoint

División de Medio Ambiente

División de Medio Ambiente se utiliza para especificar archivos de entrada y de salida para el programa. Consta de dos secciones:

  • Sección de configuración proporciona información sobre el sistema en el que el programa está escrito y ejecutado. Consta de dos apartados:

    Equipo de Origen : Sistema utilizado para compilar el programa.

    Equipo Objeto : Sistema utilizado para ejecutar el programa.

  • Sección Input-Output proporciona información sobre los archivos que se utiliza en el programa. Consta de dos apartados:

    Control de archivo : Proporciona información externa de conjuntos de datos utilizados en el programa.

    I-O control: proporciona información de archivos utilizados en el programa.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
   SOURCE-COMPUTER. XXX-ZOS.
   OBJECT-COMPUTER. XXX-ZOS.

INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT FILEN ASSIGN TO DDNAME
   ORGANIZATION IS SEQUENTIAL.

División de Información

División de Información se utiliza para definir las variables utilizadas en el programa. Consta de cuatro secciones:

  • Sección de Archivos se utiliza para definir la estructura de registro del archivo.

  • Working-Storage sección se utiliza para declarar variables temporales y estructuras de archivos que se utilizan en el programa.

  • Sección Local-Storage Working-Storage es similar a sección. La única diferencia es que las variables se asignan y se inicializa cada vez se inicia programa de ejecución.

  • Varillaje sección se utiliza para describir los nombres de datos que se reciben de un programa externo.

Programa COBOL

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

ENVIRONMENT DIVISION.

   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT FILEN ASSIGN TO INPUT.
          ORGANIZATION IS SEQUENTIAL.
          ACCESS IS SEQUENTIAL.
          
DATA DIVISION.
   FILE SECTION.
   FD FILEN
   01 NAME PIC A(25).
   
   WORKING-STORAGE SECTION.
   01 WS-STUDENT PIC A(30).
   01 WS-ID PIC 9(5).

   LOCAL-STORAGE SECTION.
   01 LS-CLASS PIC 9(3).
   
   LINKAGE SECTION.
   01 LS-ID PIC 9(5).
   
PROCEDURE DIVISION.
   DISPLAY 'Executing COBOL program using JCL'.
STOP RUN.

El JCL para ejecutar el programa COBOL es la siguiente:

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO
//INPUT DD DSN=ABC.EFG.XYZ,DISP=SHR

Cuando se compila y ejecuta el programa antes mencionado, se produce el resultado siguiente:

Executing COBOL program using JCL

Procedimiento División

Procedimiento división se utiliza para incluir la lógica del programa. Se compone de las instrucciones ejecutables con las variables definidas en la división de información. En esta división, el párrafo y los nombres de sección son definidos por el usuario.

Debe haber al menos una sentencia en el procedimiento. La última instrucción para poner fin a la ejecución de esta división es DETENER EJECUTAR que se utiliza en las llamadas a programas o SALIR DEL PROGRAMA que se utiliza en los llamados programas.

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-NAME PIC A(30).
   01 WS-ID PIC 9(5) VALUE '12345'.

PROCEDURE DIVISION.
   A000-FIRST-PARA.
   DISPLAY 'Hello World'.
   MOVE 'TutorialsPoint' TO WS-NAME.
   DISPLAY "My name is : "WS-NAME.
   DISPLAY "My ID is : "WS-ID.
STOP RUN.

JCL para ejecutar el programa COBOL:

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

Cuando se compila y ejecuta el programa antes mencionado, se produce el resultado siguiente:

Hello World
My name is : TutorialsPoint
My ID is : 12345
Advertisements