×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
