EMS Manual

Standard Event Sample Files
EMS Manual—426909-005
C-27
DDL Definitions Sample File
CONSTANT ZSAM-TNM-tp-diagcode VALUE IS 4.
CONSTANT ZSAM-TNM-data-usage VALUE IS 5.
CONSTANT ZSAM-TNM-netx25-error VALUE IS 6.
CONSTANT ZSAM-TNM-pdnx25-error VALUE IS 7.
! --------------------------------
! Common DDL structure definitions
! --------------------------------
DEFINITION ZSAM-DDL-tp-diagcode-ENUM
TYPE ENUM TACL ENUM !*do not specify the "AS
clause"
BEGIN.
89 ZSAM-ENM-appl-remote-rej VALUE ZSAM-VAL-appl-remote-
rej
AS "rejected by remote
appl".
89 ZSAM-ENM-net-unavail VALUE ZSAM-VAL-net-unavail
AS "aborted by no net
available".
89 ZSAM-ENM-tp-remote-rej VALUE ZSAM-VAL-tp-remote-rej
AS "rejected by remote
transport".
89 ZSAM-ENM-tp-local-abort VALUE ZSAM-VAL-tp-local-
abort
AS "aborted by local appl".
END.
DEFINITION ZSAM-DDL-data-usage.
02 time-connect TYPE ZSPI-DDL-INT2
HEADING "appl session connect time (min)".
02 bytes-send TYPE ZSPI-DDL-INT2
HEADING "no. bytes sent to remote appl".
02 bytes-recv TYPE ZSPI-DDL-INT2
HEADING "no. bytes recv from remote appl".
02 pkts-send TYPE ZSPI-DDL-INT2
HEADING "no. packets sent to network".
02 pkts-recv TYPE ZSPI-DDL-INT2
HEADING "no. packets recv from network".
END.
DEFINITION ZSAM-DDL-pdnx25-error.
02 stdlevel TYPE ZSPI-DDL-INT
HEADING "PDN X.25 standard level".
02 errcode TYPE ZSPI-DDL-INT
HEADING "PDN X.25 error code".
02 diagcode TYPE ZSPI-DDL-INT
HEADING "PDN X.25 diagnostic code".
02 info TYPE ZSPI-DDL-CHAR50
HEADING "PDN X.25 error description".
END.
! ------------------------------
! Private token-type definitions
! ------------------------------