Re: Define field as am indicator in D-specs

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.