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

3.- SENTENCIA DD.

Ver el tema anterior Ver el tema siguiente Ir abajo

3.- SENTENCIA DD.

Mensaje por Coboler@ el Jue Mayo 05, 2011 9:10 pm

En una ficha DD se definen los ficheros que necesite el paso.

Si la información no cabe en una sola línea:

- Escribir lo que se desee hasta la línea 71 inclusive.
- Para incluir comentarios hay que dejar un blanco en medio.
- Codificar un carácter que no sea blanco en la columna 72 si no cabe en una sola línea (el sistema asume que es continuación a pesar de no tener un carácter en la columna 72 sí en la siguiente línea están rellenos los caracteres 4,5 o 6).
- En la siguiente línea en la que se continúa poner en la columna 1 y 2 ‘//’.
- Continuar el parámetro entre las columnas 4 a 16, si comienza en una columna posterior a la 16 el sistema lo trata como un comentario.
- En la columna 3 sólo puede ir un blanco o un asterisco.


EJEMPLOS:

Fichero permanente :

//MYDS DD DSNAME=PLANA,DCB=(RECFM=FB,LRECL=80,BLKSIZE=960),
// DISP=(NEW,CATLG,DELETE),
// UNIT=3380,VOLUME=SER=167833,SPACE=(CYL,(10,5))

// LEEMY DD DSNAME=PLANA,DISP=OLD


Miembro de un fichero particionado:

//NEWA DD DSNAME=RPRT(WEEK1),DISP=(NEW,CATLG,DELETE),
// UNIT=3380,VOLUME=SER=236688,SPACE=(CYL,(20,5,20))

//LEENEW DD DSNAME=RPRT(WEEK1),DISP=OLD


GDG:

//NEWGDS DD DSNAME=GDS(0),DISP=(NEW,CATLG,DELETE),
// UNIT=3380,VOLUME=SER=334455,SPACE=(CYL,20)

//OLDGGS DD DSNAME=GDS(-1),DISP=OLD

//NEWER DD DSNAME=GGDS(+1),DISP=(NEW,CATLG,DELETE),
// UNIT=3350,VOLUME=SER=222333,SPACE=(TRK,15)

//ALLG DD DSNAME=GDS,DISP=OLD


Fichero secuencial indexado:

//NEWIS DD DSNAME=ISDS(INDEX),DISP=(NEW,CATLG,DELETE),
// UNIT=3350,VOLUME=SER=222333,SPACE=(CYL,5)
// DD DSNAME=ISDS(PRIME),DISP=(NEW,CATLG,DELETE),
// UNIT=3350,VOLUME=SER=222333,SPACE=(CYL,15)
// DD DSNAME=ISDS(OVFLOW),DISP=(NEW,CATLG,DELETE),
// UNIT=3350,VOLUME=SER=222333,SPACE=(CYL,10)

//LEEIS DD DSNAME=ISDS,DISP=OLD


Fichero temporal:

//TEMPDS1 DD DSNAME=&&MYDS,DISP=NEW,UNIT=3350,SPACE=(CYL,20)




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


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