Re: Define field as am indicator in D-specs

["TheBorg" <sjl_abc@xxxxxxxxxxx>]

I sometimes write subprocedures which /return/ an indicator value rather 
than using indicator fields.

For example:

If prSparePartsItem( ItemNumber );
  prProcessSparePart( ItemNumber );
EndIf;

the prSparePartsItem subprocedure returns *ON if the item is spare parts, 
*OFF if not...

;-)

-sjl


"whatt sson"  wrote in message 
news:mailman.1579.1386334248.2717.rpg400-l@xxxxxxxxxxxx...

Why the true/false.
It's more like Java, but RPG isn't.
99% of RPG pgms use *on/*off.

It's not consistent, it adds nothing, and therefore it's just confusing.


wFlagOk = somecondition;

if wFlagOk;
 doStuff();
else;
 doOtherStuff();
endif;



On Fri, Dec 6, 2013 at 12:05 AM, Monnier, Gary 
<Gary.Monnier@xxxxxxxxx>wrote:

> You mean something like
>
>  D wFlagOk         S               N
>  D true            S              1    inz('1')
>  D false           S              1    inz('0')
>
>     if (somecondition);
>       wFlagOk = true;
>     else;
>       wFlagOk = false;
>     endif;
>
> OR
>
>  D wFlagOk         S              1A
>  D true            S              1    inz('1')
>  D false           S              1    inz('0')
>
>     if (somecondition);
>       wFlagOk = true;
>     else;
>       wFlagOk = false;
> endif;
>
> if (wFlagOk = true);
>   doStuff();
> else;
>   doOtherStuff();
> endif;
>
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Booth Martin
> Sent: Thursday, December 05, 2013 2:41 PM
> To: RPG programming on the IBM i / System i
> Subject: Define field as am indicator in D-specs
>
> Is it possible to define a work field as an indicator so that the field
> can be set *on & *off in the calcs?  Something like this?
>
>     D  wFlagOK         s               ?
>
> where "?" is the defining character for a true/false indicator?
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list To post a message email: RPG400-L@xxxxxxxxxxxx<mailto:
> 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<mailto:
> 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 (AS/400 and iSeries) (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.