SPI Programming Manual (G06.24+, H06.03+, J06.03+)

Summary of DDL for SPI
SPI Programming Manual—427506-006
B-3
TYPE Clause
Examples 3 and 4 in Figure B-1 are group DEF statements, which define internal data
structures, including component fields or groups of fields. Each field or group of fields
is described by a subdivision of the DEF statement, starting with a level number such
as 02 or 03 and ending with a period. The level numbers establish a hierarchy of fields
or groups of fields. The keyword END marks the end of the group DEF statement.
DEF statements contain clauses beginning with DDL keywords such as TYPE, PIC,
OCCURS, REDEFINES, FILLER, SPI-NULL, TACL, SSID, HEADING, and DISPLAY:
TYPE Clause
The TYPE clause defines the data type and size, or the internal structure, associated
with a DEF or with a field in a group DEF. This clause consists of the keyword TYPE
followed by either the keyword of a DDL type (such as LOGICAL or BINARY 16) or the
name of another DEF that was given earlier (such as ZSPI-DDL-INT).
If the name of another DEF appears in the TYPE clause, the DEF containing the TYPE
clause defines its data structure, or a portion of its data structure, based on another
DEF statement. (This is called the reference form of the DEF statement.)
Figure B-1. DEF Statement Examples
VST022.vsd
def ZSPI-DDL-ENUM pic s9(4) comp spi-null 255
tacl enum .
2
def ZSPI-DDL-BOOLEAN type logical spi-null " " .
1
def ZFUP-DDL-PART-RENAME-OPTS .
02 Z-PART-ONLY type ZSPI-DDL-INT .
02 Z-PART-NAME type ZSPI-DDL-DEVICE .
02 Z-PRIEXT-SIZE type ZSPI-DDL-INT2 spi-null 255 .
02 Z-SECEXT-SIZE type ZSPI-DDL-INT2 spi-null 255 .
end .
def ZSPI-DDL-CHAR5
02 Z-C pic x(5) spi-null " " .
02 Z-S redefines Z-C .
03 Z-I type binary 16 occurs 2 times .
03 filler pic x .
02 Z-B redefines Z-C pic x occurs 5 times .
end .
4
3