Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
cjt,
use the following JCL. I assumed that your AA records have values at pos 32 that you want to sum and AB records have values at pos 67 that needs to be summed.
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=Your input 80 bytes,DISP=SHR
//FILEAA DD SYSOUT=*
//FILEAB DD SYSOUT=*
//SYSIN DD *
INCLUDE COND=(30,2,SS,EQ,C'AA,AB')
INREC IFTHEN=(WHEN=(30,2,SS,EQ,C'AA'),OVERLAY=(81:32,9)),
IFTHEN=(WHEN=(30,2,SS,EQ,C'AB'),OVERLAY=(81:67,9))
SORT FIELDS=(30,2,CH,A,13,11,CH,A,81,09,ZD,A)
OUTFIL FNAMES=FILEAA,INCLUDE=(30,2,CH,EQ,C'AA'),
BUILD=(1,31,81,09,ZD,M11,41,40),REMOVECC,
TRAILER1=(10:'TOTAL AMOUNT',
40:TOTAL=(81,09,ZD,M5,LENGTH=20))
OUTFIL FNAMES=FILEAB,INCLUDE=(30,2,CH,EQ,C'AB'),
BUILD=(1,46,47,13,ZD,M11,60,7,81,09,ZD,M11,76,5),REMOVECC,
TRAILER1=(10:'TOTAL AMOUNT',
40:TOTAL=(81,09,ZD,M5,LENGTH=20))
/* |
|
|