Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
how to find if file is empty or not.

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
abdulrafi

Active User


Joined: 14 Sep 2009
Posts: 168
Location: Coimbatore

PostPosted: Tue May 17, 2016 4:39 pm    Post subject: how to find if file is empty or not.
Reply with quote

Hi,

I have searched in this forum and could not find the relevant answer for my question.

I do have a file. If the file has only one record it has to give me a return code of 0 else if it has more records then a return code of greater than 0.

I use the below code, but it always returns me 0 for how many ever records I have.

Code:
//T040D5ZX JOB (P904030,T040,99,99),'EMPTY-TEST1',           
//  NOTIFY=&SYSUID,MSGCLASS=Q,TIME=(02,00),REGION=0M         
//STEP01   EXEC PGM=IDCAMS                                   
//SYSPRINT DD SYSOUT=*                                       
//DD01     DD DSN=T040D5Z.INPUT.CSV,DISP=SHR                 
//SYSIN    DD *                                             
  PRINT INFILE(DD01) COUNT(1)                               
/*                                                           


Please advice.
Back to top
View user's profile Send private message

enrico-sorichetti

Senior Member


Joined: 14 Mar 2007
Posts: 10562
Location: italy

PostPosted: Tue May 17, 2016 5:11 pm    Post subject: Reply to: how to find if file is empty or not.
Reply with quote

Quote:
I do have a file. If the file has only one record it has to give me a return code of 0 else if it has more records then a return code of greater than 0.


use a bit of logic, please
averybody can tell about the past, nobody about the future
the same stands for IDCAMS
if You tell it to print 10 record it will tell back if there are less
it will stop at the 10th record ignoring what comes after

but You can easily do it Yourself using Your neurons and a bit of imagination

print ..... count(1)
AND
print ..... count(2)

and set LASTCC and MAXCC accordingly
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Member


Joined: 14 Mar 2007
Posts: 10562
Location: italy

PostPosted: Tue May 17, 2016 7:30 pm    Post subject: Reply to: how to find if file is empty or not.
Reply with quote

some more hints ...

test for success of
print ..... count(1)
the dataset is not empty

AND
test for failure of
print ..... count(2)
the dataset will contain just one record
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1306
Location: Israel

PostPosted: Tue May 17, 2016 8:05 pm    Post subject:
Reply with quote

or, if you have SYNCSORT:
Code:
//SORT1    EXEC PGM=SYNCTOOL                                   
//IN1      DD DISP=SHR,DSN=some.data.set name
//TOOLMSG  DD SYSOUT=*                                       
//SSMSG    DD SYSOUT=*                                       
//TOOLIN   DD *                                               
 COUNT FROM(IN1) RC4 NOTEQUAL(1)
/*

If the file is empty or if there is more than 1 record, result will be:
Code:
            COUNT FROM(IN) RC4 NOTEQUAL(1)                 
SYT020I  SYNCSORT CALLED WITH IDENTIFIER "0001"         
SYT075I  CONDITION FOR RECORD COUNT SATISFIED - RC=4 SET
SYT030I  OPERATION COMPLETED WITH RETURN CODE 4         

If there is exactly 1 record:
Code:
            COUNT FROM(IN) RC4 NOTEQUAL(1)                     
SYT020I  SYNCSORT CALLED WITH IDENTIFIER "0001"             
SYT056I  CONDITION FOR RECORD COUNT NOT SATISFIED - RC=0 SET
SYT030I  OPERATION COMPLETED WITH RETURN CODE 0             
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7314

PostPosted: Wed May 18, 2016 11:11 am    Post subject: Reply to: how to find if file is empty or not.
Reply with quote

There's an implication that one record, no more, nor less, is what OP wants to know. If that is so, then NOTEQUAL(1) is what is required with ICETOOL.

The undocumented product (the entire product, not just this operand of a command) SyncTOOL does have NOTEQUAL for COUNT.
Back to top
View user's profile Send private message
abdulrafi

Active User


Joined: 14 Sep 2009
Posts: 168
Location: Coimbatore

PostPosted: Thu May 19, 2016 5:46 pm    Post subject:
Reply with quote

Hi,

I got it as I needed using ICETOOL. Thanks a lot for your kind help.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Connnect Direct Sending Zip file from... netcrawler All Other Mainframe Topics 0 Tue Feb 12, 2019 3:25 pm
No new posts calculate the record count and based ... naveensrimf DFSORT/ICETOOL 1 Tue Jan 08, 2019 11:20 pm
No new posts Add week number to a file name or rep... tejdeep0274 JCL & VSAM 2 Thu Jan 03, 2019 6:49 am
No new posts Transferring file to Mainframes Shinoj Vijayakumar IBM Tools 3 Thu Dec 06, 2018 2:35 pm
No new posts Convert VBA file to FB! Vignesh Sid SYNCSORT 5 Mon Dec 03, 2018 1:27 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us