EMS Manual

Example of Reporting Events
EMS Manual—426909-005
B-5
The SOURTMPL File
02 Z-NUMBER TYPE ZSPI-DDL-INT
VALUE IS xour-SSN-xour.
02 Z-VERSION TYPE ZSPI-DDL-UINT
VALUE IS xour-VAL-VERSION.
END
* DEFINES OUR SUBSYSTEM MAXIMUM BUFFER SIZES
CONSTANT xour-val-evt-buflen VALUE IS 1000.
!-------------------!
! OUR Token Maps !
!-------------------!
TOKEN-MAP xour-map-too-long-stats
VALUE IS xour-tnm-too-long-stats
DEF IS xour-ddl-too-long-stats.
VERSION 1 FOR occurrences THRU subsys-process-type.
VERSION 2 FOR ios.
END
?SECTION xour-DDL-evt-BUFFER
!
! This section contains the DEF declaring
! the buffer structure.
!
?TALBOUND 0
DEF xour-DDL-evt-BUFFER.
02 Z-MSGCODE TYPE ZSPI-DDL-INT.
02 Z-BUFLEN TYPE ZSPI-DDL-UINT.
02 Z-OCCURS TYPE ZSPI-DDL-UINT.
02 Z-FILLER TYPE ZSPI-DDL-BYTE
OCCURS 0 TO xour-VAL-evt-BUFLEN TIMES
DEPENDING ON Z-OCCURS.
END
?SECTION XOUR-ENM-EVT
DEF XOUR-ENM-EVT TYPE ENUM BEGIN.
?NOTALALLOCATE
89 xour-ENM-time-too-long
VALUE xour-EVT-time-too-long AS "TIME-TOO-LONG".
89 xour-ENM-other
VALUE xour-EVT-other AS "OTHER".
END.
The SOURTMPL File
This file contains the source template.
VERSION: "Our Subsystem - 24AUG12"
SSID: XOUR-VAL-SSID
SSNAME: "OURSUBSS"
DEF_ENUM : ZEMS-TKN-EVENTNUMBER AS XOUR-ENM-EVT
MSG: ZEMS-TKN-EVENTNUMBER, XOUR-EVT-TIME-TOO-LONG
"More than <*IF 1> 10 <*ELSE> 30 <*ENDIF> seconds "
"since the last input.<*CR>"
"File: <2><*CR>"
"Last Message: <3><*CR>"
"Time since last message (in usec): <4>"
1: ZEMS-TKN-EMPHASIS <> ZSPI-VAL-TRUE