COBOL – Declaración de copia

La instrucción COPY se utiliza para traer a un programa una serie de entradas COBOL escritas previamente que se han almacenado en una biblioteca. Una declaración de copia inserta el libro de copias dentro de un programa COBOL, el libro de copias se refiere a un miembro que contiene todas las variables declaradas dentro de él. La sentencia COPY es una sentencia de biblioteca que coloca el texto preescrito en una unidad de compilación COBOL. Las entradas de código fuente escritas previamente se pueden incluir en una unidad de compilación en el momento de la compilación. Por lo tanto, una instalación puede usar descripciones de archivos estándar, descripciones de registros o procedimientos sin recodificarlos. Estas entradas y procedimientos se pueden guardar en bibliotecas creadas por el usuario; luego pueden incluirse en programas y definiciones de clase por medio de la sentencia COPY.

Sintaxis:

COPY copybook-name
   [REPLACING "string_1" BY "string_2"]

Dónde,

1. El copybook-name hace referencia a un archivo que contiene la string de origen.
2. string_1 se refiere a la string que se va a reemplazar .
3. string_2 se refiere a la string de reemplazo.

Ventajas de usar COPIAR:

Las siguientes son las ventajas de usar la instrucción COPY en COBOL:

• Se podría usar un solo cuaderno dentro de muchos programas, sin necesidad de escribir declaraciones de variables nuevamente.
• Se puede usar un cuaderno con el conjunto de datos para ver los datos en forma de etiqueta como se define dentro del cuaderno.
• Reduzca el tiempo, el esfuerzo y el costo durante los cambios porque cuando los cambios se realizan en un solo libro de copias, también se reflejarán en otros lugares donde se use el libro de copias con la ayuda de la instrucción COPY. 
• Las entidades de la biblioteca se anotan ampliamente para que sean significativas para todos los usuarios; esta anotación da como resultado programas y sistemas mejor documentados.
• Con la instrucción COPIA, puede incluir entradas de división ENTORNO, DATOS o PROCEDIMIENTO escritas previamente

Tomemos el ejemplo de Copiar en COBOL.

Ejemplo:

IDENTIFICATION DIVISION.
PROGRAM-ID. DEMO3.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
     
    COPY COPYBOOK.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
     
    ACCEPT ST_ID
    ACCEPT FIRST_NAME
    ACCEPT LAST_NAME
    DISPLAY STUDENT.
    STOP RUN.

El código anterior utiliza el siguiente libro de copias con la ayuda de la palabra clave COPY dentro de la sección de almacenamiento de trabajo cuando se compila el COBOL, se inserta el siguiente código en el lugar de COPY COPYBOOK.

01 STUDENT.
 20 ST_ID         PIC 9(5).
 20 FIRST_NAME    PIC X(20).
 20 LAST_NAME     PIC X(20).

Producción: