RE: Define field as am indicator in D-specs

D wFlagOk S N Inz(*off)



If (something IS);

wFlagOk = *On;

Else;

wFlagOK = *Off;

Endif;



If NOT wFlagOk;

// then is not on

Endif;



If wFlagOk;

// then is on

Endif;



Why the True and False?



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Monnier, Gary
Sent: December-05-13 6:05 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: Define field as am indicator in D-specs



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: <mailto:rpg400-l-bounces@xxxxxxxxxxxx> rpg400-l-bounces@xxxxxxxxxxxx
[ <mailto: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:
<mailto:RPG400-L@xxxxxxxxxxxx%3cmailto:RPG400-L@xxxxxxxxxxxx>
RPG400-L@xxxxxxxxxxxx<mailto:RPG400-L@xxxxxxxxxxxx> To subscribe,
unsubscribe, or change list options,

visit: <http://lists.midrange.com/mailman/listinfo/rpg400-l>
http://lists.midrange.com/mailman/listinfo/rpg400-l

or email:
<mailto:RPG400-L-request@xxxxxxxxxxxx%3cmailto:RPG400-L-request@xxxxxxxxxxxx

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> 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: <mailto:RPG400-L@xxxxxxxxxxxx>
RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,

visit: <http://lists.midrange.com/mailman/listinfo/rpg400-l>
http://lists.midrange.com/mailman/listinfo/rpg400-l

or email: <mailto:RPG400-L-request@xxxxxxxxxxxx>
RPG400-L-request@xxxxxxxxxxxx

Before posting, please take a moment to review the archives at
<http://archive.midrange.com/rpg400-l> http://archive.midrange.com/rpg400-l.