EMS Manual

Standard Event Sample Files
EMS Manual—426909-005
C-21
DDL Definitions Sample File
* SAMPLER T9999D99^9SEP99 (09SEP99)
!***************************************************************
! Subsystem ID (SSID) definition (ZSAM-VAL-SSID) *
! *
! ZSAM-VAL-VERSION reflects the release version of the *
! subsystem, not the version of its SPI/EMS interface. It *
! is changed whenever release version of the subsystem is *
! changed. *
! *
!***************************************************************
! For Tandem:
! * ZSAM-VAL-VERSION: change "D10" to your product release
! version ID.
! * ZSPI-SSN-ZSAM: delete reference here as it will be defined
! in ZSPIDEF.
! For non-Tandem:
! * ZSPI-VAL-TANDEM: change to the literal that defines the
! registered name of your company (the literal is defined by
! your company)
! * ZSPI-SSN-ZSAM: change to the literal that defines the
! subsystem number assigned to you (the literal is defined by
! your company)
! * ZSAM-VAL-VERSION: change "D10" to reflect your release
! version.
CONSTANT ZSAM-VAL-VERSION VALUE VERSION "D10".
CONSTANT ZSPI-SSN-ZSAM VALUE 99.
DEFINITION ZSAM-VAL-SSID TACL SSID.
02 z-filler TYPE character 8 VALUE IS ZSPI-VAL-TANDEM.
02 z-owner TYPE ZSPI-DDL-CHAR8 REDEFINES z-filler.
02 z-number TYPE ZSPI-DDL-INT VALUE IS ZSPI-SSN-ZSAM.
02 z-version TYPE ZSPI-DDL-UINT VALUE IS ZSAM-VAL-VERSION.
END
!***************************************************************
! External SSID definition (ZSAM-VAL-EXTERNAL-SSID) *
!***************************************************************
! For all:
! * change "99" to the subsystem number assigned to you.
! For non-Tandem:
! * change "TANDEM" to the registered name of your company.
CONSTANT ZSAM-VAL-EXTERNAL-SSID VALUE "TANDEM.99.0".
!***************************************************************
! Event Number definitions (ZEMS-TKN-EVENTNUMBER) *
! *
! Naming convention: ZSAM-EVT-eventname for event number *
! ZSAM-ENM-eventname for 89 enumeration *
! clause *
! Valid range: 1 through ???? *