RE: NOT on the left side

[rob@xxxxxxxxx]

Because you didn't do the
else
  Bool = *off;
  Do the other stuff


Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                    "York, Albert"
                    <albert.york@nissa       To:     "'rpg400-l@midrange.com'" 
<rpg400-l@midrange.com>
                    n-usa.com>               cc:
                    Sent by:                 Fax to:
                    rpg400-l-admin@mid       Subject:     RE: NOT on the left 
side
                    range.com


                    01/23/2002 04:55
                    PM
                    Please respond to
                    rpg400-l






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.
_______________________________________________
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.