EMS Manual

Standard Event Sample Files
EMS Manual—426909-005
C-28
DDL Definitions Sample File
TOKEN-TYPE ZSAM-TYP-tp-diagcode
VALUE IS ZSPI-TDT-ENUM
DEFINITION IS ZSAM-DDL-tp-diagcode-ENUM.
TOKEN-TYPE ZSAM-TYP-data-usage
VALUE IS ZSPI-TDT-STRUCT
DEFINITION IS ZSAM-DDL-data-usage.
!***************************************************************
! Event Subject (private token) definitions *
! *
! naming convention: ZSAM-TKN-SUBJ-subjectname (simple/fixed)*
! ZSAM-MAP-SUBJ-subjectname (extensible) *
!***************************************************************
! event subject
! (ZSAM-TKN-) description of object
!
! subj-tp application transport connection
! subj-netx25 underlying X.25 network service
! subj-tape user profile tape
TOKEN-CODE ZSAM-TKN-subj-tp
VALUE ZSAM-TNM-subj-tp
TOKEN-TYPE ZSPI-TYP-STRING
SSID ZSAM-VAL-EXTERNAL-SSID
HEADING "application transport connection".
TOKEN-CODE ZSAM-TKN-subj-netx25
VALUE ZSAM-TNM-subj-netx25
TOKEN-TYPE ZSPI-TYP-STRING
SSID ZSAM-VAL-EXTERNAL-SSID
HEADING "X.25 network service".
TOKEN-CODE ZSAM-TKN-subj-tape
VALUE ZSAM-TNM-subj-tape
TOKEN-TYPE ZSPI-TYP-STRING
SSID ZSAM-VAL-EXTERNAL-SSID
HEADING "appln profile tape".
!***************************************************************
! Private token (non-event-subject) definitions *
! *
! Naming convention: ZSAM-TKN-tokenname for simple/fixed *
! tokens *
! ZSAM-MAP-tokenname for extensible tokens*
!***************************************************************
! token code
! (ZSAM-TKN-) type description
!
! tp-diagcode enum appl transport disconnect
diagnostic code
! data-usage struct appl transport usage data