ICETOOL(I): SPLICE; cruce de ficheros.

Vamos a publicar una serie de articulos sobre el uso del ICETOOL.
En esta ocasión explicaremos como cruzar dos fichero mediante un JCL, con ICETOOL.

Cruce de dos ficheros usando el comando SPLICE.

Vamos a hacer el caso de cruce 1:n  (un caso particular seria el caso 1:1)

Fichero IN1:
----+----1----+----2----+

4444	1111000021	1	YYYYYYYYY
4444	1111000021	2	QQQQQQQQQ
4444	1111000021	3	VVVVVVVVV
4444	1111000021	4	CCCCCCCCC
4444	1111000021	5	ZZZZZZZZZ
4444	1111000021	6	DDDDDDDDD

Fichero IN2:
----+----1----+----2----+----3----+

000000000	CCCCCCCCC	016	1111000021	010
000000000	QQQQQQQQQ	016	1111000021	020
000000000	ZZZZZZZZZ	016	1111000021	030
000000000	YYYYYYYYY	016	1111000021	050
000000000	VVVVVVVVV	016	1111000021	050
000000000	CCCCCCCCC	016	1111000021	090
000000000	XXXXXXXXX	016	1111000021	010

JCL que realiza el cruce:

//PASO010 EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//SHOWDEF  DD SYSOUT=*
//IN1      DD DISP=SHR,
//            DSN=USER.ICETOOL.IN1
//IN2      DD DISP=SHR,
//            DSN=USER.ICETOOL.IN2
//TMP      DD DSN=&&TEMP,DISP=(MOD,PASS),
//            SPACE=(TRK,(10,10)),UNIT=SYSDA
//OUT      DD DISP=(,CATLG),SPACE=(TRK,(10,10),RLSE),
//            DSN=USER.ICETOOL.OUT
//TOOLIN   DD *
  COPY FROM(IN1) TO(TMP) USING(CTL1)
  COPY FROM(IN2) TO(TMP) USING(CTL2)
  SPLICE FROM(TMP) TO(OUT) ON(1,10,CH) ON(11,9,CH) -
  WITH(21,3) WITH(24,1) WITHALL KEEPNODUPS USING(CTL3)
/*
//CTL1CNTL DD *
  INREC BUILD=(1:5,10,11:16,9,20:15,1,24:C'BB')
//CTL2CNTL DD *
  INREC BUILD=(1:22,10,11:10,9,21:32,3,24:C'VV')
//CTL3CNTL DD *
  OUTFIL FNAMES=OUT,INCLUDE=(24,2,CH,EQ,C'VB'),OUTREC=(1,23)
/*

La idea básica para la realización del cruce consiste en usar un fichero de apoyo (un fichero temporal) que una ambos ficheros, donde la clave de cruce estará en la misma posición para todos los registros de los ficheros IN1 e IN2.
Para lograr esto utilizaremos la sentencia COPY con la ayuda del USING, que nos permitirá usar "reglas de copiado" (en este caso hemos usando INREC, pero podriamos usar otras formas como OUTREC, condicionales IFTHEN, OVERLAY, ....).

Para el IN1 tenemos :
COPY FROM(IN1) TO(TMP) USING(CTL1)
...
//CTL1CNTL DD *
  INREC BUILD=(1:5,10,11:16,9,20:15,1,24:C'BB')

----+----1----+----2----+

4444	1111000021	1	YYYYYYYYY
4444	1111000021	2	QQQQQQQQQ
4444	1111000021	3	VVVVVVVVV
4444	1111000021	4	CCCCCCCCC
4444	1111000021	5	ZZZZZZZZZ
4444	1111000021	6	DDDDDDDDD

Para el IN2 tenemos:
COPY FROM(IN1) TO(TMP) USING(CTL1)
....
//CTL2CNTL DD *
  INREC BUILD=(1:22,10,11:10,9,21:32,3,24:C'VV')

----+----1----+----2----+----3----+

000000000	CCCCCCCCC	016	1111000021	010
000000000	QQQQQQQQQ	016	1111000021	020
000000000	ZZZZZZZZZ	016	1111000021	030
000000000	YYYYYYYYY	016	1111000021	050
000000000	VVVVVVVVV	016	1111000021	050
000000000	CCCCCCCCC	016	1111000021	090
000000000	XXXXXXXXX	016	1111000021	010

El fichero temporal tendría la siguiente estructura:
----+----1----+----2----+

1111000021	YYYYYYYYY	1		BB	Este registro viene del fichero IN1
1111000021	QQQQQQQQQ	2		BB	Este registro viene del fichero IN1
1111000021	QQQQQQQQQ		030	VV	Este registro viene del fichero IN2
1111000021	VVVVVVVVV	3		BB	Este registro viene del fichero IN1
1111000021	CCCCCCCCC	4		BB	Este registro viene del fichero IN1
1111000021	CCCCCCCCC		020	VV	Este registro viene del fichero IN2
...

SPLICE FROM(TMP) TO(OUT) ON(1,10,CH) ON(11,9,CH) -
WITH(21,3) WITH(24,1) WITHALL KEEPNODUPS USING(CTL3)

IMPORTANTE: aunque acabemos de ver una estructura de fichero ordenada, la sentencia COPY no ordena. Será la sentencia SPLICE la que antes de realizar el cruce ordene por la clave especificada.

SPLICE.
Aquí nos detendremos para explicar cada una de las sentencias que acompañan a la sentencia SPLICE.

SPLICE FROM(TMP) TO(OUT) ON(1,10,CH) ON(11,9,CH) -
  WITH(21,3) WITH(24,1) WITHALL KEEPNODUPS USING(CTL3)
...
//CTL3CNTL DD *
  OUTFIL FNAMES=OUT,INCLUDE=(24,2,CH,EQ,C'VB')

• Sentencia ON(posicion inicial, longitud, tipo).
  Esta sentencia nos permite especificar las claves de cruce. En este caso tenemos dos [ON(1,10,CH) ON(11,9,CH)]
  

• Sentencia WITH(posicion inicial, longitud).
  Especificaremos aquellos campos del fichero IN2 que queramos que se vean en el fichero de salida. El resto de posiciones del fichero de salida se rellenarán con los campos del fichero IN1. En este caso hemos eligido 2 [WITH(21,3) WITH(24,1)]:
  
  ----+----1----+----2----+
  

  1111000021	CCCCCCCCC	4		B	B
  1111000021	CCCCCCCCC		020	V	V

  
  

Antes de seguir vamos a hacer un breve parentesis para explicar los últimos campos añadidos para el fichero IN1 'BB' y para el fichero IN2 'VV'.
Tiene dos funciones:

1. Identificar en el fichero de salida los registros que provienen de cada fichero de entrada.
2. Identificar los registros que se han cruzado con éxito.
   Al especificar con el WITH la primera posición del fichero IN2 [WITH(24,1)], cuando dos registros tengan la misma clave el registro de salida vendrá marcado en las dos últimas posiciones con VB.

Asi:

1. Registros con las dos últimas posiciones BB son aquellos registros del fichero de entrada IN1 que no encontraron correspondencia en el fichero de entrada IN2
2. Registros con las dos últimas posiciones VV son aquellos registros del fichero de entrada IN2 que no encontraron correspondencia en el fichero de entrada IN1
3. Registros con las dos últimas posiciones VB son aquellos registros que tuvieron correspondencia.
   
   ----+----1----+----2----+
   

   1111000021

   CCCCCCCCC

   1

   020

   V

   B

   
   

• Sentencia WITHALL.
  En el caso de que una clave esté más de una vez en el fichero IN2, podemos especificar WITHALL para recoger todos los registros que la contengan. Si no se especifica se quedaría con el primero.

Ejemplo:
El registro del fichero IN1:
----+----1----+----2----+

1111

1111000021

4

CCCCCCCCC

Tiene la siguiente correspondencia en el fichero IN2:
----+----1----+----2----+----3----+

000000000	CCCCCCCCC	016	1111000021	010
000000000	CCCCCCCCC	016	1111000021	090

Se almacena en el fichero temporal:
----+----1----+----2----+

1111000021	CCCCCCCCC	4		BB	Registro del fichero IN1
1111000021	CCCCCCCCC		020	VV	Registro del fichero IN2
1111000021	CCCCCCCCC		090	VV	Registro del fichero IN2

Si nosotros no especificásemos WITHALL veríamos la salida:
----+----1----+----2----+

1111000021

CCCCCCCCC

4

020

V

B

Si nosotros SI especificásemos WITHALL veríamos la salida:
----+----1----+----2----+

1111000021	CCCCCCCCC	4	020	V	B
1111000021	CCCCCCCCC	4	090	V	B

• Sentencia KEEPNODUPS.
  Se utiliza para mostrar en el fichero de salida, los registro del fichero IN1 cuya clave no existe en el fichero IN2.

Ejemplo:
El registro del fichero IN1:
----+----1----+----2----+

1111

1111000021

6

DDDDDDDDD

Se almacena en el fichero temporal:
----+----1----+----2----+

1111000021

DDDDDDDDD

6

BB

Registro del fichero IN1

Para nuestra clave sólo hay un registro (no encontró coincidencia en el fichero IN2).
Si nosotros no especificásemos KEEPNODUPS, no veríamos el registro en la salida.

Si lo especificamos veríamos el siguiente registro en la salida:
----+----1----+----2----+

1111000021

DDDDDDDDD

6

B

B

• Sentencia USING.
  También fue usada cuando copiábamos los ficheros al temporal. Podríamos decir que son unas "reglas de copiado" para definir el fichero de salida. En este caso:
• OUTFIL, para generar el fichero de salida OUT.
• INCLUDE, para seleccionar aquellos registros que se cruzaron.
• OUTREC, para eliminar las dos últimas posiciones de trabajo.

Esto es una manera sencilla y rapida de hacer un cruce de dos ficheros.
Es importante asegurarse de que el fichero de entrada no tenga duplicados por clave, es decir, es un cruce 1 a n.

Para terminar, os dejo para descargar el JCL, los ficheros de entrada, y el fichero de salida:
JCL con ICETOOL.
Fichero IN1.
Fichero IN2.
Fichero OUT.