How to check a file is Empty or not?

kumar_prathap · New User Joined: 12 Apr 2004 Posts: 5

Hi all ,

I want to check a file is empty or not in a JCL in first step

and in secod step :

If its not emty
I will take some action
else
I will take some other action.

can u pls tel me the how to do this in Jcl

regds Prathap

superk · Posted: Wed May 12, 2004 6:14 pm

If you have DFSORT available:

imvs · New User Joined: 12 May 2004 Posts: 33

there are couple of ways to find out empty file ..

With SORT tool
// EXEC PGM=ICETOOL
// TOOLMSG DD SYSOUT=*
// DFSMSG DD SYSOUT=*
//INDD DD DSN=INPUT FILE,DISP=SHR
//TOOLIN DD *
COUNT FROM(INDD) EMPTY
/*
IF THE FILE IS EMPTY , IT WILL SET RC=12

With IDCAMS
//INDD DD DSN=INPUT FILE,DISP=SHR
//OUTDD DD DSN=OUTPUT FILE,DISP=SHR
//SYSIN DD *
REPRO INFILE(INDD) OUTFILE(OUTDD) COUNT(1)
/*

IF THE FILE IS EMPTY IT WILL SET RC=04

superk · Posted: Wed May 12, 2004 6:19 pm

Another IDCAMS option:

//STEP0001 EXEC PGM=IDCAMS
//IN DD DSN=thedataset.to.check,...
//SYSPRINT DD SYSOUT=*
//SYSIN DD DATA
PRINT INFILE(IN) COUNT(1)
/*

RC=0 if file has at least 1 record, otherwise RC=4.

kumar_prathap · New User Joined: 12 Apr 2004 Posts: 5

thnx ---all

Doucky · New User Joined: 19 May 2005 Posts: 3 Location: france

Hello all,

I have a problem with the return code after a empty file test in an IDCAMS :

PRINT INFILE(F1) COUNT(1)
IF LASTCC NE 0 THEN SET LASTCC = 3

I want a return code of the step equal to 3 but ... if file is empty, the return code of the command is RC=4 and my IF seems to be not good.
The solution seems to be SET MAXCC=3 but I don't understand why

If you have an explanation, it's welcome,

thanks in advance

subhasis_50 · Moderator Joined: 09 Mar 2005 Posts: 363 Location: Earth

Hi,

Use the following code it will work. Please change your LASTCC=3 to MAXCC=3.

Doucky · New User Joined: 19 May 2005 Posts: 3 Location: france

thanks a lot

best regards

Doucky · New User Joined: 19 May 2005 Posts: 3 Location: france

OK,

I have found an explanation !

In fact, to overide the original return code (4), the writed value of LASTCC must be superior to it.
test :
PRINT INFILE(F1) COUNT(1)
IF LASTCC NE 0 THEN SET LASTCC = 5

the step return code is ... 5 (so cool)

for a return code less than (RC=4) MAXCC must be employed

pfff ...