l.nethaji
New User
Joined: 16 Mar 2008
Posts: 90
Location: tamil nadu
|
|
|
|
Hi,
The following is my sort program to remove the duplicates .While i execute it i am facing the below abend
SORT PROGRAM:
| Code: |
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DPRACE.D372988.TEST37,DISP=SHR
//SORTOUT DD DSN=DPRACE.D372988.TEST37.OUT,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(200,100),RLSE),
// LRECL=200,RECFM=FB,AVGREC=K
//SORTXSUM DD DSN=DPRACE.D372988.TEST37.XSUM,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(200,100),RLSE),
// LRECL=200,RECFM=FB,AVGREC=K
//SYSIN DD *
SORT FIELDS =COPY
SUM FIELDS =NONE,XSUM
/*
// |
| Code: |
Abend:
10.018 17.58 54235 $HASP165 D372988S ENDED AT VK/VIR - ABENDED S000 U0007 CN(IN
TERNAL)
***
SYSOUT :
ICE000I J - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 17:58 ON MON JAN
SORT FIELDS =COPY
$
ICE007A P SYNTAX ERROR
ICE052I J END OF DFSORT
|
Please help me for this problem
Thanks,
L.Nethaji |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
As indicated by the syntax error (ICE007A), your SORT statement is incorrect. It should be:
However, you can't use COPY with SUM FIELDS=NONE and DFSORT doesn't support XSUM. You can do what you want using the DFSORT/ICETOOL technique described in the "Keep dropped duplicate records (XSUM)" Smart DFSORT Trick at:
www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000094
However, in order to work with duplicates, you need to specify the field on which you will be checking for duplicates. That's why you can only use SUM FIELDS=NONE for a SORT or MERGE application, not a COPY application. |
|
