Re: rpg style question

[Charles Wilt <charles.wilt@xxxxxxxxx>]

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.