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

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