Jcl - comprobar si un fichero tiene datos

Mediante jcl podemos comprobar si un fichero tiene datos.

Veamos un ejemplo:

          //*******************************************************

          //FICVACIO EXEC PGM=IDCAMS

          //FENTRADA DD DSN=DD.EE.JJJJJJJJ.FICHEROA.VERIFICA,

          //                      DISP=SHR

          //FSALIDA DD DUMMY

          //SYSPRINT DD SYSOUT=*

          //SYSIN DD *

               REPRO COUNT(1)      -

               INFILE(FENTRADA)    -

               OUTFILE(FSALIDA)

          //*******************************************************

Con este paso detectamos si el fichero DD.EE.JJJJJJJJ.FICHEROA.VERIFICA está vacío o, por el contrario, tiene datos. Simplemente tenemos que comprobar el código de retorno devuelto por este paso ya que si devuelve:

• el valor 4 significa que está vacío
• el valor 0 significa que tiene datos

Por lo tanto, el código de retorno 4 en el paso FICVACIO no debe significar la cancelación de este proceso.