Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
Subinraj,
The following DFSORT/ICETOOL JCl will give you desired results
Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
SUBIN 111
JIBIN 222
SUBIN 111
JIBIN 111
SUBIN 222
SUBIN 333
//T1 DD DSN=&&T1,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//T2 DD DSN=&&T2,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//CON DD DSN=&&T2,DISP=OLD,VOL=REF=*.T2
// DD DSN=&&T1,DISP=OLD,VOL=REF=*.T1
//OUT DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(IN) TO(T1) ON(1,5,CH) LAST DISCARD(T2) USING(CTL1)
SORT FROM(CON) USING(CTL2)
//CTL1CNTL DD *
OUTFIL FNAMES=T1,OVERLAY=(11:C'F')
OUTFIL FNAMES=T2
//CTL2CNTL DD *
OPTION EQUALS
SORT FIELDS=(1,5,CH,A)
OUTFIL FNAMES=OUT
/*
|
|
|