HameedAli
Active User
Joined: 16 Apr 2009 Posts: 151 Location: India
|
|
|
|
Hi
How to achieve this using SORT.
Input:
Code: |
AAA1210
AAA1420
BBB1210
BBB1420
BBB2430
CCC1210
CCC1210 |
Output: In Report
Code: |
Field1 Field2 Field3
AAA 12 10
AAA 14 20
--------------------------
AAA 26 30
--------------------------
BBB 12 10
BBB 14 20
BBB 24 30
--------------------------
BBB 50 60
--------------------------
CCC 12 10
CCC 12 10
--------------------------
CCC 24 20
--------------------------
--------------------------
TOT 100 110
-------------------------- |
I am able to creater Header, Data, Trailer like this
Code: |
Field1 Field2 Field3
AAA 12 10
AAA 14 20
BBB 12 10
BBB 14 20
BBB 24 30
CCC 12 10
CCC 12 10
--------------------------
TOT 100 110
-------------------------- |
|
|
Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
Hameedali,
Use the following DFSORT JCL which will give you the desired results
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
AAA1210
AAA1420
BBB1210
BBB1420
BBB2430
CCC1210
CCC1210
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,BUILD=(1,3,12:4,2,22:6,2,30:X),
HEADER2=('FIELD1 FIELD2 FIELD3'),
SECTIONS=(1,3,
TRAILER3=(30'-',/,1,3,
10:TOT=(4,2,ZD,M10,LENGTH=4),
20:TOT=(6,2,ZD,M10,LENGTH=4),/,30'-')),
TRAILER1=(//,30'-',/,'TOT',
08:TOT=(4,2,ZD,M10,LENGTH=6),
18:TOT=(6,2,ZD,M10,LENGTH=6),/,30'-')
//* |
|
|