RE: truncating a decimal value in /Free (Hijacked)

But, seriously, as a programmer, I see red with this kind of code:

MOVEA '111' *IN,30

That code is completely meaningless unless there is a lengthy comment
explaining what it is doing. So why not give your indicators meaningful
names and then the code becomes self-documenting. There have been
previous threads explaining this technique.

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 Buzz Fenner
Sent: Tuesday, January 15, 2013 10:07 AM
To: Discussion RPG (DiscussionRPG)
Subject: Re: truncating a decimal value in /Free (Hijacked)

While we're on the subject of RPG Free, here's a situation I've not
found an
elegant equivalent (to RPG III) for, yet. We have plenty of old code
treating the program indicators as an array:



MOVEA '111' *IN,30



Which sets 'on' indicators 30-32.



The manual (or in my case the help text with iWDSC 7.0) says there's no
equivalent in Free, but instead use the %SUBARR or other substring
functions. I'd love to be able to do this:



*IN(30) = '111'



But the compiler doesn't like it.



I'd hate to leave Free for program indicator manipulation, but some of
our
indicator-array processing strings can get lengthy, if you know what I
mean.



Buzz Fenner

Business Systems Analyst/Systems Administrator

City Water & Light

870.930.3374 | 870.219.5229

bfenner@xxxxxxxxxxxxxxxx