Re: %DECPOS doesn't work with %DEC

["Shannon O'Donnell" <sodonnell@xxxxxxxxxxxxxxx>]

ah.... Well...I guess I would have just said, "in an effort to make this
easier" rather than "palliate" then if it had been me.  That way there would
be no confusion as to what was meant since not everyone shares the same
background and vocabulary.

But that's just me.


Shannon O'Donnell


----- Original Message ----- 
From: <bdietz@xxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, October 29, 2003 4:50 PM
Subject: Re: %DECPOS doesn't work with %DEC


>
>
>
>
> http://www.bartleby.com/61/71/P0027100.html
>
>
> -------------------------
>  Bryan Dietz
>
> rpg400-l-bounces@xxxxxxxxxxxx wrote on 10/29/2003 05:20:11 PM:
>
> > What does "palliate" mean?
> >
> >
> > Shannon O'Donnell
> >
> >
> > ----- Original Message -----
> > From: "Buck" <buck.calabro@xxxxxxxxxxxx>
> > To: <rpg400-l@xxxxxxxxxxxx>
> > Sent: Wednesday, October 29, 2003 4:12 PM
> > Subject: %DECPOS doesn't work with %DEC
> >
> >
> > > I am preparing a class on RPG IV for internal use, and was tinkering
> with
> > > the examples in the RPG Reference regarding intermediate precision.
> > > Straight from the reference, I have this:
> > >
> > > d fld1            s             15p 4
> > > d fld2            s             15p 2 inz(4)
> > > d fld3            s              5p 2 inz(100)
> > > d fld4            s              9p 4 inz(1)
> > > d fld5            s              9p 4 inz(2)
> > >
> > > eval      fld1=fld2/(((fld3/100)*fld4)+fld5)
> > >
> > > Of course, it returns 1.0000, exactly as expected.  In an attempt to
> > > demonstrate (again, from the manual) that %DEC can be used to palliate
> > this,
> > > I tried:
> > >
> > > eval
> > >
> > >             fld2/(((fld3/100)*fld4)+fld5):
> > >             %size(fld1):
> > >             %decpos(fld1))
> > >
> > > *RNF0329 30 The third parameter for %DEC or %DECH is not valid.
> > >
> > > Ah, well.  That's too bad, because it would open a programmatic way to
> > > influence the intermediate calculations in the same way that
> re-ordering
> > > Traditional Operation Codes did - in essence, twisting the compiler's
> arm
> > to
> > > use the intermediate results that *I* want.  As it stands, I need to
do
> > > this:
> > >
> > > eval
> > >
> > >             fld2/(((fld3/100)*fld4)+fld5):
> > >             %size(fld1):
> > >             4)
> > >
> > > Just an observation for anyone interested in intermediate precision,
> and
> > > detecting its results programmatically.
> > >   --buck
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>