COBOL - Estructura del Programa

Previous
Next

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

Estructura del programa

Una breve introduccin de esas divisiones se indican a continuacin:

  • Las secciones son la subdivisin lgica de la lgica del programa. Una seccin es una coleccin de prrafos.

  • Los prrafos son la divisin de una seccin o divisin. Es definida por el usuario o un nombre predefinido seguido de un perodo, y consta de cero o ms frases/entradas.

  • Las penas son la combinacin de uno o ms declaraciones. Las penas slo aparecen en el procedimiento. La condena debe terminar con un punto.

  • Las declaraciones son significativos COBOL declaracin que realiza algn procesamiento.

  • Caracteres son los ms bajos de la jerarqua y no puede ser divisible.

Puede vincular los trminos 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.

Identificacin Divisin

Es la primera y nica divisin obligatoria de cada programa COBOL. El programador y el uso del compilador esta divisin para identificar el programa. En esta Divisin, PROGRAMA-ID es la nica obligatoria prrafo. PROGRAMA-ID especifica el nombre del programa que puede constar 1 a 30 caracteres.

Pruebe el siguiente ejemplo utiliza lapruebalo opcin online.

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

A continuacin 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

Divisin de Medio Ambiente

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

  • Seccin de configuracin proporciona informacin 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.

  • Seccin Input-Output proporciona informacin sobre los archivos que se utiliza en el programa. Consta de dos apartados:

    Control de archivo : Proporciona informacin externa de conjuntos de datos utilizados en el programa.

    I-O control: proporciona informacin 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.

Divisin de Informacin

Divisin de Informacin se utiliza para definir las variables utilizadas en el programa. Consta de cuatro secciones:

  • Seccin de Archivos se utiliza para definir la estructura de registro del archivo.

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

  • Seccin Local-Storage Working-Storage es similar a seccin. La nica diferencia es que las variables se asignan y se inicializa cada vez se inicia programa de ejecucin.

  • Varillaje seccin 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 Divisin

Procedimiento divisin se utiliza para incluir la lgica del programa. Se compone de las instrucciones ejecutables con las variables definidas en la divisin de informacin. En esta divisin, el prrafo y los nombres de seccin son definidos por el usuario.

Debe haber al menos una sentencia en el procedimiento. La ltima instruccin para poner fin a la ejecucin de esta divisin 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
Print Page
Previous
Next
Advertisements