Hi, Thank you for the suggestion but that only shifts the problem for the three rightmost positions. And it is summarizing on those three positions, not on the four as it should. Regards Jack
On Wed, 20 Jul 2022 at 09:28, Mike Schwab <mike.a.sch...@gmail.com> wrote: > > 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 > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
