Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
| Quote: |
| SLICE was not supporting completely |
I assume you mean SPLICE, but SPLICE isn't needed for this task.
You didn't explain anything about the "rules" for getting your report, so I'm just guessing that you want to remove any records that don't have O or B in position 24, and then get section totals and report totals for O and B separately for each Zip. I'm also assuming that your input records have RECFM=FB and LRECL=80. Lastly, I'm assuming that you got the output wrong for the 09099 line.
If all of my assumptions are true, then you can use this DFSORT job to produce the report you want:
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
OPTION COPY
OMIT COND=(24,1,SS,NE,C'O,B')
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:8C'0',89:8C'0',97:8C'0')),
IFTHEN=(WHEN=(24,1,CH,EQ,C'O'),OVERLAY=(88:C'1',104:C'1')),
IFTHEN=(WHEN=(24,1,CH,EQ,C'B'),OVERLAY=(96:C'1',104:C'1'))
OUTFIL NODETAIL,REMOVECC,
HEADER1=(' MASS CARD PRINTED ZIP STAT - POV - REPORT',/,
'ZIP PRINTED-ONLINE PRINTED-BATCH TOT-PRINTED'),
BUILD=(1,80),
SECTIONS=(1,5,
TRAILER3=(1,5,
11:TOT=(81,8,ZD,M10,LENGTH=8),
26:TOT=(89,8,ZD,M10,LENGTH=8),
38:TOT=(97,8,ZD,M10,LENGTH=8))),
TRAILER1=('TOTAL',
11:TOT=(81,8,ZD,M10,LENGTH=8),
26:TOT=(89,8,ZD,M10,LENGTH=8),
38:TOT=(97,8,ZD,M10,LENGTH=8))
/*
|
SORTOUT would have:
| Code: |
MASS CARD PRINTED ZIP STAT - POV - REPORT
ZIP PRINTED-ONLINE PRINTED-BATCH TOT-PRINTED
09094 3 1 4
09099 0 1 1
09102 2 2 4
TOTAL 5 4 9
|
In the future, please explain what you want in reasonable detail so people don't have to guess. |
|
