Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

using icetool to check for empty file.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
newbie

New User


Joined: 05 Nov 2005
Posts: 12

PostPosted: Sat Nov 05, 2005 12:43 am    Post subject: using icetool to check for empty file.
Reply with quote

Hi.

Is there a way to use icetool to check to see if a file is empty or not. If the file is not empty, then i want to do skip some of the records and copy a certain number of records. I would like to do all this in one step.

For example.

If file1 is empty
set return code to 04
else
skip(20000) count(30000) to file2
end-if.


Thank you.
Back to top
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Sat Nov 05, 2005 1:50 am    Post subject:
Reply with quote

You can use the following DFSORT/ICETOOL job for this kind of thing:

Code:

//S1   EXEC  PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=...  input file
//OUT DD DSN=...  output file
//TOOLIN DD *
* If file is not empty, copy subset of records.
* If file is empty, set RC=12 and don't copy records.
COUNT FROM(IN) EMPTY
COPY FROM(IN) TO(OUT) USING(CTL1)
/*
//CTL1CNTL DD *
   OPTION SKIPREC=20000,STOPAFT=30000
/*


Note that we need to have the COUNT operator set RC=12 in order to stop ICETOOL from performing the COPY operator.

You could have the COUNT operator set RC=4 by using:

COUNT FROM(IN) EMPTY RC4

but RC=4 will NOT stop ICETOOL from performing the subsequent operators as RC=12 will.

For more information on these features of DFSORT's COUNT operator, see:

http://www.ibm.com/servers/storage/support/software/sort/mvs/tricks/srtmst03.html#t10
Back to top
View user's profile Send private message
newbie

New User


Joined: 05 Nov 2005
Posts: 12

PostPosted: Sat Nov 05, 2005 3:12 am    Post subject: Re: using icetool to check for empty file.
Reply with quote

This work perfectly. I wish the RC can be set to 4. So that way my JCL will show RC4 instead of RC12. But this will do for now.

Thank you for the quick response. I really appreciate this. icon_biggrin.gif
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Sat Nov 05, 2005 3:41 am    Post subject:
Reply with quote

If you want RC=4 instead of RC=12, you can use two steps instead of one step. The first step would have the COUNT operator with RC4. The second step would have the COPY operator. You could use JCL checking (e.g. IF) in the second step to decide whether to run or bypass the step based on the RC=0 or RC=4 from the first step.
Back to top
View user's profile Send private message
newbie

New User


Joined: 05 Nov 2005
Posts: 12

PostPosted: Mon Nov 07, 2005 10:00 pm    Post subject: Re: using icetool to check for empty file.
Reply with quote

Thanks Frank. That's exactly what I'm going to do. I'm going to use Icetool to check for the empty file. If not empty, then I will use IDCAMS to do the copy.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    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 SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 0 Tue Jan 17, 2017 4:26 pm
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 7 Fri Nov 18, 2016 1:48 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us