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

MERGE

Ver el tema anterior Ver el tema siguiente Ir abajo

MERGE

Mensaje por Coboler@ el Mar Mar 29, 2011 7:55 pm

Mediante esta opción del Sort, se puede mezclar varios ficheros, 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.

//******************************************************************
//* SORT SOBRE EL FICHERO FICHERO1 Y FICHERO2 *
//* ORDENANDO POR EMPRESA, CENTRO, CUENTA *
//* SACANDO SOLO LA EMPRESA, CENTRO Y CUENTA *
//******************************************************************
//P010 EXEC PGM=SORT,COND=(0,NE)
//SORTIN01 DD DSN=XXX.XXX.FICHERO1.XXXXXXX,DISP=SHR
//SORTIN02 DD DSN=XXX.XXX.FICHERO2.XXXXXXX,DISP=SHR
//SORTOUT DD DSN=XXX.XXX.XXXXXXX.XXXXXXX.SORT,
// DISP=(,CATLG,DELETE),
// UNIT=SYSPRO,SPACE=(CYL,(50,10),RLSE) ),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=18400)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
MERGE FIELDS=(1,18,A),FORMAT=BI,FILES=2
/*

En el ejemplo, se copia los 2 ficheros de entrada en el de salida, ordenando los registros a la salida por las posiciones 1 al 18 ascendente, en formato Binario.

Otra forma de unir 2 ficheros a la entrada de un proceso, es mediante DD’s Encadenadas.

//******************************************************************
//* SORT SOBRE EL FICHERO PRESTAM1 Y PRESTAM2 *
//* ORDENANDO POR EMPRESA, CENTRO, CUENTA *
//******************************************************************
//P010 EXEC PGM=SORT,COND=(0,NE)
//SORTIN DD DSN=XXX.XXX.FICHERO1.XXXXXXX,DISP=SHR
// DD DSN=XXX.XXX.FICHERO2.XXXXXXX,DISP=SHR
//SORTOUT DD DSN=XXX.XXX.XXXXXX.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,BI,A)
/*

En el ejemplo, se copia los 2 ficheros de entrada en el de salida, ordenando los registros a la salida por los caracteres 1 al 18 ascendente.


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.