# Directives

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