Tags

, , , , , , , ,

ICETOOL has an option NOTEMPTY which return RC 12 if the provided input file is empty.

//STEP01 EXEC PGM=ICETOOL
//SYSPRINT DD SYSOUT=*
//INFILE DD DISP=SHR,DSN=YOUR.INPUT.FILE
//TOOLMSG DD SYSOUT=*
//COUNTCT2 DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//TOOLIN DD *
COUNT FROM(INFILE) NOTEMPTY
//*

Advertisements