ENABLE EVENT Internal Event Enable

Formats

1.	Timer Event:	ENABLE EVENT ON TIME
2.	Data Available on Channel Event:	ENABLE EVENT ON DATA (chan)
3.	On Close of Channel Event:	ENABLE EVENT ON CLOSE (chan)
4.	On Open Event:	ENABLE EVENT ON OPEN
5.	On Class Load Event:	ENABLE EVENT ON LOAD CLASS

Where:

chan	Channel or logical file number.

Description

(Windows Only)

Use the ENABLE EVENT directive to enable 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.

See Also

DISABLE EVENT Internal Event Disable
WAIT FOR EVENT Temporarily Halt Execution

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