En este artículo vamos a introducir las sentencias de control del parámetro OUTFIL del Sort que permiten generar un fichero de salida con formato de informe. Las principales son:

HEADER1
Cabecera general del informe.

HEADER2
Cabecera de página.

HEADER3
Cabecera de sección.

TRAILER1
Pie final del informe

TRAILER2
Pie de página.

TRAILER3
Pie de sección.

SECTIONS
Campo/s de ruptura que marcan el final de una sección y el inicio de la siguiente.

Su sintaxis completa se puede encontrar en el manual de IBM. Aquí vamos a aprender a utilizarlas mediante un sencillo ejemplo.

Partimos de un fichero con las ventas que han realizado los comerciales de una empresa. Tiene la siguiente estructura:

Y queremos obtener un informe que muestre las ventas y comisiones de cada vendedor, así como los totales de cada sucursal. Tendrá cabeceras de página y de sección (sucursal) y pies de sección.

                                              23/04/2014  PAG.     1
         INFORME DE VENTAS Y COMISIONES POR SUCURSAL
         -------------------------------------------
SUCURSAL: BARCELONA

NOMBRE                     SUCURSAL    VENTA         COMISION
------------------------   ----------  ------------  ------------
NOMBRE APELL1 APELL2       BARCELONA        4108,92        350,65
NOMBRE APELL1 APELL2       BARCELONA       12789,23       1190,67
NOMBRE APELL1 APELL2       BARCELONA        2109,34        208,65
-----------------------------------------------------------------------
TOTAL BARCELONA                            19007,49       1749,97

SUCURSAL: LEVANTE

NOMBRE                     SUCURSAL    VENTA         COMISION
------------------------   ----------  ------------  ------------
NOMBRE APELL1 APELL2      LEVANTE          8177,01         711,23
…                        …                  …            …
 
TOTAL LEVANTE                               39022,42       3749,92
…
 
                                                 23/04/2014  PAG.     2
            INFORME DE VENTAS Y COMISIONES POR SUCURSAL
            -------------------------------------------
…

Para generarlo utilizaríamos el siguiente paso de Sort:

//PA0010   EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=FICHERO.ENTRADA,
//         DISP=SHR
//SALIDA   DD DSN=FICHERO.SALIDA,
//         DISP=(NEW,CATLG,DELETE),RECFM=FB,DSORG=PS,LRECL=72
//SYSIN    DD *
SORT FIELDS=(26,10,CH,A)
OUTFIL FNAMES=SALIDA,
BUILD=(1X,1,25,2X,26,10,2X,36,6,PD,EDIT=(IIIIIIITT,TT),
2X,42,6,PD,EDIT=(IIIIIIITT,TT),6X),
REMOVECC,
HEADER2=(50X,DATE=(DM4/),2X,'PAG.',PAGE,/,
10X,'INFORME DE VENTAS Y COMISIONES POR SUCURSAL',/,
10X,'-------------------------------------------'),
SECTIONS=(26,10,
HEADER3=(/,2:'SUCURSAL: ',26,10,/,
/,2:'NOMBRE',29:'SUCURSAL',41:'VENTA',
55:'COMISION',/,
2:'------------------------',
29:'----------',
41:'------------',
55:'------------'),
TRAILER3=(2:71'-',/,1X,'TOTAL ',26,10,23X,
TOTAL=(36,6,PD,EDIT=(IIIIIIITT,TT)),
2X,
TOTAL=(42,6,PD,EDIT=(IIIIIIITT,TT))))

Vemos que se ordena por el campo de ruptura (sucursal, posición 26). A continuación se incluye la ficha OUTFIL correspondiente al fichero de salida. Dentro de ella incluimos el parámetro BUILD para generar los registros de detalle y a continuación, los parámetros que definen el informe. Algunos de ellos ya los hemos descrito en la introducción; los nuevos que aparecen en el ejemplo son:

REMOVECC
Elimina los caracteres de control que se incluyen por defecto

TOTAL
Parámetro que se puede incluir dentro de cualquiera de los pies del informe (TRAILER1, TRAILER2 y TRAILER3). Muestra la suma de todos los valores del campo indicado. En la suma se incluirán todos los registros del informe, pagina o sección, dependiendo del pie en el que se sitúe.

En un Sort es posible forzar un código de retorno determinado (0, 4 u 8) si el SORTOUT (fichero de salida) no tiene registros. Se hace mediante la opción NULLOUT=RCn, donde n puede tomar el valor 0, 4 u 8. 0. El valor por defecto es 0.
Esta facilidad nos permite construir un paso de JCL que devuelva retorno 4 si el fichero de entrada está vacío y 0 en caso contrario.

Ejemplo:

//PA0010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=FICHERO.PRUEBA.NULLOUT,DISP=SHR
//SORTOUT DD DSN=&&TEMP,DISP=(,PASS)
//SYSIN DD *
OPTION COPY,NULLOUT=RC4,STOPAFT=1

La conversión de un fichero de longitud variable a fija y viceversa en un Sort se hace mediante las opciones VTOF y FTOV del parámetro OUTFIL del Sort.

Recordemos que el parámetro OUTFIL permite generar de 1 a n ficheros de salida. Cada uno de estos puede ser construido de forma independiente mediante instrucciones BUILD o OUTREC y condiciones INCLUDE u OMIT.

Conversión de variable a fija

La opción VTOF (o su sinónimo CONVERT) incluida en un grupo OUTFIL indica que los registros de entrada de longitud variable deben ser convertidos a longitud fija.

Se debe incluir también un parámetro BUILD o OUTREC, que generará un registro reformateado de longitud fija sin el descriptor de registro de 4 bytes (los datos comenzarán en la posición 1).

Los campos que se incluyan en el parámetro BUILD o OUTREC deberán estar referidos a los registros de entrada de longitud variable (los datos empiezan en la posición 5).

VTOF utiliza por defecto la opción VLFILL=X’40’ (relleno con espacios) para que sea posible procesar registros de entrada de longitud variable que sean demasiado cortos para contener todos los campos especificados en BUILD o OUTREC.

El formato de registro del fichero de salida será FB por defecto. Y si se especifica, deberá ser FB u otro de los de longitud fija

Si se utiliza VTOF con FTOV, IFTRAIL, IFTHEN, FINDREP u OVERLAY, el Sort terminará con error.

Ejemplo:

//SORT006  EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=ENTRADA...,
//         DISP=SHR
//SALIDA1  DD DSN=SALIDA...,
//         DCB=(RECFM=FB,LRECL=300,BLKSIZE=0,DSORG=PS),
//         DISP=(,CATLG,DELETE),
//         SPACE=(TRK,(2,1),RLSE)
//SYSIN    DD *
SORT     FIELDS=COPY
OUTFIL   FNAMES=SALIDA1,VTOF,BUILD=(5,300)
/*

* En vez de VTOF podemos usar su sinónimo CONVERT:

OUTFIL   FNAMES=SALIDA1,CONVERT,BUILD=(5,300)

Conversión de fija a variable

FTOV incluida en un grupo OUTFIL indica que los registros de entrada de longitud fija deben ser convertidos a longitud variable.

Si no se incluye un parametro OUTREC, BUILD, OVERLAY, FINDREP o IFTHEN, los registros de entrada de longitud fija completos se transforma en registros de salida de longitud variable

Si se incluye un parametro OUTREC, BUILD, OVERLAY, FINDREP o IFTHEN, los campos especificados se transforman en registros de salida de longitud variable.

En los dos casos, antes de escribir los registros de salida se les añade un descriptor de registro de 4 bytes (los datos empiezan en la posición 5).

Los campos especificados en OUTREC, BUILD, OVERLAY, FINDREP o IFTHEN deberán estar referidos a los registros de entrada de longitud fija (los datos empiezan en la posición 1).

El formato de registro del fichero de salida del OUTFIL será VB por defecto. Y si se especifica, deberá ser FB o cualquier otro de longitud variable.

Si no se especifica el parámetro LRECL para el fichero de salida, se le dará una longitud que permita contener el registro de mayor longitud.

Ejemplo:

EXEC  PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=SHR,DSN=ENTRADA…
//SALIDA   DD DSN=SALIDA…
//          DISP=(NEW,CATLG,DELETE),
//          LRECL=448,RECFM=VB,DSORG=PS
//SYSIN    DD *
OPTION COPY
OUTFIL FNAMES=SALIDA,FTOV,OUTREC=(1:1,444)
/*

Fuente: DFSORT Application Programming Guide v1R13