Hi Tracy,

The problem is that 'VEFLOCK' does NOT return any value and thus cannot be
used very readily in an 'IF' statement.  BTW how did you come up with '11'
for the file number.  I assume that the file number must be 'assigned' by a
previous call to 'VEFOPEN'.

In any case, the following command file may give you some ideas.

Regards
Paul Christidis

=================
setvar lflag true
SETVAR FNUM VEFOPEN("TJ,old;shr;lock")
calc veflock(fnum,lflag)
while VEFREADV("S",fnum)
  echo !s
endwhile
calc VEFCLOSE(fnum)
deletevar lflag, fnum
=================


HP-3000 Systems Discussion <[log in to unmask]> wrote on 03/08/2004
03:05:52 PM:

> Anyone ever use VEFLOCK?  It seems I'm missing something.
>
> IF VEFLOCK(11,TRUE)
> A non-boolean expression was found. (CIERR 9940)
> ENDIF
>
> BT
>
>
> Tracy Johnson
> MSI Schaevitz Sensors
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *