Mostrando entradas con la etiqueta VSAM. Mostrar todas las entradas
Mostrando entradas con la etiqueta VSAM. Mostrar todas las entradas

lunes, 29 de agosto de 2016

Ficheros Secuenciales vs Ficheros VSAM ¿Cuál es el mejor?

Ficheros Secuenciales

Hoy vamos a tratar el tema, de archivos secuenciales contra VSAM, y para aquellos que son principiantes con el tema, vamos a desmenuzar un poco algo de cada uno de los ficheros con el fin de que a la hora de desarrollar sepan cual es el más óptimo.
Un archivo secuencial es aquel que consta de registros que se almacena y se accede a ellos de modo secuencial (de principio a fin), es decir que si quieres hacer la lectura del registro ocho, tienes que hacer las siete lecturas de los registros, para llegar.
Te recomendaría este tipo de archivo si quisieras que

  •          El tamaño de memoria fuera mínimo
  •          El archivo fuera fácilmente editable
Se pueden enumerar los principales atributos del archivo de organización secuencial


  • Un nuevo registro no se puede insertar ni en medio ni al principio del archivo, este siempre se insertara al final del archivo.
  • Después de especificar el tamaño de un registro en un archivo secuencial, no es posible, reducir o alargar un registro.
  • El orden de  los registros, tal y como se insertan no puede ser cambiado.
  •  Es posible la actualización de un registro, pero esto solamente es posible “a manita” a través de la opción del TSO,  de edición. Se puede también sobrescribir un registro, siempre y cuando la nueva longitud de registro sea la misma.
  • Los archivos secuenciales para la escritura de registros de salida son una buena opción, teniendo en cuenta, que no requieren de más especificaciones que el tamaño del registro sea el tamaño del archivo.


Dentro del programa siempre se podrá especificar la sintaxis de la organización del archivo secuencial:

       FILE-CONTROL                                           
       SELECT ENTRADA ASSIGN TO ENTRADA                
                       ORGANIZATION IS SEQUENTIAL       
                       ACCESS MODE  IS SEQUENTIAL       
                       FILE STATUS IS WS-FS-ENTRADA  


Donde
ENTRADA: Archivo que se va a tomar de entrada, el cual deberá de ser secuencial
ORGANIZATION: Se especifica que su organización es secuencial
ACCESS MODE: El modo de acceso, el cual se especifica que es secuencial
FILE STATUS: El estatus del archivo el cual deberá de comenzar con 00.

Mientras que en el JCL nosotros podemos encontrarlo como se muestra en el ejemplo de a continuación:

//ENTRADA  DD  DSN=MOVDELL.R08.I1OUP10.SORTINYU,
//             DISP=(OLD,KEEP,KEEP)                

ENTRADA: Archivo que se va a mandar a llamar para entrada del proceso.

También vamos a mencionar algunos de los inconvenientes que tienen estos archivos:

  •          A tamaño grande la lectura se ralentiza
  •          El acceso a los archivos es puramente secuencial
Por lo cual dependiendo del tamaño de información que vas a procesar, si esta información aumenta o si es constante, o dependiendo de que tantos reportes o movimiento de información vas a realizar con ella, son puntos que debes de tomar en cuenta para validar si es viable este tipo de archivos.

Ficheros VSAM

Definidos como Virtual Storage Access Method, es un tipo de fichero que trata de mejorar lo que se hace con los ficheros secuenciales  y el cual soporta que se tenga un mayor número de registros, y que estos de igual forma puedan ser procesados en un tiempo más óptimo y con un acceso más eficaz.
Estos archivos se caracterizan por tener una llave (clave) de acceso a cada uno de los registros lo cual permite que se tenga un mejor acceso a los archivos,
En la actualidad existen tipos de ficheros: VSAM, KSDS, RRDS, RRDS, ESDS y LDS. 

Se muestra a continuación una breve explicación de en que consiste cada uno de ellos:


  • Entry Sequenced Data Set (ESDS): Se trata de un fichero VSAM, equivalente al clásico Fichero Secuencial
  • Key Sequenced Data Set (KSDS): Emplea dos subficheros para el tratamiento de los datos. Uno para el almacenamiento de los índices, y otro para la información (Registros de datos) asociada a cada índice.
  • Relative Record Data Set (RRDS): Se trata del VSAM mas eficiente. Se asigna un numero relativo a cada registro, que es el que se usara para recuperar la información. Obviamente, si dicha asignación no se actualiza correctamente cada vez que borramos registros del fichero, entonces iran quedando espacios de memoria sin uso y el acceso será cada vez menos eficiente.
  • Linear Data Set (LDS): Este tipo de fichero se emplea para almacenar los TABLESPACE de las bases de datos DB2.
Puede ser raro que veas un desarrollo hecho en archivos VSAM. Esto debido a que cuando se implementó no se tenían bien especificadas las reglas de las bases de datos relacionales dentro del DB2, pero ahora se ha vuelto una práctica más usual que se utilicen las bases de datos relacionales con los archivos secuenciales. O que en casos muy especiales se utilicen desarrollos con archivos VSAM.

Te mostraremos así mismo algunas de las ventajas/ desventajas que tienen estos archivos.

  •      Estos archivos pueden ser de una longitud fija o variable   
  •     Están organizados en bloques de tamaño fijo llamados intervalos de control (IC) y a su vez en divisiones más grandes llamadas Áreas de Control (AC)
  •     El tamaño de los intervalos se miden en bytes
  •     Las áreas de control se miden en número de pistas o cilindros de disco.

La manipulación de ficheros VSAM (“borrar” y “definir”) se realiza normalmente a través de la utilidad de IDCAMS. Los programas propios pueden acceder a ficheros VSAM mediante sentencias de “data definition” (DD) en los JCL o en las regiones online de CICS.
DB2 está implementado sobre ficheros VSAM usando su estructura de datos. 

Espero que te haya gustado el tema. :D



miércoles, 28 de enero de 2015

Ejemplo 8: ficheros VSAM.

En este ejemplo veremos el uso de los ficheros VSAM.
Un fichero VSAM es un fichero de tipo indexado, que tiene definido un índice, y sobre el que se pueden realizar accesos por índice.

Vamos a crear un programa que dé de alta registros, borre registros y actualice registros de un fichero VSAM.
Para ello usaremos el siguiente ejemplo:
Tenemos como entrada 2 versiones del fichero oficina (será un GDG), por un lado la versión actual (0), y por otro la versión anterior (-1). En estos ficheros tendremos la información de las oficinas de un banco con formato:
COPY COFICINA:
01 CSAM-COFICINA.
   05 CSAM-CLAVE.
      10 CSAM-COD-CODENT         PIC 9(4).
      10 CSAM-COD-CODOFI         PIC 9(4).
   05 CSAM-DES-NOMBRE            PIC X(20).
   05 CSAM-COD-CODPOS            PIC 9(5).
   05 CSAM-COD-TELEF1            PIC 9(9).
   05 CSAM-FEC-APERTU            PIC X(10).

La versión (0) será la que tenga los datos más actuales (del día). La versión (-1) será la del día anterior.
Los datos de las oficinas se guardan en un fichero VSAM con clave código de entidad (CSAM-COD-CODENT) y código de oficina (CSAM-COD-CODOFI).
Vamos a comparar las dos versiones para:
1. Si una oficina existe en el fichero de hoy y en la versión del día anterior, actualizamos esa clave en el fichero VSAM.
2. Si una oficina existe en el fichero de hoy pero no en el de ayer, la damos de alta en el fichero VSAM.
3. Si una oficina existe en el fichero de ayer pero no en el de hoy, la damos de baja del fichero VSAM.

JCL:

//** *****************************************************
//** ** ACTUALIZAMOS FICHERO DE OFICINAS VSAM ** **
//** ***************************************************
//PGMVSAM EXEC PGM=PGMVSAM
//ENTRADA1 DD DSN=NOMBRE.FICHERO.OFICINA(0),DISP=SHR
//ENTRADA2 DD DSN=NOMBRE.FICHERO.OFICINA(-1),DISP=SHR
//SALIDA   DD DSN=FICHERO.SALIDA.VSAM,DISP=SHR
//SYSOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=4,DEST=JESTC3
//SYSDBOUT DD SYSOUT=4,DEST=JESTC3
//CEEDUMP  DD SYSOUT=4,DEST=JESTC3
/*



PROGRAMA:

 IDENTIFICATION DIVISION.
 PROGRAM-ID. PGMVSAM.
 AUTHOR. CONSULTORIO COBOL. 

*============================================*
* PROGRAMA DE MANTENIMIENTO DE FICHERO VSAM  *
*============================================*
*
*

 ENVIRONMENT DIVISION.
*
 CONFIGURATION SECTION.
 SPECIAL-NAMES.
    DECIMAL-POINT IS COMMA.
*
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
     SELECT
ENTRADA0 ASSIGN TO ENTRADA0
     FILE STATUS IS FS-ENTRADA0.
 

     SELECT ENTRADA1 ASSIGN TO ENTRADA1 
     FILE STATUS IS FS-ENTRADA1.

     SELECT
SALIDA ASSIGN TO SALIDA
     ORGANIZATION IS INDEXED
     ACCESS MODE IS RANDOM
     RECORD KEY IS CLAVE-OFICVSM
     FILE STATUS IS FS-SALIDA.
*
 DATA DIVISION.
*
 FILE SECTION.
*
**** FICHEROS DE ENTRADA ****
*
**--> OFICINAS VERSION 0 (FICHERO SECUENCIAL)
 FD
ENTRADA0
     LABEL RECORD STANDARD
     RECORDING MODE IS F
     BLOCK CONTAINS 0 RECORDS.
 01 REG-ENTRADA0             PIC X(52).
*
*--> OFICINAS VERSION -1 (FICHERO SECUENCIAL)
 FD
ENTRADA1
     LABEL RECORD STANDARD
     RECORDING MODE IS F
     BLOCK CONTAINS 0 RECORDS.
 01 REG-ENTRADA1             PIC X(52).

**** FICHERO DE ENTRADA - SALIDA ****
*
*--> OFICINAS (FICHERO VSAM)
 FD SALIDA.
 01 REG-VSAM.
     03 CLAVE-OFICVSM          PIC X(08).
     03 RESTO-OFICVSM          PIC X(44).
*
*
**********************************************
*
 WORKING-STORAGE SECTION.
*
*--------------------------------------------
*--- AREA DE COPYS ---*
*---------------------------------------------
*
*--------------- COPY FICHERO OFICINAS ------------
 COPY COFICINA REPLACING CSAM-COFICINA BY ==ENT-V0==.
*
 COPY COFICINA REPLACING CSAM-COFICINA BY ==ENT-V1==.
*
*--------------------------------------------------
* AREA DE SWITCHES
*-------------------------------------------------
*--> Final fichero OFICINAS VERSION 0
 01 WB-FIN-ENTRADA0            PIC X(1) VALUE 'N'.
     88 FIN-ENTRADA0                    VALUE 'S'.

*--> Final fichero OFICINAS VERSION 1
 01 WB-FIN-ENTRADA1            PIC X(1) VALUE 'N'.
     88 FIN-ENTRADA1                    VALUE 'S'.
*
*------------------------------------------------
* CODIGOS DE ESTADO DE FICHEROS
*-------------------------------------------------
* FILE STATUS
 01 FS-STATUS.
    05 FS-ENTRADA0               PIC X(2).
       88 FS-ENTRADA0-OK                 VALUE '00'.
       88 FS-ENTRADA0-EOF                VALUE '10'.
    05 FS-ENTRADA1               PIC X(2).
       88 FS-ENTRADA1-OK                 VALUE '00'.
       88 FS-ENTRADA1-EOF                VALUE '10'.

    05 FS-SALIDA                 PIC X(2).
       88 FS-SALIDA-OK                   VALUE '00'.


*----------------------------------------------------
* REGISTROS LEIDOS - GRABADOS - BORRADOS - MODIFICADOS
*----------------------------------------------------
 01 WC-PROCESADOS.
    03 REG-LEIDOS-EN0          PIC 9(09) VALUE ZEROS.
    03 REG-LEIDOS-EN1          PIC 9(09) VALUE ZEROS.
    03 REG-GRABADOS-VSAM       PIC 9(09) VALUE ZEROS.
    03 REG-BORRADOS-VSAM       PIC 9(09) VALUE ZEROS.
    03 REG-MODIF-VSAM          PIC 9(09) VALUE ZEROS.
*
 PROCEDURE DIVISION.
*
************************************************************
* | 0000 - PRINCIPAL
*--|------------------+----------><----------+-------------* 

* 1| EJECUTA EL INICIO DEL PROGRAMA 
* 2| EJECUTA EL PROCESO DEL PROGRAMA 
* 3| EJECUTA EL FINAL DEL PROGRAMA ************************************************************ 
* 00000-PRINCIPAL. 

      PERFORM 1000-INICIO 
      PERFORM 2000-PROCESO 
        UNTIL FIN-ENTRADA0 AND FIN-ENTRADA1
      PERFORM 3000-FINAL 


*----------- 
 1000-INICIO. 
*----------- 
      PERFORM 1100-ABRIR-FICHEROS 

*--> LEEMOS PRIMERA OFICINA 
      PERFORM LEER-ENTRADA0
      PERFORM LEER-ENTRADA1


*--------------- 
 2000-PROCESO. 
*--------------- 

      EVALUATE TRUE 
         WHEN CSAM-CLAVE OF ENT-V0  
              EQUAL CSAM-CLAVE OF ENT-V1

              IF ENT-V0 NOT EQUAL ENT-V1
*---------> ACTUALIZAR CLAVE EN FICHERO VSAM
                 MOVE ENT-V0 TO REG-VSAM

                 PERFORM 2100-MODIFICAR-VSAM 
              END-IF 

              PERFORM LEER-ENTRADA0
              PERFORM LEER-ENTRADA1
         WHEN CSAM-CLAVE OF ENT-V0 GREATER THAN 
              CSAM-CLAVE OF ENT-V1
*---------> DAR DE BAJA CLAVE DE V1 EN FICHERO VSAM 
              MOVE CSAM-CLAVE OF ENT-V1 
                TO CLAVE-OFICVSM 

              PERFORM 2200-BAJA-VSAM 
              PERFORM LEER-ENTRADA1
         WHEN CSAM-CLAVE OF ENT-V0 LESS THAN 
              CSAM-CLAVE OF ENT-V1
*---------> DAR DE ALTA LA CLAVE DE V0 EN FICHERO VSAM 
              MOVE ENT-V0 TO REG-VSAM

              PERFORM 2300-ALTA-VSAM 
              PERFORM LEER-ENTRADA0
      END-EVALUATE 
      . 

*----------- 
 3000-FINAL. 
*----------- 
      PERFORM CERRAR-FICHEROS 

      PERFORM ESTADISTICAS 

      STOP RUN 
      . 

*-----------------------  
 1100-ABRIR-FICHEROS. 
*----------------------- 
      OPEN INPUT ENTRADA0
                 ENTRADA1
             I-O SALIDA 

      IF NOT FS-ENTRADA0-OK 
         DISPLAY 'ERROR EN ABRIR-ENTRADA1' 
         DISPLAY 'FILE-STATUS = 'FS-ENTRADA0
      END-IF 

      IF NOT FS-ENTRADA1-OK 
         DISPLAY 'ERROR EN ABRIR-ENTRADA2' 
         DISPLAY 'FILE-STATUS = 'FS-ENTRADA1
      END-IF 

      IF NOT FS-SALIDA-OK 
         DISPLAY 'ERROR EN ABRIR-FVSAM' 
         DISPLAY 'FILE-STATUS = ' FS-SALIDA
      END-IF 
      . 

*---------------------- 
 LEER-ENTRADA0. 
*---------------------- 
      READ ENTRADA0 INTO ENT-V0

      EVALUATE TRUE 
         WHEN FS-ENTRADA0-OK 
              ADD 1 TO REG-LEIDOS-EN0
         WHEN FS-ENTRADA0-EOF 
              SET FIN-ENTRADA0 TO TRUE 
         WHEN OTHER 
              DISPLAY 'ERROR EN LEER-ENTRADA0' 
              DISPLAY 'FILE-STATUS = ' FS-ENTRADA0
              PERFORM ESTADISTICAS 
      END-EVALUATE 
     

*------------------------ 
 CERRAR-FICHEROS. 
*------------------------ 
      CLOSE ENTRADA0
            ENTRADA1
            SALIDA 

      IF NOT FS-ENTRADA0-OK 
         DISPLAY 'ERROR EN CERRAR-ENTRADA0' 
         DISPLAY 'FILE-STATUS = ' FS-ENTRADA0
         PERFORM ESTADISTICAS 
      END-IF 

      IF NOT FS-ENTRADA1-OK 
         DISPLAY 'ERROR EN CERRAR-ENTRADA1' 
         DISPLAY 'FILE-STATUS = 'FS-ENTRADA1
         PERFORM ESTADISTICAS 
      END-IF 

      IF NOT FS-SALIDA-OK 
         DISPLAY 'ERROR EN CERRAR-FVSAM' 
         DISPLAY 'FILE-STATUS = ' FS-SALIDA
         PERFORM ESTADISTICAS 
      END-IF 
      . 

*---------------------- 
 LEER-ENTRADA1. 
*---------------------- 
      READ ENTRADA1 INTO REG-ENTRADA1 

      EVALUATE TRUE 
         WHEN FS-ENTRADA1-OK 
              ADD 1 TO REG-LEIDOS-EN1
         WHEN FS-ENTRADA1-EOF 
              SET FIN-ENTRADA1 TO TRUE 
         WHEN OTHER 
              DISPLAY 'ERROR EN LEER-ENTRADA1' 
              DISPLAY 'FILE-STATUS = ' FS-ENTRADA1
              PERFORM ESTADISTICAS 
      END-EVALUATE 
      . 

*------------------ 
 2100-MODIFICAR-VSAM. 
*------------------ 
      REWRITE REG-VSAM 
      INVALID KEY 
         DISPLAY 'ERROR EN MODIFICAR-VSAM' 
         DISPLAY 'FILE-STATUS = ' FS-SALIDA
         PERFORM ESTADISTICAS 
         ADD 1 TO REG-MODIF-VSAM
      . 
*------------- 
 2200-BAJA-VSAM. 
*------------- 
      DELETE REG-VSAM
      INVALID KEY 
         DISPLAY 'ERROR EN BAJA-VSAM' 
         DISPLAY 'FILE-STATUS = ' FS-SALIDA
         PERFORM ESTADISTICAS 
         
      ADD 1 TO REG-BORRADOS-VSAM
      . 
*------------- 
 2300-ALTA-VSAM. 
*------------- 
      WRITE REG-VSAM  
      INVALID KEY 
         DISPLAY 'ERROR EN ALTA-VSAM' 
         DISPLAY 'FILE-STATUS = ' FS-SALIDA
         PERFORM ESTADISTICAS 
      
      ADD 1 TO REG-GRABADOS-VSAM
      . 

*-------------------------------------------- 
* ESTADISTICAS 
*------------------------------------------- 
 ESTADISTICAS. 
*------------- 
      DISPLAY '******************************************' 
      DISPLAY '* E S T A D I S T I C A S *' 
      DISPLAY '******************************************' 
      DISPLAY ' PROGRAMA PGMVSAM' 
      DISPLAY '******************************************' 
      DISPLAY 'REG. LEIDOS OFI V0 ........ ' REG-LEIDOS-EN0
      DISPLAY 'REG. LEIDOS OFI V-1 ....... ' REG-LEIDOS-EN1
      DISPLAY 'REG. GRABADOS OFI VSAM .... ' REG-GRABADOS-VSAM
      DISPLAY 'REG. BORRADOS OFI VSAM .... ' REG-BORRADOS-VSAM
      DISPLAY 'REG. MODIFIC EN OFI VSAM .. ' REG-MODIF-VSAM
      DISPLAY '******************************************'
      . 
********************************************* 

Este ejemplo os lo dejo sin probar, así que puede haber algún error en el código.
Cualquier duda la vemos!