Frank Yaeger Sort Forum Moderator

Joined: 02 Dec 2002 Posts: 1618 Topics: 31 Location: San Jose
|
Posted: Sun Aug 12, 2007 10:49 am Post subject: |
|
|
Here's a DFSORT job that will do what you asked for. You didn't show what you wanted the output record to look like so I took a guess. You can edit the fields of the output record as appropriate.
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
08122007C00000000020001
08122007D00000000030001
08122007C00000000025002
08122007D00000000045002
08122007D00000000152349
08122007D00000000005218
08122007C00000000102349
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFOUTLEN=80,
IFTHEN=(WHEN=(9,1,CH,EQ,C'C'),OVERLAY=(24:14C'0')),
IFTHEN=(WHEN=(9,1,CH,EQ,C'D'),OVERLAY=(24:10,14,10:14C'0'))
OUTFIL REMOVECC,NODETAIL,
TRAILER1=(1,8, DATE
COUNT=(M11,LENGTH=10), COUNT
TOT=(10,14,ZD,M11,LENGTH=14), TOTAL OF C AMOUNTS
TOT=(24,14,ZD,M11,LENGTH=14)) TOTAL OF D AMOUNTS
/*
|
SORTOUT would have:
Code: |
0812200700000000070000000014735200000000232570
|
_________________ Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort |
|