Definition Attributes
FORTRAN Output. The following shows how DDL translates definitions and
descriptions of enumeration clauses into FORTRAN source code:
DDL Type
DEF status TYPE ENUM BEGIN.
89 no-error.
89 read-error.
89 write-error VALUE 3.
END.
DEF old-status TYPE status
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.
Data Definition Language (DDL) Reference Manual—426798-002
VALUE no-error.
FORTRAN Type
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
6- 93
89 Enumeration Clause