COBOL – Declaración de inclusión

La instrucción INCLUDE se refiere al archivo o al directorio mencionado después e inserta el comando presente dentro de ese miembro en el estado previo a la compilación. Básicamente, se utiliza para insertar un bloque de código en un programa fuente.

Sintaxis:

INCLUDE member-name

Dónde,

• El nombre de miembro se refiere al nombre del archivo que tiene el código fuente.

Las ventajas de usar incluyen:

Las siguientes son las ventajas de usar la instrucción INCLUDE:

• Aumente la legibilidad del código y reduzca la longitud del código.
• Supongamos que el mismo código se usa repetidamente dentro de una aplicación en lugar de escribir la misma parte del código repetidamente, podemos usar Incluir, que insertará ese mismo código dentro de un programa.
• Reduzca el costo de mantenimiento, el tiempo y los esfuerzos cuando los cambios se realizan solo una vez dentro de los módulos que se incluyen en muchos programas.

Tomemos un ejemplo de la instrucción INCLUDE en Cobol.

Ejemplo:

IDENTIFICATION DIVISION.
PROGRAM-ID. DEMO2.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
    01 NUM  PIC 9(5) VALUE ZERO.
    01 REM  PIC 9(5) VALUE ZERO.
    01 DIV  PIC 9(5) VALUE ZERO.
    01 FLAG PIC A(1) VALUE 'Y'.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
 
    A-PARA.
    INCLUDE ODDEVE.
    EXIT.
 
    PERFORM A-PARA UNTIL FLAG EQUAL 'N'
 
    STOP RUN.

Explicación:

El programa DEMO2 está utilizando un miembro ODDEVE con la ayuda de la sintaxis de inclusión en COBOL, cuando el programa se ejecuta en lugar de la línea INCLUDE ODDEVE, se inserta el código real presente dentro del miembro ODDEVE (que se muestra a continuación), que está escrito lógicamente para verificar si el número es par o impar.

DISPLAY 'ENTER NUMBER:'
ACCEPT NUM
 
DIVIDE NUM BY 2 GIVING DIV REMAINDER REM.
 
IF REM = 0
    DISPLAY 'EVEN NUMBER'
    DISPLAY 'DO YOU WANT TO CONTINUE? (Y/N):'
    ACCEPT FLAG
 
ELSE
    DISPLAY 'ODD NUMBER'
    DISPLAY 'DO YOU WANT TO CONTINUE? (Y/N):'
    ACCEPT FLAG
END-IF.

Producción: