Page 1 of 1

Reg JCL Sorts

PostPosted: Wed Feb 01, 2012 1:07 am
by reebahs
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.

Re: Reg JCL Sorts

PostPosted: Wed Feb 01, 2012 1:12 am
by NicC
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.

Re: Reg JCL Sorts

PostPosted: Wed Feb 01, 2012 2:29 am
by BillyBoyo
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.

Re: Reg JCL Sorts

PostPosted: Wed Feb 01, 2012 2:43 am
by Frank Yaeger
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