Re: rpg style question

[James Perkins <jrperkinsjr@xxxxxxxxx>]

Maybe you should write a subprocedure, maybe in a service program, that will
turn a flag into and indicator and an indicator into a flag.

Example:
myInd = flagToInd(myField);
myField = indToFlag(myInd);



**************************************************************************
     P flagToInd       B
     D flagToInd       PI              n
     D  flag                          1a   const
      *
      /free
       return flag = YES;
      /end-free
      *
     P flagToInd       E

**************************************************************************
     P indToFlag       B
     D indToFlag       PI             1a
     D  ind                            n   const
      *
      /free
       if (ind);
         return YES;
       endif;
       return NO;
      /end-free
      *
     P flagToInd       E
--
James R. Perkins


On Thu, Jan 14, 2010 at 06:37, David FOXWELL <David.FOXWELL@xxxxxxxxx>wrote:

> 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.