EMS FastStart Manual

Preparing the Application Configuration File
EMS FastStart Manual–133701
4-8
Adding Data Types with EXTRADDL
Example 4-2. Adding a New Data Type to the EXTRADDL File
*---------------------------------------------------------------------
*
* EMS Fast Start - T9263020 - (17MAR91)
*
* File Type: DDL Source Schema
*
* Source File Name: Extraddl
*
* Generation Time: July 7, 1988
*
* Language Compiler Required: Data Definition Language (DDL)
*
* Compiler Version Required: C20
*
* Source Library File Produced: None, see below.
*
*
* File Description: This DDL source schema file is an example of DDL
* definitions which may be added to the base ZSPIDDL definitions
* provided by Tandem. These definitions can then be used by
* EMS Fast Start and EGEN to create tokens of specific types.
*
* Modifications Summary: Date of Modification
*
* 1 - Added the Zspi-ddl-char254 token. Used by 21 October 1988
* EGEN to generate an event message with a
* ZEMS-TKN-TEXT of up to 254 bytes.
* N.B. 254 is the maximum bytes length for a
* fixed token code.
*
*---------------------------------------------------------------------
?SECTION Zspi-ddl-char254
!
! 254 ASCII characters - addressable as a STRUCT, bytes, or INT's
!
?TALBOUND 0
DEFINITION Zspi-ddl-char254.
02 z-c PIC X(254) SPI-NULL " ".
02 z-s REDEFINES z-c.
03 z-i TYPE BINARY 16 OCCURS 127 TIMES.
02 z-b REDEFINES z-c PIC X OCCURS 254 TIMES.
END
TOKEN-TYPE Zspi-typ-char254 VALUE IS Zspi-tdt-char
DEF IS Zspi-ddl-char254.
!
!This section shows how to add a field type of 20 characters.
!
?SECTION Zspi-ddl-char20
!
! 20 ASCII characters - addressable as a STRUCT, bytes, or INT's
!
?TALBOUND 0
DEFINITION Zspi-ddl-char20.
02 z-c PIC X(20) SPI-NULL " ".
02 z-s REDEFINES z-c.
03 z-i TYPE BINARY 16 OCCURS 10 TIMES.
02 z-b REDEFINES z-c PIC X OCCURS 20 TIMES.
END
TOKEN-TYPE Zspi-typ-char20 VALUE IS Zspi-tdt-char
DEF IS Zspi-ddl-char20.