Checking the Data existence in a file.

[Prashant Ranade]

For a file having just one row of data if ever, is of FB andLRECL 80. Along with that if the file is empty, I need to check if the file has some data. But the problem is that spaces are not considered as data.

I used IDCAMS REPRO with COUNT(1) but it does not flag the file as EMPTY as there are spaces.

Can you please help me?

[Akatsukami]

Why not just do a read on it and, if you do not get an EOF condition, check if the record has a non-space in it?

[vikriih]

use the following code

Code: Select all

//ST010   EXEC PGM=IDCAMS                                
 //SYSOUT   DD SYSOUT=*                                  
 //SYSPRINT DD SYSOUT=*                                  
 //FILEIN   DD DSN=TSO.REC.IN,DISP=SHR      
 //SYSIN    DD *                                          
   PRINT INFILE(FILEIN) -                                
       CHARACTER COUNT(1)  

It should return a return code of 4 if the dataset is empty

[enrico-sorichetti]

a plain utility will not do...

NON empty in this context means significant data
which means at least ONE NON blank record

for idcams a record containing just blanks is ... A RECORD

[nicc]

Cannot do it with JCL - JCL does not look at data. Your sort product may be able to do it - include where String Search finds data in 1 to 80 > x'40' and stop after 1 record.

[Akatsukami]

Prashant-kun, you'll likely also want to use the NULLOUT opton to have DFSORT or Syncsort give a non-zero return code if the data set is empty.

[zprogrammer]

Prashanth,

Do you expect multiple records with SPACE?