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
//*

——————————————————————————————————–

If you would like to Earn Free Stocks, Credit card Points and Bank account Bonuses, Please visit My Finance Blog

——————————————————————————————————–

You may also like to look at:

Working on Mainframes – Is Change to a different technology necessary

Important SQL CODES and ABEND CODES

SORT JOIN – TO JOIN TWO FILES BASED ON A KEY

KNOW YOUR MAINFRAME

REXX – INITIAL SETUP

HOW TO SUBMIT A BATCH JOB FROM THE CICS PROGRAM

CICS – EXEC interface block – EIBRESP Values

CICS – EXEC interface block Fields

Flow of control between COBOL programs, run units, and CICS

CICS INTERVIEW QUESTIONS

CICS TIPS

COBOL – COPY and INCLUDE statements

COBOL – PERFORMANCE IMPROVEMENT

COBOL – SIGN STORED IN COMP, COMP-3 AND DISPLAY FORMATS

SHORTEST COBOL PROGRAM

RESTART LOGIC IN COBOL DB2 Program

GOBACK – EXIT PROGRAM – STOP RUN

Continuation lines in COBOL

Computational items – COMP, COMP 1 , COMP 2, COMP 3

COBOL program format

cobol indicator area column-7 and area a and area b

COBOL INTERVIEW QUESTIONS

COBOL TIPS

COBOL COMPILER OPTIONS

The IDENTIFICATION DIVISION