IDENTIFY WEATHER THE KSDS EMPTY OR NOT USING SORT UTILITY

[Maven JJ]

HI all,

I have a question HOW TO IDENTIFY WEATHER THE KSDS EMPTY OR NOT USING SORT UTILITY.

[Maven JJ]

What I want exactly if the file is empty I want to run the second step like this

[zum13]

DFSORT only really likes sequential datasets, so using it do do this check on a VSAM file isn't doable (unless something has changed recently). What you need is an IDCAMS "PRINT" command:

Code: Select all

//STEP1   EXEC PGM=IDCAMS 
//SYSPRINT  DD SYSOUT=* 
//DD1       DD DSN=your.vsam.dataset,DISP=SHR
//SYSIN     DD * 
 PRINT INFILE(DD1) COUNT(1) 

This will try to print the first record in the dataset. If there's nothing in there, it'll drop a return code 160 from the VSAM open which will cause IDCAMS to return CC 12. If there's a matching record, you'll get CC 0.

[Anuj Dhawan]

Along with that, SORT products can also work with VSAM:

Code: Select all

//STEP1    EXEC  PGM=ICETOOL
//TOOLMSG   DD  SYSOUT=*
//DFSMSG    DD  SYSOUT=*
//IN DD DSN=...  input-vsam-dataset
//TOOLIN DD *
COUNT FROM(IN) EMPTY RC4
/*

This produces RC as 4, if the input VSAM dataset is empty.

Another variation:

Code: Select all

/STEP1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=...  VSAM data set
//TOOLIN DD *
* SET RC=12 IF THE 'IN' DATA SET IS EMPTY, OR
* SET RC=0 IF THE 'IN' DATA SET IS NOT EMPTY
COUNT FROM(IN) EMPTY USING(CTL1)
/*
//CTL1CNTL DD *
   OPTION VSAMEMT
/*

[zum13]

I stand corrected... DFSORT can read VSAM. I'll admit that it's been a very long time since I last tried (and failed) to use it with anything other than a sequential file!

[Sankar Sabari]

So we can use VSAM as input to a SORT step, that's good.

[Anuj Dhawan]

Yes, you can.

[Maven JJ]

DFSORT only really likes sequential datasets, so using it do do this check on a VSAM file isn't doable (unless something has changed recently). What you need is an IDCAMS "PRINT" command:

Code: Select all

//STEP1   EXEC PGM=IDCAMS 
//SYSPRINT  DD SYSOUT=* 
//DD1       DD DSN=your.vsam.dataset,DISP=SHR
//SYSIN     DD * 
 PRINT INFILE(DD1) COUNT(1) 

This will try to print the first record in the dataset. If there's nothing in there, it'll drop a return code 160 from the VSAM open which will cause IDCAMS to return CC 12. If there's a matching record, you'll get CC 0.

Thank you, this is working for me.

[Maven JJ]

Along with that, SORT products can also work with VSAM:

Code: Select all

//STEP1    EXEC  PGM=ICETOOL
//TOOLMSG   DD  SYSOUT=*
//DFSMSG    DD  SYSOUT=*
//IN DD DSN=...  input-vsam-dataset
//TOOLIN DD *
COUNT FROM(IN) EMPTY RC4
/*

This produces RC as 4, if the input VSAM dataset is empty.

Another variation:

Code: Select all

/STEP1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=...  VSAM data set
//TOOLIN DD *
* SET RC=12 IF THE 'IN' DATA SET IS EMPTY, OR
* SET RC=0 IF THE 'IN' DATA SET IS NOT EMPTY
COUNT FROM(IN) EMPTY USING(CTL1)
/*
//CTL1CNTL DD *
   OPTION VSAMEMT
/*

Thank you Anuj, this also works.

[Sankar Sabari]

Thanks, this is a useful thread. Thanks for sharing all the info.