Re: rpg style question

[Charles Wilt <charles.wilt@xxxxxxxxx>]

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.