RE: truncating a decimal value in /Free (Hijacked &Solved...thehijacked that is)

This does work, but as a tool for trying to convince someone to use
/free over fixed-format RPG I think it might just have the opposite
effect. :-)

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bill Hopkins
Sent: Tuesday, January 22, 2013 1:29 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: truncating a decimal value in /Free (Hijacked
&Solved...thehijacked that is)

Thank you.... but this would work correct...if you still wanted to use
%Subarr

D IndAddr S * Inz(%Addr(*In))
D IndArray1 S 1 Dim(99)
D Based(IndAddr)
D #ds ds
D in1 like(IndArray2) inz('1')
D in2 like(IndArray2) inz('0')
D in3 like(IndArray2) inz('1')
D IndArray2 1 Dim(3) overlay(#ds)


/Free

%Subarr(IndArray1:30:3) = IndArray2;

/End-free

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Briggs, Trevor
(TBriggs2)
Sent: Tuesday, January 22, 2013 11:55 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: truncating a decimal value in /Free (Hijacked &
Solved...thehijacked that is)

I believe this would have the same issue as Buzz's version. What the
code:

%Subarr(IndArray:30:3) = '101';

Is actually saying is EVAL array IndArray, starting at element 30, for 3
elements, with the value '101', which will cause the right-truncated
value of '1' to be inserted in each element.

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bill Hopkins
Sent: Tuesday, January 22, 2013 11:08 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: truncating a decimal value in /Free (Hijacked &
Solved...thehijacked that is)

Try something likes this

D IndAddr S * Inz(%Addr(*In))
D IndArray S 1 Dim(99)
D Based(IndAddr)


/Free
%Subarr(IndArray:30:3) = '101';
/End-free


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Buzz Fenner
Sent: Tuesday, January 22, 2013 10:44 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: truncating a decimal value in /Free (Hijacked &
Solved...the hijacked that is)

To summarize (and to provide some background) I was faced with the
following
coding style during a modification to some RPG III code:

C MOVEA'101' *IN,30

This has been used extensively in my shop for the last 30 years. I'm
trying
to show the other guys the advantages of /Free but I wasn't able to do
the
same thing with just a single line of code. Posting the problem to the
forum
helped me a lot, and it also garnered the usual comments about bad
coding
techniques. I'll give you that, but I'm in a bit of an ideological war
here
and unless I can reproduce the same results using a single line of code,
I'll lose this battle. So much for background...

Got pointed to a Jon Paris article (thanks!) and came up with the
following:

D pIndicators s * inz(%addr(*in))

D indicators ds based(pIndicators)
D ind 1a overlay(indicators) dim(99)

In his original, the array elements were defined as 1n, but I changed it
to
what you see. The calc statement became this (since there's no
equivalent to
MOVEA in free form):

C %subarr(ind:30:3) = '101';

The compiler balked when the array was defined as 1n, but accepted 1a. I
ran
some test data and things looked OK, and I thought my problem was
solved,
until I tested more thoroughly.

In short folks, it didn't work. Debugging the statement shows the
following:

General Indicators:

... 30 '1' 31 '1' 32 '1' ...

Before the %subarr statement, they were all '0'.

So, I'm back to the drawing board but needed to inform the list so
someone
else doesn't try the same thing!

Buzz