Ejemplo de programa en cobol

IDENTIFICATION DIVISION. PROGRAM-ID ADCDAP13. * ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT CON-DATOS ASSIGN TO PERSONA FILE STATUS IS FS-CON-DATOS. * SELECT COPIA ASSIGN TO COPIA FILE STATUS IS FS-COPIA. * DATA DIVISION. FILE SECTION. FD CON-DATOS RECORDING MODE IS F. 01 REG-CON-DATOS PIC X(10). * FD COPIA RECORDING MODE IS F. 01 REG-COPIA PIC X(10). * WORKING-STORAGE SECTION. ****************************************************************** * V A R I A B L E S * ****************************************************************** 01 FS-CON-DATOS PIC 99. 01

Impresión de un fichero

Impresión de un fichero

//TRABAJO     JOB     //IMPRIMIR   EXEC  PGM=IDCAMS  //SYSPRINT    DD   SYSOUT=*  //FICHERO1   DD   DSN=…  //SYSIN            DD   *            PRINT     INFILE          (FICHERO1)     -                             FROMKEY   (‘GARCIA’)       -                             CHAR           /*

Para imprimir ficheros se utiliza el parámetro PRINT, el cual permite:

-          Imprimir un fichero (VSAM o secuencial) total o parcialmente.

-          El formato del listado puede ser de tres tipos: CHAR (caracteres), HEX (hexadecimal) o DUMP (carácter y hexadecimal).

-          Para limitar el listado, se utilizan los mismos parámetros que en REPRO.

Borrado de un fichero VSAM

Borrado de un fichero VSAM

//TRABAJO     JOB     //BORRADO    EXEC  PGM=IDCAMS  //SYSPRINT    DD   SYSOUT=*   //SYSIN            DD   *            DELETE  CORI.MASTER.EMPL      CLUSTER         -                                                                              PURGE           /*

Sentencias de Control para IDCAMS:

-          CLUSTER – indica que se tiene que borrar un fichero VSAM. Cuando se elimina el CLUSTER, se borran también los DATA e INDEX asociados al fichero.

-          PURGE – permite borrar un fichero aunque no haya llegado su fecha de caducidad.

-          ERASE – se machacan los datos del fichero con ceros binarios.

Definición de un fichero VSAM

Definición de un fichero VSAM

//TRABAJO     JOB     //DEFINIR       EXEC  PGM=IDCAMS  //SYSPRINT    DD   SYSOUT=*   //SYSIN            DD   *            DEFINE  CLUSTER(NAME(CORI.MASTER.EMPL)        -                                                 RECORDS     (500  50)                         -                                                 RECSZ           (25    25)                         -                                                 KEYS              (10     0)                          -                                                 VOLUME       (DIR003)                       -                                                 SHR                 (2       3)                         -                                                 INDEXED)                                            -                             DATA(NAME(CORI.MASTER.EMPL.DATA))  -                             INDEX(NAME(CORI.MASTER.EMPL.INDEX))           /*

Sentencias de Control para IDCAMS:

-          CLUSTER – cuando se crea un fichero VSAM se define como CLUSTER.

o   NAME – identifica el fichero dentro del catálogo. Posteriormente se identificará en una DSN.

o   RECORDS – el espacio requerido se puede indicar en registros, pistas (TRAKS) o cilindros (CYLINDERS).

o   RECSZ – el tamaño del registro consta de dos parámetros, el primero indica el tamaño medio en bytes de los registros que se van a almacenar en el fichero; el segundo indica el tamaño máximo en bytes de dichos registros. Si son iguales indica que los registros son de longitud fija.

o   KEYS – define la clave. Consta de dos subparámetros, el primero indica el tamaño en bytes de la clave, y el segundo indica la posición desde el comienzo del registro. Generalmente, la clave comienza en la primera posición del registro.

o   VOL – indica el nombre del disco en el que el fichero va a grabarse.

o   SHR – indica el grado de compartición del fichero. Consta de dos subparámetros:

§  El primero indica la compartición en distintos trabajos.

§  El segundo indica la compartición en distintos sistemas.

o   INDEXED – indica que el fichero es del tipo KSDS. NONINDEXED indica que el fichero es del tipo ESDS y NUMBERED con un fichero RRDS.

 

-          DATA – se utiliza para definir los datos del fichero VSAM.

-          INDEX – se utiliza para definir el índice del fichero VSAM. Sólo se codifica cuando el fichero es KSDS.