Data Definition Language (DDL) Reference Manual

Definition Attributes
Data Definition Language (DDL) Reference Manual—529431-004
6-88
89 Enumeration
Example 6-72. Enumeration Clause Output for FORTRAN
DDL Type FORTRAN Type
DEF status TYPE ENUM BEGIN.
89 no-error.
89 read-error.
89 write-error VALUE 3.
END.
DEF old-status TYPE status
VALUE no-error.
DEF cpu.
2 state TYPE ENUM.
89 stop.
89 pause.
89 running.
END.
DEF system-state.
2 cpu0 TYPE cpu.
2 cpu1 TYPE cpu.
END.
INTEGER*2 STATUS
C NO-ERROR = 0
C READ-ERROR = 1
C WRITE-ERROR = 3
INTEGER*2 OLDSTATUS
C Initial value is NO-ERROR
RECORD CPU
INTEGER*2 STATE
C STOP = 0
C PAUSE = 1
C RUNNING = 2
END RECORD
RECORD SYSTEMSTATE
RECORD CPU0
INTEGER*2 STATE
END RECORD
RECORD CPU1
INTEGER*2 STATE
END RECORD
END RECORD
Example 6-73. Enumeration Clause Output for Pascal (D-series Systems Only)
DDL Type Pascal Type
DEF status TYPE ENUM BEGIN.
89 no-error.
89 read-error VALUE 3.
89 write-error.
END.
DEF old-status TYPE status
VALUE no-error.
DEF cpu.
2 state TYPE ENUM.
89 stop.
89 pause.
89 running VALUE 4.
END.
DEF system-state.
2 cpu0 TYPE cpu.
2 cpu1 TYPE cpu.
END.
CONST NO_ERROR = 0;
CONST READ_ERROR = 3;
CONST WRITE_ERROR = 4;
TYPE STATUS_DEF = INT16;
TYPE OLD_STATUS_DEF = STATUS_DEF;
CONST STOP = 0;
CONST PAUSE = 1;
CONST RUNNING = 4;
TYPE CPU_DEF = RECORD
STATE : INT16;
END;
TYPE SYSTEM_STATE_DEF = RECORD
CPU0 : CPU_DEF;
CPU1 : CPU_DEF;
END;