Assnddl Statements - HP DDL D40 Reference Manual

Sample Schemas
TOKEN-CODE zspi-tkn-command
TOKEN-CODE zspi-tkn-retcode

ASSNDDL Statements

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