EMS FastStart Manual

DDL, Copy Libraries and Templates Example
EMS FastStart Manual–133701
D-4
ATM Example, COBOL85 COPYLIB: ATM1COB
* File Description: This DDL source schema file is an example of DDL
* definitions which may me added to the base ZSPIDDL definitions
* provided by Tandem. These definitions can then be used by
* EMS FastStart 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.
*
*----------------------------------------------------------------------
01 ZSPI-DDL-CHAR254.
02 Z-C PIC X(254).
02 Z-S REDEFINES Z-C.
03 Z-I NATIVE-2
OCCURS 127 TIMES.
02 Z-B REDEFINES Z-C PIC X
OCCURS 254 TIMES.
?SECTION ZSPI-TYP-CHAR254,TANDEM
01 ZSPI-TYP-CHAR254 NATIVE-2 VALUE IS 510.
?Section ATM-SSID,Tandem
*----------------------------------------------------------------------
*
* ATM SSID is defined here and will be passed to the EGEN
* procedure to identify the owner of the event. The SSID definition
* will also be used by EMF to compile the FILTER example.
*
* Description Value
* ----------- -----
*
* ATM-VAL-OWNER: CUSTOMER
*
* ATM-SSN-NUMBER: 1
*
* ATM-VAL-VERSION: J00
*
*----------------------------------------------------------------------
*
*
*
01 ATM-VAL-OWNER PIC X(8), VALUE IS "CUSTOMER".
01 ATM-SSN-NUMBER NATIVE-2 VALUE IS 1.
01 ATM-VAL-VERSION NATIVE-2 VALUE IS 18944.
*
*
*
01 ATM-VAL-SSID.
02 Z-FILLER PIC X(8)
VALUE "CUSTOMER".
02 Z-OWNER REDEFINES Z-FILLER.
03 Z-C PIC X(8).
03 Z-S REDEFINES Z-C.
04 Z-I NATIVE-2
OCCURS 4 TIMES.
03 Z-B REDEFINES Z-C PIC X
OCCURS 8 TIMES.
02 Z-NUMBER NATIVE-2
VALUE 1.
02 Z-VERSION NATIVE-2
VALUE 18944.
?Section EGEN-RECORD,Tandem
01 EGEN-RECORD.
02 ACF-VERSION NATIVE-2.