Data Definition Language (DDL) Reference Manual

Sample Schemas
Data Definition Language (DDL) Reference Manual—529431-004
B-9
Selected ZSPIDDL Statements
Example B-2. ZSPIDDL Statements
DEF zspi-ddl-int TYPE BINARY 16 SPI-NULL 0.
DEF zspi-ddl-int2 TYPE BINARY 32 SPI-NULL 0.
DEF zspi-ddl-uint TYPE BINARY 16 UNSIGNED SPI-NULL 0.
DEF zspi-ddl-enum PIC S9(4) COMP SPI-NULL 255
TACL enum.
DEF zspi-ddl-boolean TYPE zspi-ddl-int SPI-NULL " ".
DEF zspi-ddl-byte TYPE BINARY 8 UNSIGNED SPI-NULL 0.
DEF zspi-ddl-char8.
02 z-c PIC X(8) SPI-NULL " ".
02 z-s REDEFINES z-c.
03 z-i TYPE BINARY 16 OCCURS 4 TIMES.
02 z-b REDEFINES z-c PIC X OCCURS 8 TIMES.
END
DEF zspi-ddl-username TACL username.
02 z-groupname TYPE zspi-ddl-char8.
02 z-username TYPE zspi-ddl-char8.
END
CONSTANT zspi-tdt-int VALUE IS 2.
CONSTANT zspi-tdt-int2 VALUE IS 3.
CONSTANT zspi-tdt-map VALUE IS 8.
CONSTANT zspi-tdt-boolean VALUE IS 10.
CONSTANT zspi-tdt-enum VALUE IS 11.
CONSTANT zspi-tdt-byte VALUE IS 12.
CONSTANT zspi-tnm-command VALUE IS -510.
CONSTANT zspi-tnm-retcode VALUE IS 0.
TOKEN-TYPE zspi-typ-enum VALUE IS zspi-tdt-enum
DEF IS zspi-ddl-enum.
TOKEN-TYPE zspi-typ-map VALUE IS zspi-tdt-map
OCCURS VARYING.
TOKEN-CODE zspi-tkn-command VALUE IS zspi-tnm-command
TOKEN-TYPE IS zspi-typ-enum.
TOKEN-CODE zspi-tkn-retcode VALUE IS zspi-tnm-retcode
TOKEN-TYPE IS zspi-typ-enum.