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

Utilidades sobre Ficheros Secuenciales

Ver el tema anterior Ver el tema siguiente Ir abajo

Utilidades sobre Ficheros Secuenciales

Mensaje por Coboler@ el Dom Mar 20, 2011 8:43 pm

Los ficheros sin necesidad de realización de ningún programa, pueden ser creados, borrados, limpiados, etc.

• Borrado de un fichero : Para borrar un fichero, se puede realizar con la utilidad IEFBR14, que por sí solo no hace nada.

//P100 EXEC PGM=IEFBR14,COND=(0,NE)
//FICHERO DD DSN=XXX.XXX.XXXXXXXX,
// DISP=(OLD,DELETE)


• Creación de un fichero : Para crear un fichero en vacío, se puede realizar con la utilidad IEFBR14 o con la utilidad IEBGENER.

//P100 EXEC PGM= IEFBR14,COND=(0,NE)
//FICHERO DD DSN=XXX.XXX.XXXXXXXX,
// DISP=(,CATLG,CATLG),
// UNIT=SYSPRO,SPACE=(18375,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=175,BLKSIZE=18375)

//P100 EXEC PGM=IEBGENER,COND=(0,NE)
//SYSUT1 DD DUMMY
//SYSUT2 DD DSN=XXX.XXX.XXXXXXXX,
// DISP=(,CATLG,DELETE),
// UNIT=SYSPRO,SPACE=(18375,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=175,BLKSIZE=18375)
//SYSIN DD DUMMY


• Variación de los datos de un fichero : Para cambiar el orden de los datos en un fichero e incluso conversión de datos, se puede utilizar la utilidad IEBGENER.

//P100 EXEC PGM=IEBGENER,COND=(0,NE)
//SYSUT1 DD DSN=XXX.XXX.XXXXXX.XXXXXXXXX,DISP=SHR
//SYSUT2 DD DSN=XXX.XXX.XXXXXXXX.XXXXXXXX1,
// DISP=(,CATLG,DELETE),
// UNIT=SYSPRO,SPACE=(CYL,(50,10),RLSE) ),
// DCB=*.ENTRADA
//SYSIN DD *
GENERATE MAXFLDS=2
RECORD FIELD=(26,1,,14),FIELD=(7,27,PZ,1)
/*


En el ejemplo, se copia el fichero SYSUT1 en el fichero SYSUT2, pero las 26 primeras posiciones se pasan a las posiciones 14 en adelante y las posiciones 27 a la 33 se convierten de numérico empaquetado a numérico desempaquetado a partir de la primera posición. Si la conversión se quisiese al revés, sería ZP.

• Limpieza de un fichero : Para vaciar completamente de datos un fichero, se puede realizar con un SYSCLEAR.

//P100 EXEC PGM=SYSCLEAR,COND=(0,NE)
//FICHERO DD DSN=XXX.XXX.XXXXXXX,
// DISP=(,PASS),
// UNIT=SYSPRO,SPACE=(18375,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=175,BLKSIZE=18375)
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.