EMS Manual

Standard Event Sample Files
EMS Manual—426909-005
C-29
DDL Definitions Sample File
! netx25-error int error (File Sys) returned from
net
!
! (ZSAM-MAP-)
!
! netx25-info Xstruct error information returned by
X.25 PDN
TOKEN-CODE ZSAM-TKN-tp-diagcode
VALUE IS ZSAM-TNM-tp-diagcode
TOKEN-TYPE ZSAM-TYP-tp-diagcode !allow
"89" DEF's
SSID ZSAM-VAL-EXTERNAL-SSID
HEADING "appl transport disconnect diagnostic
code".
TOKEN-CODE ZSAM-TKN-data-usage
VALUE IS ZSAM-TNM-data-usage
TOKEN-TYPE ZSAM-TYP-data-usage !allow
def of struct
SSID ZSAM-VAL-EXTERNAL-SSID
HEADING "appl transport usage data".
TOKEN-CODE ZSAM-TKN-netx25-error
VALUE IS ZSAM-TNM-netx25-error
TOKEN-TYPE ZSPI-TYP-INT !File
Sys err
SSID ZSAM-VAL-EXTERNAL-SSID
HEADING "X.25 net error".
TOKEN-MAP ZSAM-MAP-pdnx25-error
VALUE IS ZSAM-TNM-pdnx25-error
DEF IS ZSAM-DDL-pdnx25-error !allow
def of struct
SSID ZSAM-VAL-EXTERNAL-SSID
HEADING "X.25 PDN error diag info".
VERSION "C00" FOR stdlevel THRU info.
END.