Re: truncating a decimal value in /Free (Hijacked & Solved...the hijacked that is)

On Tue, 22 Jan 2013 16:07:29, Eric DeLong wrote:

Try this out...

D P_Indicators s * Inz(%addr(*IN))

D MyIndicators ds based(P_Indicators)
D Qualified
D Values 99a
D Ind n Dim(99) Overlay(Values)

/free


// Set IN range...
%subst(MyIndicators.Values:30:3) = '101';

// Also have array style access...
if MyIndicators.Ind(30);
DSPLY 'Thirty is *ON';
endif;

if MyIndicators.Ind(31) = *Off;
DSPLY 'Thirty One is *OFF';
endif;

Return;
/end-free

Thank you Eric, it worked! Plus, with the re-define you can have it both
ways in the calc-specs.

My problem was when the manual indicated the MOVEA equivalent in /Free was
to use the %subarr BIF; I just "assumed" it would behave in a similar manner
(to MOVEA) and couldn't drop my blinders long enough to see that %subst was
the way to go.

Jon, I tried to find the article I lifted the code from but couldn't locate
it. But I do remember that it didn't make use of the %subarr. I had plucked
the D-specs as a starting point.

Well, you learn something new every day. It's back to work time!

Buzz