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
 

 

Ice tool problem

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

Active User


Joined: 22 Dec 2005
Posts: 116

PostPosted: Wed Mar 01, 2006 2:50 am    Post subject: Ice tool problem
Reply with quote

I picked up an example from sort tricks site. But using the same steps I am not getting the desired outputs.
the job is :

//SORT1 EXEC PGM=ICETOOL
//SYSOUT DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//LIST99 DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=infile,DISP=SHR
//OUT1 DD DSN=outfile,
// DISP=OLD
//TOOLIN DD *
//CTL1CNTL DD *
SORT FROM(IN1) TO(OUT1) USING(CTL1)
/*
INCLUDE COND=(1,1,CH,EQ,C'2'),
INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'2'),
BUILD=(1:32,9,10:95,30,40:77,15,55:93,1,56:1,1000))
SORT FIELDS=(1,55,A)
/*

In the output I am supposed to get only those records having their first byte '2'.

But what is happening is I am getting all the records in the input file in output file also. And those records having the first byte '2' is getting reformatted as mentioned. Do anyone know why I am getting all tyhe records in the output file????
Also, eventhough the sort criteria is mentioned its not getting sorted. I need the file to get sorted after the desired reformatting is done.
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: Wed Mar 01, 2006 3:36 am    Post subject:
Reply with quote

You copied this from the DFSORT Tricks site? I don't think so! Please tell me the URL of the page you found this on because it couldn't possibly have looked like that given that it wouldn't work because of syntax errors, and I test all of the DFSORT Tricks examples to make sure they work before I post them.

You have:

Code:

//TOOLIN DD *
//CTL1CNTL DD *
SORT FROM(IN1) TO(OUT1) USING(CTL1)
/*
  INCLUDE COND=(1,1,CH,EQ,C'2'),
  INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'2'),
    BUILD=(1:32,9,10:95,30,40:77,15,55:93,1,56:1,1000))
  SORT FIELDS=(1,55,A)
/*


First of all you have the TOOLIN and CTL1CNTL DD statements in the wrong place. The way you have it, TOOLIN has no control statements, CTL1CNTL has the ICETOOL SORT operator instead of the DFSORT control statements, and the DFSORT control statements are ignored since they aren't associated with any DD statement. It's actually quite a mess! You're also missing the format from the SORT statement.

Cleaning this up, the correct syntax would be something like this:

Code:

//TOOLIN DD *
SORT FROM(IN1) TO(OUT1) USING(CTL1)
/*
//CTL1CNTL DD *
  INCLUDE COND=(1,1,CH,EQ,C'2'),
  INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'2'),
    BUILD=(1:32,9,10:95,30,40:77,15,55:93,1,56:1,1000))
  SORT FIELDS=(1,55,CH,A)
/*


I can't tell you whether or not that actually does what you want to do since you haven't explained what it is you want to do.
Back to top
View user's profile Send private message
pjnithin

Active User


Joined: 22 Dec 2005
Posts: 116

PostPosted: Wed Mar 01, 2006 8:55 am    Post subject:
Reply with quote

Can IFTHEN and BUILD functions be used for ICEMAN.
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: Wed Mar 01, 2006 8:56 pm    Post subject:
Reply with quote

Quote:
Can IFTHEN and BUILD functions be used for ICEMAN.


ICEMAN is just the name used to invoked the sort product installed at your site.

You'll need z/OS DFSORT V1R5 PTF UQ95214 or DFSORT R14 PTF UQ95213 (Dec, 2004) in order to use DFSORT's IFTHEN, BUILD and OVERLAY functions. Only DFSORT has these functions, so if you don't have DFSORT, you won't be able to use them. If you do have DFSORT, but you don't have the Dec, 2004 PTF, ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the Dec, 2004 PTF, see:

www.ibm.com/servers/storage/support/software/sort/mvs/pdug/
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 Need info on EIBCPOSN value in IBM FA... subratarec CICS 11 Wed Jul 12, 2017 3:45 pm
No new posts Strings with double quotes having pro... raja Arumugam All Other Mainframe Topics 11 Thu Mar 30, 2017 10:34 am
No new posts Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm
No new posts ROUNDED Problem with COMPUTE statement shalem COBOL Programming 11 Thu Feb 09, 2017 8:16 pm
No new posts SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am


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