EMS Manual

Standard Event Sample Files
EMS Manual—426909-005
C-22
DDL Definitions Sample File
! *
!***************************************************************
! event number
! event subject range description
!
! ZSAM-TKN-tp 001 - 100 application transport
! connection
! ZSAM-TKN-netx25 101 - 200 underlying X.25 network
! service
! ZSAM-TKN-tape 201 - 300 application profile tape
CONSTANT ZSAM-EVT-tp-disconnected VALUE IS 1. !OBJECT
UNAVAIL
CONSTANT ZSAM-EVT-tp-connected VALUE IS 2. !OBJECT
AVAIL
CONSTANT ZSAM-EVT-tp-x-conntime VALUE IS 3. !OTHER
STATE CHANGE
CONSTANT ZSAM-EVT-tp-x-resets VALUE IS 4.
!TRANSIENT FAULT
CONSTANT ZSAM-EVT-tp-usage-data VALUE IS 5. !appl net
usage data
CONSTANT ZSAM-EVT-netx25-down VALUE IS 101. !OBJECT
UNAVAIL
CONSTANT ZSAM-EVT-netx25-up VALUE IS 102. !OBJECT
AVAIL
CONSTANT ZSAM-EVT-netx25-dataloss VALUE IS 103.
!TRANSIENT FAULT
CONSTANT ZSAM-EVT-netx25-util-req VALUE IS 104. !USAGE
THRESHOLD
CONSTANT ZSAM-EVT-tape-mount-needed VALUE IS 201.
!ATTENTION NEEDED
CONSTANT ZSAM-EVT-tape-mount-done VALUE IS 202.
!ATTENTION COMPLETED
DEFINITION ZSAM-DDL-EVENTNUMBER-ENUM
TYPE ENUM TACL ENUM !*do not specify "AS clause"
BEGIN.
89 ZSAM-ENM-tp-disconnected VALUE ZSAM-EVT-tp-
disconnected
AS "appln not connected to
remote".
89 ZSAM-ENM-tp-connected VALUE ZSAM-EVT-tp-connected
AS "appln connected to
remote".
89 ZSAM-ENM-tp-x-conntime VALUE ZSAM-EVT-tp-x-conntime
AS "appln taking too long to
connect".
89 ZSAM-ENM-tp-x-resets VALUE ZSAM-EVT-tp-x-resets
AS "appln has too many
resets".
89 ZSAM-ENM-tp-usage-data VALUE ZSAM-EVT-tp-usage-data
AS "appln transport usage