Data Definition Language (DDL) Reference Manual

Definition Attributes
Data Definition Language (DDL) Reference Manual—529431-004
6-90
89 Enumeration
Example 6-75. Enumeration Clause Output for pTAL or TAL
DDL Type pTAL or TAL Type
DEF status TYPE ENUM BEGIN.
89 no-error.
89 read-error.
89 write-error VALUE 6.
89 status-error.
END.
LITERAL NO^ERROR = 0,
READ^ERROR = 1,
WRITE^ERROR = 6,
STATUS^ERROR = 7;
INT STATUS;
DEF old-status TYPE status
VALUE no-error.
DEF cpu.
2 state TYPE ENUM.
89 stop.
89 pause.
89 running.
END.
INT OLD^STATUS^DEF;
Value is NO^ERROR
LITERAL STOP = 0,
PAUSE = 1,
RUNNING = 2;
STRUCT CPU^DEF (*) FIELDALIGN (SHARED2);
BEGIN
INT STATE;
END;
DEF system-state.
2 cpu0 TYPE cpu.
2 cpu1 TYPE cpu.
END.
STRUCT SYSTEM^STATE^DEF(*) FIELDALIGN
(SHARED2);
BEGIN
STRUCT CPU0;
END.
BEGIN
INT STATE;
END;
STRUCT CPU1;
BEGIN
INT STATE;
END;
END;