EMS Manual

Standard Event Sample Files
EMS Manual—426909-005
C-25
DDL Definitions Sample File
! ----------------------
! ZEMS-TKN-CHANGE-REASON
! ----------------------
CONSTANT ZSAM-VAL-cr-tp-applreq VALUE IS 1024.
CONSTANT ZSAM-VAL-cr-tp-xconntime VALUE IS 1025.
CONSTANT ZSAM-VAL-cr-netx25-online VALUE IS 1027.
DEFINITION ZSAM-DDL-CHANGEREASON-ENUM
TYPE ENUM TACL ENUM !*do not specify the "AS
clause"
BEGIN.
89 ZSAM-ENM-cr-tp-applreq VALUE ZSAM-VAL-cr-tp-applreq
AS "requested by local
appln".
89 ZSAM-ENM-cr-tp-xconntime VALUE ZSAM-VAL-cr-tp-
xconntime
AS "excessive TP resets".
89 ZSAM-ENM-cr-netx25-online VALUE ZSAM-VAL-cr-netx25-
online
AS "x.25 net online".
END.
! The following are transient fault types as reported in the
! TRANSIENT FAULT event.
!
! ---------------------
! ZEMS-TKN-TXFAULT-TYPE
! ---------------------
CONSTANT ZSAM-VAL-tf-resets-tp VALUE IS 1024.
CONSTANT ZSAM-VAL-tf-resets-net VALUE IS 1025.
DEFINITION ZSAM-DDL-TXFAULT-TYPE-ENUM
TYPE ENUM TACL ENUM !*do not specify the "AS
clause"
BEGIN.
89 ZSAM-ENM-tf-resets-tp VALUE ZSAM-VAL-tf-resets-tp
AS "too many TRANSPORT
resets".
89 ZSAM-ENM-tf-resets-net VALUE ZSAM-VAL-tf-resets-net
AS "too many NETWORK
resets".
END.
!***************************************************************
! Private enumerations of other subsystems' tokens *
! *
! Naming convention: ZSAM-VAL-enumname *
! ZSAM-ENM-enumname for 89 enumeration *
! clause *
!***************************************************************
! Enumerate values you added to other subsystems' token