EMS Manual

Standard Event Sample Files
EMS Manual—426909-005
C-24
DDL Definitions Sample File
! *
! * ZEMS-TKN-STATE-CURRENT *
! * ZEMS-TKN-STATE-PREVIOUS *
! * ZEMS-TKN-CHANGE-REASON *
! * ZEMS-TKN-TXFAULT-TYPE *
! *
! Naming convention: ZSAM-VAL-enumname *
! ZSAM-ENM-enumname for 89 enumeration *
! clause *
! Valid range: ZEMS-VAL-MIN-USER-VAL (1024) to ???? *
! for each standard token. *
!***************************************************************
! The following are valid state transitions and change reason
! as reported in the OBJECT AVAILABLE or OTHER STATE CHANGE
! events.
!
! valid state transition change reason
! (ZSAM-VAL-) (ZSAM-VAL-cr-)
!
! tp-disconnected -> tp-connecting tp-xconntime
! tp-connecting -> tp-connected tp-applreq
! netx25-down -> netx25-up netx25-online
! -----------------------
! ZEMS-TKN-STATE-CURRENT
! ZEMS-TKN-STATE-PREVIOUS
! -----------------------
CONSTANT ZSAM-VAL-tp-disconnected VALUE IS 1024.
CONSTANT ZSAM-VAL-tp-connecting VALUE IS 1025.
CONSTANT ZSAM-VAL-tp-connected VALUE IS 1026.
CONSTANT ZSAM-VAL-netx25-up VALUE IS 1027.
CONSTANT ZSAM-VAL-netx25-down VALUE IS 1028.
DEFINITION ZSAM-DDL-STATE-ENUM
TYPE ENUM TACL ENUM !*do not specify the "AS
clause"
BEGIN.
89 ZSAM-ENM-tp-disconnected VALUE ZSAM-VAL-tp-
disconnected
AS "appln not connected to
remote".
89 ZSAM-ENM-tp-connected VALUE ZSAM-VAL-tp-connected
AS "appln is connected to
remote".
89 ZSAM-VAL-tp-connecting VALUE ZSAM-VAL-tp-connecting
AS "appln is connecting to
remote".
89 ZSAM-VAL-netx25-up VALUE ZSAM-VAL-netx25-up
AS "underlying X.25 net up".
89 ZSAM-VAL-netx25-down VALUE ZSAM-VAL-netx25-down
AS "underlying X.25 net
down".
END.