Some people (C# programmers for example) are familiar with true and false but not *On and *Off. You can substitute *On for true and *Off for false if you like. Works the same.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bill Wragg
Sent: Thursday, December 05, 2013 4:53 PM
To: 'RPG programming on the IBM i (AS/400 and iSeries)'
Subject: 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.
--
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.
midrange.com
