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

Jon's solution is better (Happy Birthday, Jon!). *IN(32) in a program
tells
me nothing. Named indicators, even if they take more lines of code, do
tell
me something (well, as long as the names are meaningful). We've already
discussed maintenance in this thread; naming indicators makes maintenance
easier.

Jerry C. Adams
IBM i Programmer/Analyst
Nancy Astor: Winston, if I were your wife, I would put poison in your
coffee.
Winston Churchill: If I were your husband, I would drink it.
--
A&K Wholesale
Home Office: 615-832-2730
email: midrange@xxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Charles Wilt
Sent: Tuesday, January 15, 2013 9:38 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: truncating a decimal value in /Free (Hijacked)

Here's the best way... IMHO

http://www.itjungle.com/fhg/fhg091912-story01.html

Note that this assumes that 30-32 are in some way related so you can group
them under a single useful name. Ind30to32 is not useful ;)

Charles


On Tue, Jan 15, 2013 at 10:07 AM, Buzz Fenner
<bfenner@xxxxxxxxxxxxxxxx>wrote:

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



--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.