Re: rpg style question

To reword my reply, I'm saying is that you can't directly use a field
out of a file as an indicator varible, even if you've stored only '1'
or '0' in it.

You can move the value from the file field to a true indicator
variable then use it.

This actually is an argument for encapsulating file i/o and/or your
business logic.

Instead of looking at the file field's value in multiple places, call
an appropriately named procedure.

As an added bonus, if the business logic required to answer the
question changes you've only got one place to make the change. And it
does happy, at my last job we had a heck of an effort required to
rewrite old code that simply looked for a 'Y' in a field to looking
for the 'Y' and checking something else.

Charles



On Thu, Jan 14, 2010 at 10:09 AM, Charles Wilt <charles.wilt@xxxxxxxxx> wrote:

Sharon,

I don't understand what you're trying to say here; nor do I see how it
applies to the original question.

David,

Short answer is you can't do it.  RPG treats 1 character fields
different than indicators and you can't define a indicator field in a
file.



Charles



On Thu, Jan 14, 2010 at 9:47 AM, Wintermute, Sharon
<Sharon.Wintermute@xxxxxxxxxxxxxxxx> wrote:

This technique may be used if you are using a rules based system that is
modified without coding.

For example:

Having seen this in several pricing systems, it is useful when at the
time the order was placed, the order passed the rules then in force.  If
at a later date when the order is finally processed you do not have to
try to "back-date" the rules processing.  There are times when some
rules are at original entry versus at point of use.

HTH,

Sharon Wintermute

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of David FOXWELL
Sent: Thursday, January 14, 2010 8:37 AM
To: RPG programming on the IBM i / System i
Subject: rpg style question

Hi,

Having to regularly determine the value of flags as 'Y' or 'N', then
record it in a PF.

This means having to code

IF rules satisfied;
   MyFlag = gYES;

ELSE;
   MyFlag = gNO;
Endif;


Then, maybe in another module,etc

IF MyFlag <> gYES;
   Don't do stuff;
ELSE;
   Do stuff;
Endif

Comments?
What's the reasoning behind this method?

I'd <like> to be able to use an indicator :

MyFlag = ( rules satisfied);

Then,

IF MyFlag;
   do stuff;
ELSE;
   Don't Do stuff;
Endif


Thanks.
--
This is the RPG programming on the IBM i / System i (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 / System i (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.