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

OUTFIL

Ver el tema anterior Ver el tema siguiente Ir abajo

OUTFIL

Mensaje por Coboler@ el Miér Mar 30, 2011 8:07 pm

Mediante esta opción del Sort, se puede copiar un fichero sobre otro con la opción de ordenamiento de los registros a la salida si se desea, con la inclusión u omisión de los registros que cumplan las condiciones deseadas, formateando los registros a su salida, sumando los campos deseados de aquellos registros que cumplan las condiciones deseadas y además repartir los registros según los criterios deseados en varios ficheros.

//********************************************************
//* SORT SOBRE EL FICHERO XXXXXXXX *
//* ORDENANDO POR EMPRESA, CENTRO, CUENTA *
//* SACANDO SOLO LA EMPRESA, CENTRO Y CUENTA *
//* LLEVANDO LOS PRESTAMOS DE LOS CENTROS 0001 AL 1000 AL *
//* FICHERO 1, LOS DEL 1001 AL 5000 AL FICHERO 2 Y LOS DEL *
//* 50001 EN ADELANTE AL FICHERO 3 *
//********************************************************
//P010 EXEC PGM=SORT,COND=(0,NE)
//SORTIN DD DSN=XXXX.XXXX.XXXXXXX.XXXXXXX,DISP=SHR
//SALIDA1 DD DSN=XXXX.XXXX.XXXXXXX1.XXXXXXX.SORT,
// DISP=(,CATLG,DELETE),
// UNIT=SYSPRO,SPACE=(CYL,(50,10),RLSE) ),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=18400)
//SALIDA2 DD DSN=XXXX.XXXX.XXXXXXX2.XXXXXXX.SORT,
// DISP=(,CATLG,DELETE),
// UNIT=SYSPRO,SPACE=(CYL,(50,10),RLSE) ),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=18400)
//SALIDA3 DD DSN=XXXX.XXXX.XXXXXXX3.XXXXXXX.SORT,
// DISP=(,CATLG,DELETE),
// UNIT=SYSPRO,SPACE=(CYL,(50,10),RLSE) ),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=18400)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(1,18,CH,A)
OUTFIL FNAMES=SALIDA1,INCLUDE=(5,4,CH,LT,C’1001’)
OUTFIL FNAMES=SALIDA2,INCLUDE=(5,4,CH,GT,C’1000’,AND,
5,4,CH,LT,C’5001’)
OUTFIL FNAMES=SALIDA3,INCLUDE=(5,4,CH,GT,C’5000’)
/*


En el ejemplo, se copia el fichero de entrada en el de salida, ordenando los registros a la salida por los caracteres 1 al 18 ascendente, sacando al Fichero 1 los préstamos cuyo centro se inferior al 1001, al fichero 2 los del centro superior a 1000 e inferior a 5001, y al fichero 3 los del centro superior a 5000.



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.