Re: What is the key to the magic number 236,551.69 ??

That appears to be basically what happened.  Duel format logical, and
the selection criteria wasn't getting rid of the wrong format, so was
mapping some other data to a number.  I added 3 lines to the program to
mask out the inappropriate data and all seems fine now, running a test.

The only thing that seems confusing, is that they have been using this
program for years, and from what I see it should have never given correct
results.

Strange.

Regards,

Jim Langston

Scott Mildenberger wrote:
> 
> Some text may have been put into those fields and it ends up being that
> value when converted to numeric.
> 
> Scott Mildenberger
> 
> > -----Original Message-----
> > From: Jim Langston [mailto:jimlangston@conexfreight.com]
> > Sent: Tuesday, February 27, 2001 12:40 PM
> > To: RPG400-L@midrange.com
> > Subject: What is the key to the magic number 236,551.69 ??
> >
> >
> > I have an old system 36 RPG program that has broken unexpectedly.
> > It is supposed to be adding up the receivables for a month.  The
> > figures it comes up with are way too high (25 million instead of
> > 36 thousand) and I have written some code to dump certain fields.
> >
> > I see that for a number of records that it shouldn't even been
> > including it has the invoice amount as 236,551.69.
> >
> > This variable is being declared as 122 1292 so is zoned with 2
> > decimal places.
> >
> > I hate debugging S36 programs.
> >
> > Regards,
> >
> > Jim Langston
> > +---
> > | This is the RPG/400 Mailing List!
> > | To submit a new message, send your mail to RPG400-L@midrange.com.
> > | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
> > RPG400-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
> > david@midrange.com
> > +---
> >
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---