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.