Foro de Cobol
Registrate en el Foro de Cobol y Aporta tus experiencias y conocimientos sobre este lenguaje de programacion, con tu ayuda el foro crecera y todos nos podremos beneficiar de los conocimientos de los demas.

Gracias por entrar a COBOLEROS.ES
Síguenos en Twitter

Ficheros GDG

Ver el tema anterior Ver el tema siguiente Ir abajo

Ficheros GDG

Mensaje por Coboler@ el Jue Abr 14, 2011 8:13 pm

Un fichero GDG, no es otra cosa que un mismo fichero pero versionado, es decir, el nombre del fichero es el mismo, únicamente que se genera una nueva versión del fichero cada vez que se crea uno nuevo.

El fichero actual siempre es aquel que se referencia como (0), siendo el anterior (-1) y uno posterior sería (+1).

//P010 EXEC PGM=SORT,COND=(0,NE)
//SORTIN DD DSN=XXX.XXX.XXXXXXX.XXXXXXX(0),DISP=SHR
//SORTOUT DD DSN=XXX.XXX.XXXXXXX.XXXXXXX.SORT,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDES,SPACE=(18309,(50,10),RLSE) ),
// DCB=(RECFM=FB,LRECL=359,BLKSIZE=18309)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(1,8,CH,A)
INCLUDE COND=(27,7,CH,EQ,C’0000490’)
/*


En el ejemplo, se copia el fichero de entrada en el de salida, partiendo de un fichero GDG, se toma en este caso la versión actual del fichero PTCONHIS.

//P070 EXEC PGM=ICEGENER,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=XXX.XXX.XXXXXXX.XXXXXXX(0),DISP=SHR
// DD DSN=XXX.XXX.XXXXXXX.XXXXXXX,DISP=OLD
//SYSUT2 DD DSN=XXX.XXX.XXXXXXX.XXXXXXX(+1),
// DISP=(,PASS),UNIT=SYSDES,
// SPACE=(CYL,(500,20),RLSE),
// DCB=(RECFM=FB,LRECL=375,BLKSIZE=18375)
//SYSIN DD DUMMY


En el ejemplo, se copia el fichero SYSUT1 en el fichero SYSUT2, generando una nueva versión del mismo.

avatar
Coboler@
Admin

Mensajes : 215
Reputación : 19
Fecha de inscripción : 02/02/2011
Edad : 37
Localización : Madrid

Ver perfil de usuario http://www.coboleros.es

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.