Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
Jvinay,
The following DFSORT JCL which will give you the desired results
| Code: |
//STEP0100 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
EUROPE ; CH ; LAUSANNE ; 0100
EUROPE ; FR ; PARIS ; 0024
EUROPE ; CH ; ZURICH ; 0154
ASIA ; JP ; TOKYO ; 0004
EUROPE ; CH ; LAUSANNE ; 0200
EUROPE ; CH ; ZURICH ; 0077
EUROPE ; CH ; GENEVE ; 0154
EUROPE ; FR ; PARIS ; 0752
ASIA ; JP ; TOKYO ; 0014
EUROPE ; FR ; PARIS ; 0054
EUROPE ; CH ; GENEVE ; 0128
//OUT1 DD DSN=&&T1,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
//OUT2 DD DSN=&&T2,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
//OUT3 DD DSN=&&T3,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
//OUT4 DD DSN=&&T4,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
SORT FIELDS=(01,24,CH,A)
OUTREC BUILD=(1,30,94:X)
OUTFIL FNAMES=OUT1,REMOVECC,NODETAIL,
SECTIONS=(1,24,
TRAILER3=(1,24,TOT=(26,4,ZD,M11,LENGTH=8),
':TOTAL ON AREA/COUNTRY/CITY',81:1,13,C'1'))
OUTFIL FNAMES=OUT2,REMOVECC,NODETAIL,
SECTIONS=(1,13,
TRAILER3=(1,13,10X,C';',TOT=(26,4,ZD,M11,LENGTH=8),
C':TOTAL ON AREA/COUNTRY',81:1,13,C'2'))
OUTFIL FNAMES=OUT3,REMOVECC,NODETAIL,
SECTIONS=(1,08,
TRAILER3=(1,08,4X,C';',10X,C';',TOT=(26,4,ZD,M11,LENGTH=8),
C':TOTAL ON AREA',81:1,13,C'3'))
OUTFIL FNAMES=OUT4,REMOVECC,NODETAIL,
TRAILER1=(7X,C';',4X,C';',10X,C';',TOT=(26,4,ZD,M11,LENGTH=8),
C':"SUPER" TOTAL',81:14C'9')
/*
//STEP0200 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&T1,DISP=SHR
// DD DSN=&&T2,DISP=SHR
// DD DSN=&&T3,DISP=SHR
// DD DSN=&&T4,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(81,14,CH,A)
OUTREC BUILD=(01,80)
/* |
Hope this helps...
Cheers |
|
