RE: NOT on the left side -- RPG400-L

As far as I know, though, the only way to really implement this is with
indicators.  I'd rather be able to create a field on a D spec and give it a
definition type of boolean... no need to define size.  I don't know if you
can use indicators in if statements like so...

if ( *in30 )

or do you have to code it like this...

if ( *in30 = *on )


Maybe there is already a way to accomplish this, like defining a field with
"like (*in01)" (and if you do, is it character or numeric?), but it seems in
every other language booleans are primitive data types...

Joel R. Cochran
Director of Internet Services
VamaNet.com
(800)480-8810
mailto:custservice@vamanet.com

> -----Original Message-----
> From: MWalter@hanoverwire.com [mailto:MWalter@hanoverwire.com]
> Sent: Wednesday, January 23, 2002 4:36 PM
> To: rpg400-l@midrange.com
> Subject: RE: NOT on the left side
>
>
>
> Joel,
>
> What do you mean "true boolean"? True and False, Yes and No,
> On and Off
> Don't we have this already? Isn't the *on and *off construct
> virtually the
> same asVB's True and False?
>
>
>
> Mark
>
>
> Mark Walter
> Sr. Programmer/Analyst
> Hanover Wire Cloth a div of CCX, Inc.
> mwalter@hanoverwire.com
> http://www.hanoverwire.com
> 717.637.3795 Ext.3040
>
>
>
>                     "Joel R. Cochran"
>                     <jrc@masi-brac.co        To:
> "'rpg400-l@midrange.com'" <rpg400-l@midrange.com>
>                     m>                       cc:
>                     Sent by:                 Subject:     RE:
> NOT on the left side
>                     rpg400-l-admin@mi
>                     drange.com
>
>
>                     01/23/02 04:46 PM
>                     Please respond to
>                     rpg400-l
>
>
>
>
>
>
> I've been using the old *on/*off, but I would love to have
> true boolean
> support in RPGIV.  If there is a way to do this already I
> feel *small*...
> when I want a flag field - something like an indicator that
> just toggles
> two
> values - I define two constants like...
>
> d #YES            c                   const('y')
> d #NO             c                   const('n')
>
> and then just use those fields for checking, but true
> booleans would be
> great...
>
> Joel R. Cochran
> Director of Internet Services
> VamaNet.com
> (800)480-8810
> mailto:custservice@vamanet.com
>
> > -----Original Message-----
> > From: rob@dekko.com [mailto:rob@dekko.com]
> > Sent: Wednesday, January 23, 2002 4:03 PM
> > To: rpg400-l@midrange.com
> > Subject: NOT on the left side
> >
> >
> >
> > Suppose I have the following:
> > PrettyField is an indicator field - a type 'N'.
> > /free
> >  if This=That;
> >   PrettyField;
> >  else;
> >   Not PrettyField;
> >  Endif;
> > /end-free
> >
> > The
> >   PrettyField;
> > compiles ok.  However the
> >   Not PrettyField;
> > does not.
> >
> > Should I use the
> > PrettyField=*on;
> > PrettyField=*off;
> > logic, or should I hold my breath until I turn blue and hope
> > IBM changes
> > this?
> >
> > Rob Berendt
> > --
> > "They that can give up essential liberty to obtain a little
> temporary
> > safety deserve neither liberty nor safety."
> > Benjamin Franklin
> >
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> > mailing list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>