Directives 

DISABLE EVENT

Internal Event Disable

Formats

1.

Timer Event:

DISABLE EVENT ON TIME

2.

Data Available on Channel Event:

DISABLE EVENT ON DATA (chan)

3.

On Close of Channel Event:

DISABLE EVENT ON CLOSE (chan)

4.

On Open Event:

DISABLE EVENT ON OPEN

5.

On Class Load Event:

DISABLE EVENT ON LOAD CLASS

Where:

chan

Channel or logical file number

Description

Use the DISABLE EVENT directive to disable the handling of various system events within a PxPlus session. The generation and trapping of events requires that the internal "*system.pvc" COM object be defined first.

(The Disable Event directive was added in PxPlus v7.00.)

See Also

ENABLE EVENT Internal Event Enable

Example

def object PvxComID,"*system" ! Activate support for System Events
enable event on tim=2 ! Activate timer event at two second intervals
on event "TimeOut" from PvxComIDpreinput 99 ! Establish how to handle the event
c=0
while 1
     input *
     if ctl=99 \
          then c++;
                  print "Timeout ",c;
                  if c>3 \
                       then break
wend
disable event on tim ! Deactivate timer event
drop object PvxComID
end