RE: Stupey service program thinks file is open -OR- %OPEN is easi ly f ooled?

[rick.baird@xxxxxxxxxxxxxxx]

Eric answered your activation group question, but I just had to comment on
the code you sent

just wanted to point out some nifty features of the language...

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)

instead of:

>C                   IF        %OPEN(ILLDR) = FALSE
>C                   OPEN      ILLDR
>C                   ENDIF

c                   if        not %open(ILLDR)

or

c                   if        %open(ILLDR)

but then you probably already knew that... :)


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