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

Yes, there is. See my previous message for the solution.

Bob Cozzi
cozzi@rpgiv.com
Visit the on-line  Midrange  Developer  forum at: http://www.rpgiv.com


> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Joel R. Cochran
> Sent: Wednesday, January 23, 2002 4:01 PM
> To: 'rpg400-l@midrange.com'
> Subject: RE: NOT on the left side
>
> 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.
> >
> _______________________________________________
> 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.