Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
How to use XSUM

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
Prabha
Warnings : 1

Active User


Joined: 05 Dec 2005
Posts: 64

PostPosted: Mon Dec 05, 2005 4:42 pm    Post subject: How to use XSUM
Reply with quote

Hi,
Code:

//STP100   EXEC PGM=SORT                                   
//SYSPRINT DD SYSOUT=*                                     
//SYSOUT   DD SYSOUT=*                                     
//SORTIN   DD DSN=file1,DISP=SHR             
//SORTOUT  DD DSN=file2,DISP=(NEW,CATLG),     
//         SPACE=(CYL,(5,5)),DCB=(RECFM=FB,LRECL=80,BLKSIZE
//SORTXSUM DD DSN=file3,DISP=(NEW,CATLG),     
//         SPACE=(CYL,(5,5)),DCB=(RECFM=FB,LRECL=80,BLKSIZE
//SYSIN    DD *                                           
    SORT FIELDS=(1,1,CH,A)                                 
    SUM FIELDS=NONE,XSUM                                   
/*           


When I ran this job, i am getting an error message as
ICE172A XSUM IS NOT SUPPORTED - USE ICETOOL SELECT IF APPROPRIATE

Kindly help me in this.
Back to top
View user's profile Send private message
References
Frank Yaeger

DFSORT Moderator


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

PostPosted: Mon Dec 05, 2005 10:02 pm    Post subject:
Reply with quote

Prabha,

Error messages are issued for a reason. If you look up the error message, you can find out why it was issued and what to do about it.

Since DFSORT issued message ICE172A, you should have looked that up and you would have gotten the answer you're looking for.

All of the DFSORT books are available online at:

www.ibm.com/servers/storage/support/software/sort/mvs/srtmpub.html

The messages are in "z/OS DFSORT Messages, Codes and Diagnosis Guide".

Here's a link to the ICE172A message doc:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CM10/2.2.165?SHELF=&DT=20050119125222&CASE=

It shows the DFSORT/ICETOOL that's equivalent to the XSUM job.

Just fill in p,m,f in the job below for the field you want to use to check for duplicates. If you have more than one field, use more than one ON(p,m,f) operand.

Code:

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SORTIN DD DSN=...
//SORTOUT DD DSN=...
//SORTXSUM DD DSN=...
//TOOLIN DD *
SELECT FROM(SORTIN) TO(SORTOUT)-
  ON(p,m,f) FIRST DISCARD(SORTXSUM)
/*


The equivalent of XSUM is also discussed in this "Smart DFSORT Trick":

http://www.ibm.com/servers/storage/support/software/sort/mvs/tricks/srtmst01.html#t12

Note that FIRST gives you the first record of each set of duplicates, and all of the nondup records, whereas FIRSTDUP gives you the first record of each set of duplicates, but not the nondup records.

If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

www.ibm.com/servers/storage/support/software/sort/mvs/srtmpub.html
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1