> OVERLAY=(FMT-YEAR:71,04, # YEAR Since you are getting the first three digits, I suspect you are getting a blank in front. Try 72 instead of 71.
On Wed, Jul 20, 2022 at 3:11 AM Jack Zukt <jzuk...@gmail.com> wrote: > > Hi Kolusu, > > Thank you very much for your help. It works almost as it should. There is a > small glitch and I can not understand why: the year, on the output, has > only the three leftmost positions: > > 199 DUMMYCG 21588 KB 21 MB 0 GB 0 TB > 199 DUMMYCH 260204 KB 254 MB 0 GB 0 TB > 199 FDUMMY 8041 KB 7 MB 0 GB 0 TB > > Best Regards, > Jack > > > On Tue, 19 Jul 2022 at 16:39, Sri h Kolusu <skol...@us.ibm.com> wrote: > > > >> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
