Hola. Os dejo un jcl que os puede sacar de un apuro en más de una ocasión (a mí me salvó más de una vez).
Se trata de un procesito fácil, barato y para toda la familia, que nos permite averiguar que registros de un fichero están duplicados, cuales no y cuantos son.
Como siempre, para que quede más claro seguiré un ejemplo práctico, válido para cualquier caso:
Supongamos que tenemos el siguiente fichero con los duplicados:
----+----1----+----2----+----3----+----4----+----5----
***************************** Top of Data ************
000000001JOSE LOPEZ PITA AUTONOMO
000000002JAVIER MARTINEZ CARRETEROASALARIADO
000000002JAVIER MARTINEZ CARRETEROASALARIADO
000000003CARLOS PEREZ FANO AUTONOMO
000000004CARLOS POLO DEL BARROAUTONOMO
000000005YOLANDA LOPEZ ALONSO AUTONOMO
000000005YOLANDA LOPEZ ALONSO AUTONOMO
000000005YOLANDA LOPEZ ALONSO AUTONOMO
000000006ANTONIO VILLA SUSO AUTONOMO
000000007FULANITO VILLA SUSO AUTONOMO
...
Vemos que Javier y Yolanda salen repetidos, Yolanda icluso viene 3 veces. A simple vista los vemos porque el ejemplo está preparado para ello, pero imaginate que el fichero tuviera 100.000 registros y solo 2 duplicados, se complica la búsqueda no? continuamos:
PASO1 - Lo primero que haremos será ordenar el fichero por la clave (en este caso son las primeras 9 posiciones) y después poner un 1 al final de cada uno de los registros del fichero, para ello:
//PASO001 EXEC SORTD
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=nombre_fichero_con_diplicados1,DISP=SHR
//SORTOUT DD DSN=nombre_fichero_salida1_paso001,
// DISP=(,CATLG),
// SPACE=(CYL,(100,100),RLSE)
//SYSIN DD *
SORT FIELDS=(1,9,ZD,A)
OUTREC FIELDS=(1,54,C'1')
El fichero quedará del siguiente modo:
----+----1----+----2----+----3----+----4----+----5----+
***************************** Top of Data *************
000000001JOSE LOPEZ PITA AUTONOMO 1
000000002JAVIER MARTINEZ CARRETEROASALARIADO 1
000000002JAVIER MARTINEZ CARRETEROASALARIADO 1
000000003CARLOS PEREZ FANO AUTONOMO 1
000000004CARLOS POLO DEL BARROAUTONOMO 1
000000005YOLANDA LOPEZ ALONSO AUTONOMO 1
000000005YOLANDA LOPEZ ALONSO AUTONOMO 1
000000005YOLANDA LOPEZ ALONSO AUTONOMO 1
000000006ANTONIO VILLA SUSO AUTONOMO 1
000000007FULANITO VILLA SUSO AUTONOMO 1
...
PASO2 - Ahora lo que haremos será agrupar los registros por clave y utilizar el numeríto (1) que hemos introducido para sumar los registros que agrupemos:
//PASO002 EXEC SORTD
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=nombre_fichero_salida1_paso001,DISP=SHR
//SORTOUT DD DSN=nombre_fichero_salida,
// DISP=(,CATLG),
// SPACE=(CYL,(100,100),RLSE)
//SYSIN DD *
SORT FIELDS=(1,9,ZD,A)
SUM FIELDS=(55,1,ZD)
Obtendremos el resultado siguiente:
----+----1----+----2----+----3----+----4----+----5----+
***************************** Top of Data *************
000000001JOSE LOPEZ PITA AUTONOMO 1
000000002JAVIER MARTINEZ CARRETEROASALARIADO 2
000000003CARLOS PEREZ FANO AUTONOMO 1
000000004CARLOS POLO DEL BARROAUTONOMO 1
000000005YOLANDA LOPEZ ALONSO AUTONOMO 3
000000006ANTONIO VILLA SUSO AUTONOMO 1
000000007FULANITO VILLA SUSO AUTONOMO 1
...
Bien, ahora simplemente hacemos busquedas en el fichero teniendo en cuenta lo siguiente:
- Si el numerito introducido al final de cada registro no ha variado (si vale 1), quiere decir que el registro no está duplicado
- Si ha variado el valor querra decir que el registro estaba duplicado y nos dirá el número de veces que está duplicado.
Según el ejemplo vemos como Javier tiene un 2 porque está repetido dos veces, Yolanda tiene un 3 porque está repetida 3 veces, y el resto tienen un 1 porque no están repetidos.
Así de facil!
Otros casos útiles:
En algunas ocasiones queremos camparar dos ficheros para encontrar las direfencias, por ejemplo, suponte que deberían de ser iguales pero uno de ellos tiene 3 registros más que el otro, y que esto pueda ser debido algún registro duplicado.
Para resolverlo, podéis aplicar este mismo método, aplicando el PASO1 a los dos ficheros y luego metiendo los dos ficheros en el PASO2. Te dirá que registros son únicos(tanto de un fichero como del otro), cuales no lo són y el número de los que estén repetidos.
Espero que os haya servido, no obstante cualquier duda comentarla.
3 comentarios:
Buenas,
Muchas gracias, este blog me es muy útil.
Una pregunta, usando un INREC para añadir el campo numérico en lugar de un OUTREC, sería posible obtener los duplicados en un solo paso?
Hola buenas, muchas gracias por este blog. No entiendo porque pero utilizando este código el resultado de la suma me da en letras. Por ejemplo 1+1=B. Alguien me podría ayudar.
Eso es porque está comprimido, con HEX verás el resultado (B=2C).
Para solucionarlo tendrás que reformatearlo con OUTREC.