MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

XSUM not working -

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
sateesh_gontla
Beginner


Joined: 23 Jan 2004
Posts: 40
Topics: 16
Location: Bangalore
PostPosted: Wed Aug 30, 2006 1:31 pm    Post subject: XSUM not working - Reply with quote
Code:
//STEP0300 EXEC PGM=ICETOOL                                       
//SYSOUT   DD SYSOUT=*                                           
//SORTIN   DD DSN=INPUT.FILE,DISP=SHR     
//*                                                               
//SORTOUT  DD DSN=FILE.NONDUPS,     
//            DISP=(NEW,CATLG,DELETE),                           
//            SPACE=(CYL,(100,10),RLSE),                         
//            LRECL=3500,                                         
//            RECFM=FB                                           
//*                                                               
//SORTXSUM  DD DSN=FILE.DUPS,       
//            DISP=(NEW,CATLG,DELETE),                           
//            SPACE=(CYL,(100,10),RLSE),                         
//            LRECL=3500,                                         
//            RECFM=FB                                           
//*                                                               
//SYSIN    DD    *                                               
  SORT FIELDS=(16,5,CH,A,                                         
              32,20,CH,A,                                         
              72,40,CH,A,                                         
             112,10,CH,A,                                         
             311,12,CH,A,                                         
             951,23,CH,A)                                         
  SUM FIELDS=NONE,XSUM         
/*                                                               
//SYSPRINT DD SYSOUT=*                                           
//SYSOUT   DD SYSOUT=* 



I am using the option XSUM, since we have limited edition it is not working in our comp, Please let me know if there is any other option to capture the data.

Thanks.
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12372
Topics: 75
Location: San Jose
PostPosted: Wed Aug 30, 2006 1:44 pm    Post subject: Reply with quote
sateesh_gontla,

Your JCL is wrong. ICETOOL expects TOOLIN, TOOLMSG & DFSMSG DD statements and you don't have any of them. you need a SORT JCL . Change the pgm to SORT and re-run the job. If your shop has DFSORT then XSUM is NOT supported. Check this link for achieving the desired results using SELECT

http://www.mvsforums.com/helpboards/viewtopic.php?p=33480#33480

Code:

//STEP0300 EXEC PGM=SORT                                       
//SYSOUT   DD SYSOUT=*                                           
//SORTIN   DD DSN=INPUT.FILE,DISP=SHR     
//*                                                               
//SORTOUT  DD DSN=FILE.NONDUPS,     
//            DISP=(NEW,CATLG,DELETE),                           
//            SPACE=(CYL,(100,10),RLSE)                         
//*                                                               
//SORTXSUM  DD DSN=FILE.DUPS,       
//            DISP=(NEW,CATLG,DELETE),                           
//            SPACE=(CYL,(100,10),RLSE)                         
//*                                                               
//SYSIN    DD    *                                               
  SORT FIELDS=(16,5,CH,A,                                         
              32,20,CH,A,                                         
              72,40,CH,A,                                         
             112,10,CH,A,                                         
             311,12,CH,A,                                         
             951,23,CH,A)                                         
  SUM FIELDS=NONE,XSUM         
/*                                   


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
sateesh_gontla
Beginner


Joined: 23 Jan 2004
Posts: 40
Topics: 16
Location: Bangalore
PostPosted: Wed Aug 30, 2006 2:27 pm    Post subject: Reply with quote
Hi Kolusu,

Thanks for your help on this. I have changed it to ICETOOL and it is giving the below error.

Code:
ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED                                   
                                                                               
ICE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS, EXAMPLES A
                                                                               
ICE632I 0 SOURCE FOR ICETOOL STATEMENTS:  TOOLIN                               
                                                                               
                                                                               
ICE630I 0 MODE IN EFFECT:  STOP                                                 
                                                                               
            SELECT FROM(SORTIN) TO(SORTOUT)-                                   
                ON(16,5,CH,32,20,CH,72,40,CH,112,10,CH,311,12,CH,951,23,CH)-   
                          $                                                     
ICE604A 0 ERROR IN KEYWORD, PARAMETER, OR DELIMITER                             
                FIRST DISCARD(SORTXSUM)                                         
ICE602I 0 OPERATION RETURN CODE:  12                                           
                                                                               
                                                                               
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE:  12                   
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12372
Topics: 75
Location: San Jose
PostPosted: Wed Aug 30, 2006 2:36 pm    Post subject: Reply with quote
sateesh_gontla,

You need a Seperate ON statement for each field. Try these control cards.

Code:

SELECT FROM(SORTIN) TO(SORTOUT) -
         ON(016,05,CH)          -
         ON(032,20,CH)          -
         ON(072,40,CH)          -
         ON(112,10,CH)          -
         ON(311,12,CH)          -
         ON(951,23,CH)          -
   FIRST DISCARD(SORTXSUM)


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Wed Aug 30, 2006 2:38 pm    Post subject: Reply with quote
sateesh_gontla,

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
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group