Hi Kolusu, I knew it must be something simple,I just could not figure it out. Thank you so much for your help and for the explanation. Now, I hope that you do not mind if I ask you for one more thing. I wanted to have one line with the high level qualifier and all the three values but instead I am getting three lines for each HLQ. I was under the impression that by doing the sort by the HLQ than I would get that result but obviously that is not what is happening. Can you please shed some light in this? Thank you Best wishes Jack
On Wed, 6 Sept 2023 at 18:52, Sri h Kolusu <[email protected]> wrote: > Jack, > > I just ran your control cards against my dcollect extract and I know the > reason for overflow. Your INREC is initializing the space values that you > are summing with zeros IF that Record( D, B, M) is FOUND. So, if you don't > have any one of the record, you will be summing the spaces/garbage and it > will exceed the 8 byte value. So, you just need to change the INREC to the > following. I just moved the initialization of the space values to > WHEN=INIT. > > INREC IFTHEN=(WHEN=INIT, > PARSE=(%01=(ABSPOS=29,ENDBEFR=C'.',FIXLEN=8)), > OVERLAY=(FMT-HLQ:%01, > TMP-DCDALLSP:8Z, > TMP-UMALLSP:8Z, > TMP-UBALLSP:8Z)), > > IFTHEN=(WHEN=(DCURCTYP,EQ,DCUDATAT), > OVERLAY=(TMP-DCDALLSP2:DCDALLSP)), * ALLOC SPACE > > IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR), > OVERLAY=(TMP-UMALLSP2:UMALLSP)), * MIGRATED SPACE > > IFTHEN=(WHEN=NONE, > OVERLAY=(TMP-UBALLSP2:UBALLSP)) * BACKUP SPACE > > > > Thanks, > Kolusu > DFSORT Development > IBM Corporation > > -----Original Message----- > From: IBM Mainframe Discussion List <[email protected]> On Behalf > Of Sri h Kolusu > Sent: Wednesday, September 6, 2023 10:13 AM > To: [email protected] > Subject: [EXTERNAL] Re: Help on DFSORT SUM FIELDS > > >> I am doing something wrong because I am getting one output record for > each input record, instead of the few hundreds I was expecting to get. > > Jack, > > If I had to take an educated guess, you are getting an overflow error. > Look for ICE152I message in the sysout. I guess you earlier had a similar > issue. > > https://www.mail-archive.com/[email protected]/msg124452.html > > > Thanks, > Kolusu > DFSORT Development > IBM Corporation > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to [email protected]<mailto:[email protected]> with the > message: INFO IBM-MAIN > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
