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