Reg JCL Sorts



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

Reg JCL Sorts

Postby reebahs » Wed Feb 01, 2012 1:07 am

Hi All,

Please find the below JOB

//STEP0001 EXEC PGM=SORT                                 
//SORTIN DD DSN=AC102P7.NEW.INFILE,DISP=SHR               
//SORTOUT DD DSN=AC102P7.NEW.OUTFILE,DISP=OLD             
//SORTXSUM DD DSN=AC102P7.NEW.XSUMFILE,DISP=OLD           
//SYSPRINT DD SYSOUT=*                                   
//SYSOUT DD SYSOUT=*                                     
//SYSIN DD *                                             
      SORT FIELDS=(1,5,CH,A)                             
      SUM FIELDS=NONE,XSUM                               


My requirement is to copy unique records from SORTIN file to SORTOUT file and duplicate records to SORTXSUM file.But using above JCL I`m unable to do that.
Can anybody help me in this ? Below is info in spool

In spool

1ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED                               
 ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES A
 ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 23:58 ON TUE J
0                SORT FIELDS=(1,5,CH,A)                                         
                 SUM FIELDS=NONE,XSUM                                           
                                 $                                             
 ICE172A E XSUM IS NOT SUPPORTED - USE ICETOOL SELECT IF APPROPRIATE           
 ICE751I 0 C5-K90014 C6-K90014 C7-BASE   C8-K90014 E7-BASE                     
 ICE052I 3 END OF DFSORT                                                       


Thanks in Adv,
Reebahs.
reebahs
 
Posts: 28
Joined: Thu Dec 09, 2010 1:03 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Reg JCL Sorts

Postby NicC » Wed Feb 01, 2012 1:12 am

JCL does not do any sorting - your sort program does that and there are dedicated sections of the forum for syncsort and dfsort. Which do you have - looks like dfsort but I think XSUM is a syncsort keyword. Suggest that first of all you sort yourself out.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 3025
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 136 times

Re: Reg JCL Sorts

Postby BillyBoyo » Wed Feb 01, 2012 2:29 am

If you google, or look at the links in the DFSORT forum, for DFSort Smart Tricks, you'll find examples of how to do XSUM and much more with ICETOOL.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

Re: Reg JCL Sorts

Postby Frank Yaeger » Wed Feb 01, 2012 2:43 am

ICE172A E XSUM IS NOT SUPPORTED - USE ICETOOL SELECT IF APPROPRIATE


I guess you don't know how to look up IBM messages.

Goto lookat:

http://www.ibm.com/systems/z/os/zos/bks ... index.html

Type in the message number (ICE172A in this case) and hit go and you'll be directed to the message text and explanation at:

http://publibz.boulder.ibm.com/cgi-bin/ ... SPTMB00084

It tells you exactly how to do what you want with DFSORT's ICETOOL.

Alternatively, see the "Keep dropped duplicate records (XSUM)" Smart DFSORT Trick at:

http://www.ibm.com/support/docview.wss? ... g3T7000094
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1079
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 15 times


Return to JCL