May 20

GDG (Generation Data Group)

compártelo en Facebook!

Generation Data Group (GDG), es un grupo de archivos que están funcional y cronológicamente relacionados entre sí.
No son ficheros VSAM.
Su nombre lo asigna el sistema de la siguiente manera:
Nombfich.GnnnnVnn

* Nombfich, corresponde a la denominación de grupo.
* Gnnnn, número de generación (de 0000 a 9999). Cuando se llega al máximo número de ficheros para un GDG, dependiendo de los parámetros del sistema, el GDG se vacía por completo o sólo el más antiguo. Al añadir un nuevo fichero al grupo, siempre será GEN(+1), siendo el actual siempre GEN(0).
* Vnn, versión de la generación (de 00 a 99). Sólo se conserva la versión más reciente.

Creación de un GDG

01             1         2         3         4         5         6         7
02    ----+----0----+----0----+----0----+----0----+----0----+----0----+----0--
03    //PROGRAMA EXEC PGM=IDCAMS
04    //SYSPRINT DD SYSOUT=*
05    //SYSIN    DD *
06           DEFINE GDG                            -
07                  (NAME(FICHERO.PRUEBA.TUTORIAL) -
08                  LIMIT(25)                      -
09                  EMPTY                          -
10                  NOSCRATCH)

Los parámetros empleados son los siguientes:

* LIMIT: especifica el número máximo de GDS’s (ficheros) que puede tener un GDG.
* EMPTY: al llegar al máximo, se descatalogan (se borran) todos los ficheros de generación; NOEMPTY, al llegar al máximo, sólo se descataloga el fichero más antiguo.
* SCRATCH / NOSCRATCH: especifica si se borrará o no del volumen la información existente del fichero, cuando éste se descatalogue.

Creación de un GDS

1             1         2         3         4         5         6         7
2    ----+----0----+----0----+----0----+----0----+----0----+----0----+----0--
3    //PROGRAMA EXEC PGM=PGMGDS
4    //SALIDA   DD DSN=FICHERO.PRUEBA.TUTORIAL(+1),<br>
5    //            DISP=(,CATLG,DELETE),UNIT=SYSDA,
6    //            SPACE=(TRK,(25,5),RLSE),
7    //            RECFM=FB,LRECL=95,BLKSIZE=0

El nombre completo del fichero empleado en el ejemplo sería:

FICHERO.PRUEBA.TUTORIAL.G0001V01

Al acabar de ejecutarse el paso, el GDG pasa a ser el actual (versión 0).
Si un paso posterior crea otro fichero nuevo (+1), al acabar de ejecutarse el paso, el GDG pasa a ser el actual (versión 0), y el que teníamos anteriormente sería la versión (-1).

Borrado de un GDS

1             1         2         3         4         5         6         7
2    ----+----0----+----0----+----0----+----0----+----0----+----0----+----0--
3    //DEL GDS EXEC PGM=IDCAMS
4    //SYSPRINT DD SYSOUT=*
5    //SYSIN    DD  *
6           DELETE   FICHERO.PRUEBA.TUTORIAL(0) PURGE

Borrado de un GDG

1             1         2         3         4         5         6         7
2    ----+----0----+----0----+----0----+----0----+----0----+----0----+----0--
3    //DELGDG EXEC PGM=IDCAMS
4    //SYSPRINT DD SYSOUT=*
5    //SYSIN    DD  *
6           DELETE FICHERO.PRUEBA.TUTORIAL GDG PURGE

link original: http://www.adictosaltrabajo.com/tutoriales/tutoriales.php?pagina=JCLIntro

Enlace permanente a este artículo: http://www.borhaps.es/gdg/

publi

Deja un comentario