Data Definition Language (DDL) Reference Manual

Sample Schemas
Data Definition Language (DDL) Reference Manual—529431-004
B-10
ASSNDDL Statements
ASSNDDL Statements
The DDL statements in Figure B-2 on page B-10 are in the sample DDL file ASSNDDL.
They are the statements needed by the sample subsystem in addition to those
provided by ZSPIDEF.ZSPIDDL.
Figure B-2. Sample DDL File ASSNDDL
? SECTION assn-defs
DEF assn-variable-token.
02 table-size TYPE zspi-ddl-int.
02 data-table TYPE zspi-ddl-int2 OCCURS 100 TIMES.
END
DEF assn-ddl-jobinfo.
02 jnumber TYPE zspi-ddl-int.
02 priority TYPE zspi-ddl-int.
02 location TYPE zspi-ddl-char8 SPI-NULL "X".
02 jobclass-is-present TYPE zspi-ddl-boolean.
02 jobclass TYPE zspi-ddl-int.
02 jobusername TYPE zspi-ddl-username.
END
?SECTION assn-token-info
! Constants to define token numbers:
CONSTANT assn-tnm-my-status VALUE IS 101.
CONSTANT assn-tnm-stat-reply VALUE IS 102.
CONSTANT assn-tnm-jobinfo VALUE IS 3.
! Constants for subsystem-ID:
CONSTANT assn-val-yourco VALUE IS "YOUR-CO ".
CONSTANT assn-ssn-assn VALUE IS 1.
CONSTANT assn-val-version VALUE IS VERSION "D30".
! Constant for buffer length:
CONSTANT assn-val-buflen VALUE IS 600.
! Token-type definitions:
TOKEN-TYPE assn-typ-variable-token VALUE IS zspi-tdt-int2
OCCURS VARYING
DEF IS assn-variable-token.
TOKEN-TYPE assn-typ-status VALUE IS zspi-tdt-enum
DEF IS zspi-ddl-enum.
! Token-code definitions:
TOKEN-CODE assn-tkn-my-status VALUE IS assn-tnm-my-status
TOKEN-TYPE IS assn-typ-status.
TOKEN-CODE assn-tkn-stat-reply VALUE IS assn-tnm-stat-reply
TOKEN-TYPE IS assn-typ-status.