View previous topic :: View next topic
|
Author |
Message |
lekshmi_ci
New User
Joined: 14 Mar 2007 Posts: 60 Location: Thiruvananthapuram
|
|
|
|
I want to check whether a VSAM file is empty or not. Depending on the successful execution of that step I need to continue with the below steps. |
|
Back to top |
|
|
mmwife
Super Moderator
Joined: 30 May 2003 Posts: 1592
|
|
|
|
Please provide us with some JCL, error msgs, etc. Hurry up, this is urgent! |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
The method posted here is the typical method used. |
|
Back to top |
|
|
lekshmi_ci
New User
Joined: 14 Mar 2007 Posts: 60 Location: Thiruvananthapuram
|
|
|
|
PRINT INFILE(input) -
CHARACTER COUNT(1)
I used the above to check for empty file.
But since the file is empty it is getting error code 160 |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
lekshmi_ci wrote: |
PRINT INFILE(input) -
CHARACTER COUNT(1)
I used the above to check for empty file.
But since the file is empty it is getting error code 160 |
Please post your sysins and sysouts...... |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
lekshmi_ci,
If you want a DFSORT solution rather than an IDCAMS solution (after all you did post in the DFSORT Fourm), you can use the technique described in the "Set RC=12 or RC=4 if file is empty, has more than n records, etc" Smart DFSORT Trick at:
www.ibm.com/servers/storage/support/software/sort/mvs/tricks/
However, you'll probably need to modify the job slightly like this to allow DFSORT to accept an empty VSAM data set:
Code: |
//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
/*
|
I suspect the IDCAMS job is NOT accepting the empty VSAM data set. |
|
Back to top |
|
|
|