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