Re: Want to replace MOVE numeric 8 to numeric 6 in free form

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

I'm thinking there is a new winner!

There isn't a real performance issue - this is a one-sy kind of thing - 
not something applied to millions of records - it's in an add/change 
program, only affecting one 8-digit "date" value upon updating a record 
that fed a subfile.

As to arithmetic - it was Jon's word, applied to my data structure 
solution, which takes a couple lines and additional specification.

Again, verrrrrrrrrrrrry eeeeeeeeeenteresting!

Thx to all!
Vern

On 8/17/2013 4:07 PM, Joe Pluta wrote:
> (And John, I think your answer is fine, as well - it is the simplest
> arithmetic solution.)
>
> > Unless there's some measured performance issue (as opposed to a
> > theoretical one), I'm getting mroe conservative in my old age and
> > thinking the simplest answer is the best:
> >
> >      // Convert 8.0 decimal to 6.0 decimal
> >      decimal6 = %dec(%subst(%editc(decimal8:'X'):3:6):6:0);
> >
> > No extra code, no extra variables, no basing pointers, and everything
> > clearly on one line.
> >
> > Joe
> >
> > > I'm sorry if I'm really, really misunderstanding.  But my first
> > > thought when you said you wanted to replace a MOVE from 8 to 6, was
> > > simply
> > >
> > > my6 = %rem(my8:1000000)
> > >
> > > And when someone mentioned an "arithmetic solution" that is what I
> > > thought he meant.
> > >
> > > Am I missing something?
> > >
> > > John