Re: Stupey service program thinks file is open -OR- %OPEN is easily f

[rick.baird@xxxxxxxxxxxxxxx]

Barb,

i wouldn't have done it this way, rather, i was just showing him how to
define named indicators.  which is why i then went on to describe binary
expressions that don't need " = *off" or " = true" or " = '0' "

like:

if    %open(file)

or

if    not %found(file)

or to really rock your worlds:

eval     $true = (not $true)

...flipping reality to fantasy (or back to reality again) in one fell swoop

;)

Rick

"The best way to get a drink out of a Vogon is to stick your finger down
his throat, and the best way to irritate him is to feed his grandmother to
the Ravenous Bugblatter Beast of Traal.  On no account allow a Vogon to
read poetry at you." - the Guide

-------Original message-----------
rick.baird@xxxxxxxxxxxxxxx wrote:
>
> instead of:
>
> >D TRUE            C                   CONST('1')
> >D FALSE           C                   CONST('0')
>
> you can use named indicators:
>
> >d true            s               n   inz(*on)
> >d false           s               n   inz(*off)
>

Using a variable to hold a constant doesn't seem like a good idea to
me.  It should be impossible (not just unwise) to do

       eval   true = '0'