test datase empty

[nick.mamone]

Hello i'm a new user, i'm italian and don't speak english very well, so excuse me for error.

I must test if a dataset is empty and in this instace setting the return code greater zero.
Is possible do this with a proc ibm and without a specific program?

Thanks, and excuse me for english.

[Kalicharan]

Hi,

You can get this using ICETOOL or FILEAID or IDCAMS....

Using IDCAMS here is the solution

//STEP01 EXEC PGM=IDCAMS
//IN DD DSN=DATASET <--- Dataset to be checked
//SYSPRINT DD SYSOUT=*
//SYSIN DD DATA
PRINT INFILE(IN) COUNT(1)
/*

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


Thanks
Kalicharan

[nick.mamone]

thanks!!!!!

[Madhusudana Reddy Mandli]

Kali,

Can you give me how to do this using the FILEAID

Thanks in Advance

[Leo]

You can check the same using sort .

Code: Select all

//STEP100 EXEC PGM=SORT,PARM='NULLOUT=RC4' 
//SYSOUT   DD SYSOUT=* 
//SORTIN   DD DSN= Input file name goes here,  
//            DISP=SHR 
//SORTOUT  DD DUMMY 
//SYSIN    DD DSN=&CTLCARD(SORTCOPY), --> SORT FIELDS=COPY 
//            DISP=SHR 

This will give a return code of 4 if the file is empty , you can check for the return code of this step down the line in the job . hope this was helpful

Thanks
Leo

[Madhusudana Reddy Mandli]

Hi Leo,

Thanks a lot.

It looks like a good solution.


Thanks,
Madhu

[Frank Yaeger]

Note that Leo's job will only work for z/OS DFSORT V1R5, not for DFSORT R14. Here's a DFSORT/ICETOOL job that will work for both:

Code: Select all

//S1    EXEC  PGM=ICETOOL
//TOOLMSG   DD  SYSOUT=*
//DFSMSG    DD  SYSOUT=*
//IN DD DSN=...  input file
//TOOLIN DD *
COUNT FROM(IN) EMPTY RC4
/*

For more information, see the "Set RC=12 or RC=4 if file is empty, has more than n records, etc" Smart DFSORT Trick at:

http://www.ibm.com/servers/storage/supp ... vs/tricks/

[justaprogrammer]

You can also use IDCAMS for checking this.

Code: Select all

//FILEMPTY   EXEC   PGM=IDCAMS
//FILEB         DD      DUMMY
//SYSPRINT   DD     SYSOUT=*
//SYSIN         DD    *
    REPRO IDS(input file) OFILE(FILEB) COUNT(1)
/*

This will give a RC = 12 if the file is empty.

You can also use

Code: Select all

PRINT IDS(input file) COUNT(1)

which will give RC=4 when the file is empty.

[academyindia4]

<< Content deleted By Admin >>