|
View previous topic :: View next topic
|
| Author |
Message |
pankajauti
New User
Joined: 13 May 2008
Posts: 4
Location: pune
|
|
|
|
Hi All,
I want to add a value from 02 type records to 01 type record using ICETOOL... any help
I/P file:
01AC AAAC00001000060 10080000.0085 - 01 type record
02AC AAAC00001000060 05040000.0085 - 02 type record
01AC AAAC00001000022 10080000.0085
02AC AAAC00001000022 05040000.0085
expected O/P file(only 01 type record):
01AC AAAC00001000060 15120000.0085
01AC AAAC00001000022 15120000.0085
Advance thanks for your advise........... |
|
| Back to top |
|
 |
Escapa
Senior Member
Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA
|
|
|
|
What is LRECL and RECFM?
will there be one 01 record followed by one 02 record always? |
|
| Back to top |
|
|
pankajauti
New User
Joined: 13 May 2008
Posts: 4
Location: pune
|
|
|
|
What is LRECL and RECFM?
LRECL = 120 and RECFM=FB
will there be on 01 record followed by one 02 record always?
Yes |
|
| Back to top |
|
|
Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
pankajauti,
Isn't it a simple case of summing on the key?
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
----+----1----+----2----+----3----+
01AC AAAC00001000060 10080000.0085
02AC AAAC00001000060 05040000.0085
01AC AAAC00001000022 10080000.0085
02AC AAAC00001000022 05040000.0085
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(6,15,CH,A),EQUALS
SUM FIELDS=(22,8,ZD)
/* |
|
|
| Back to top |
|
|
pankajauti
New User
Joined: 13 May 2008
Posts: 4
Location: pune
|
|
|
|
| Thanks ... :-) It's working ... |
|
| Back to top |
|
|
|
|
