>> I would like to add all the space for each year and for each High Level
>> Qualifier. Is there a way to do this using DFSORT or ICETOOL
Jack,
It is quite simple and can be done. Since you haven't specified the positions
of the data, I assumed the following.
1. The input file has LRECL=133 RECFM=FBA
2. Position 2 thru 10 the space value
3. Position 11 has the space unit ( K = KB , M=MB G=GB)
4. The dataset name starts in position 13 which has the HLQ
5. The year value starts in position 71 thru 74
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNOUT DD SYSOUT=*
//SYMNAMES DD *
INP-BYTE,02,08,UFF
FMT-YEAR,134,04,UFF
SKIP,1
FMT-HLQ,*,08,CH
SKIP,1
FMT-UNT,*,10,UFF
SKIP,1
FMT-BYT,*,08,PD
//SORTIN DD DISP=SHR,DSN=Your.input.FBA.rmm.report
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INREC PARSE=(%01=(ABSPOS=13,ENDBEFR=C'.',FIXLEN=8)),
OVERLAY=(FMT-YEAR:71,04, # YEAR
FMT-HLQ:%01,
FMT-UNT:11,1,CHANGE=(10,C'K',C'0000001024',
C'M',C'0001048576',
C'G',C'1073741824'),
NOMATCH=(C'0000000001'),
FMT-BYT:INP-BYTE,MUL,
FMT-UNT,TO=PD,LENGTH=8)
SORT FIELDS=(FMT-YEAR,A,
FMT-HLQ,A)
SUM FIELDS=(FMT-BYT)
OUTREC BUILD=(FMT-YEAR,
X,
FMT-HLQ,
X,
FMT-BYT,M10,LENGTH=12,
X,
FMT-BYT,DIV,+0000001024,M10,LENGTH=10,C' KB',
X,
FMT-BYT,DIV,+0001048576,M10,LENGTH=08,C' MB',
X,
FMT-BYT,DIV,+1073741824,M10,LENGTH=06,C' GB')
/*
The output will be shown as
Year , HLQ, Byte-total , Byte-total-in-KB, Byte-total-in-MB, Byte-total-in-GB
( You can pick and choose which ever unit you want) . The KB,MB,GB values are
in all integers , if you want the decimals also, then it is easy to
incorporate. Let me know if you are interested in that.
PS: It would have been nice if you used a descriptive topic title rather than
the PGM name for the topic. Something like "Summing up values from a RMM
report using DFSORT"
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
