Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
theone1987,
The following DFSORT JCL will give you the desired results
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
//SORTOUT DD DSN=&&HDR,DISP=(,PASS),SPACE=(TRK,(1,0),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,NODETAIL,BUILD=(290X),HEADER1=('HDR')
/*
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&HDR,DISP=SHR,VOL=REF=*.STEP0100.SORTOUT
// DD DSN=your unique key at pos 1 file,disp=shr
// DD DSN=&&HDR,DISP=SHR,VOL=REF=*.STEP0100.SORTOUT
// DD DSN=your duplicate key at pos 62 file,disp=shr
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(293,40,CH,A),EQUALS
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,3,CH,EQ,C'HDR'),PUSH=(291:ID=1)),
IFTHEN=(WHEN=(291,1,ZD,EQ,1),OVERLAY=(293:01,40)),
IFTHEN=(WHEN=(291,1,ZD,EQ,2),OVERLAY=(293:62,40))
OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(333:SEQNUM,8,ZD,RESTART=(293,40))),
IFTHEN=(WHEN=GROUP,BEGIN=(333,8,ZD,EQ,1),PUSH=(292:291,1))
OUTFIL INCLUDE=(291,2,ZD,EQ,21),BUILD=(1,290)
//* |
|
|
