RE: NOT on the left side

[tomh@xxxxxxxxx]

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
This works for me  (v4r5):

 d                 ds                  inz
 d retval                              like(*inlr)

Then I use the 'retval' field in boolean type statements:

c             if     not retval
c*  retval is *off,
c            endif



Tom Hightower
Solutions, Inc
http://www.simas.com





"Joel R. Cochran" <jrc@masi-brac.com>
Sent by: rpg400-l-admin@midrange.com
01/23/02 04:00 PM
Please respond to rpg400-l


        To:     "'rpg400-l@midrange.com'" <rpg400-l@midrange.com>
        cc:
        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...