EMS Manual

Example of Reporting Events
EMS Manual—426909-005
B-4
The DDL Source File
The DDL Source File
These statements are in the DDL source file:
!FILE xourDDL
?SECTION structs
!--------------------------------------!
! Data Definitions for Token Types !
!--------------------------------------!
DEF xour-ddl-too-long-stats.
02 occurrences TYPE ZSPI-DDL-UINT.
02 subsys-process-type TYPE ZSPI-DDL-ENUM.
02 ios TYPE ZSPI-DDL-INT2.
END
?SECTION constants
!-------------------!
! OUR token numbers !
!-------------------!
CONSTANT xour-TNM-io-file VALUE IS 1.
CONSTANT xour-TNM-io-msg VALUE IS 2.
CONSTANT xour-TNM-io-time VALUE IS 3.
CONSTANT xour-TNM-too-long-stats VALUE IS 4.
!-------------------!
! OUR token codes !
!-------------------!
TOKEN-CODE
xour-TKN-io-file VALUE IS xour-TNM-io-file
TOKEN-TYPE IS zspi-typ-fname.
TOKEN-CODE
xour-TKN-io-msg VALUE IS xour-TNM-io-msg
TOKEN-TYPE IS zspi-typ-string.
TOKEN-CODE
xour-TKN-io-time VALUE IS xour-TNM-io-time
TOKEN-TYPE IS zspi-typ-int4.
!-------------------!
! OUR values !
!-------------------!
CONSTANT xour-VAL-ourco VALUE IS "OURCO ".
CONSTANT xour-SSN-xour VALUE IS 1.
* Enumeration of SUBSYS-PROCESS-TYPE in TOO-LONG-STATS.
! Input bound process
CONSTANT xour-VAL-proc-input-bound VALUE IS 1.
! Output bound process
CONSTANT xour-VAL-proc-output-bound VALUE IS 2.
!---------------------------!
! OURCO EVENT NUMBER VALUES !
!---------------------------!
CONSTANT xour-EVT-time-too-long VALUE IS 1.
CONSTANT xour-EVT-other VALUE IS 2.
* DEFINES OUR CURRENT SUBSYSTEM VERSION
CONSTANT xour-val-version VALUE IS 3. ! Rev 3
* DEFINES THE STRUCTURE FOR OUR SSID
DEF xour-VAL-SSID TACL SSID.
02 Z-FILLER TYPE CHARACTER 8
VALUE IS xour-VAL-ourco.
02 Z-OWNER REDEFINES Z-FILLER
TYPE ZSPI-DDL-CHAR8.