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
//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
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.
