RE: rpg style question

It's the recording in the PF that caught my attention.

Usually when you are recording to the PF you are calling the modules at very different times. Say days or weeks apart. That's why rules based systems record the initial results of the test in a physical.


Sharon Wintermute


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

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.