RE: NOT on the left side

It might work but it seems very awkward,

Why not simply:

If old = new
   BOOL = *on   ( if you need BOOL set )
   Do something
Endif

Albert York


        -----Original Message-----
        From:   Bob Cozzi (RPGIV) [SMTP:cozzi@rpgiv.com]
        Sent:   Wednesday, January 23, 2002 1: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.