empty check and abend the JCL

[arrbee]

Hi,

Our production job cycle has got 200 jobs. The new requirement from the customer is as given below:

"There are 10 important files among these 200 jobs and these files should be checked for emptiness and if any of the file is empty then the JCL should abend or issue some meaningful return code".

Please let me know how to achieve it.

TIA.

[Krishna]

There are multiple ways you can achieve this...


Using ICE TOOL...

// EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//INFILE DD DSN=XXX.YYY.ZZZ,DISP=SHR
//TOOLIN DD *
COUNT FROM(INFILE) EMPTY
/*

RC=12, tells us.. given file is empty.



Using IDCAMS.

//CHECKING EXEC PGM=IDCAMS
//INFILE DD DSN=XXX.YYY.ZZZ,DISP=SHR
//SYSIN DD *
PRINT INFILE(INFILE) COUNT(1)
IF LASTCC NE 0 THEN SET LASTCC = 12
/*


RC=12, tells us.... given file is empty.

[arrbee]

Krishna,

Thank you.

But, in case, the input file to be checked has got millions of records then would the job take long time to complete?

Thx.

[DavidatK]

No, both examples Krishna gives will read only a single record. If EOF on the first record then the file is emply, good rc on first read, file is not emply. You are not asking how many records

Dave

[arrbee]

Thank you guys