RE: NOT on the left side

["Joel R. Cochran" <jrc@xxxxxxxxxxxxx>]

See, I'm a little slow on the draw today... :-)

Thanks Bob... I thought I looked in your book, but I missed the 'N' for
named indicator...

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

> -----Original Message-----
> From: Bob Cozzi (RPGIV) [mailto:cozzi@rpgiv.com]
> Sent: Wednesday, January 23, 2002 4:37 PM
> To: rpg400-l@midrange.com
> Subject: RE: NOT on the left side
>
>
> This works:
>
>      D Old             S              5P 0 Inz(029)
>
>      D New             S              5P 0 Inz(3741)
>      D BOOL            S              1N   INZ(*OFF)
>
>      C                   Eval      BOOL = (Old = New)
>      C                   If        BOOL
>      C                   do something here...
>      C                   endif
>
>
>
> 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 3:47 PM
> > To: 'rpg400-l@midrange.com'
> > Subject: RE: NOT on the left side
> >
> > 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.
>