HP DDL D40 Reference Manual page 161

Definition Attributes
DDL Type
DEF Enum-Spec Begin
89 Val-1 Value 1.
89 Val-2 Value 3.
89 Val-3 Value 0.
End.
DEF Bits-With-Enums.
02 Bit-Field-1 TYPE BIT 8
02 Bit-Field-2 TYPE BIT 4.
End.
DEF Reused-Bits.
02 Data-Item Type Binary.
02 Bits-Layout-1
03 F-11 TYPE BIT 5.
03 F-12 TYPE BIT 6.
03 F-13 TYPE BIT 4.
02 Bits-Layout-2
03 F-21 TYPE BIT 4.
03 F-22 TYPE BIT 3.
End.
Bit Field Output for Pascal. The following examples show how DDL translates
definitions and descriptions of bit fields into Pascal source code:
DDL Type
DEF Bit-1 TYPE BIT 1.
DEF New-Bit-1 TYPE Bit-1.
DEF Bit-10 TYPE BIT 10 UNSIGNED.
Data Definition Language (DDL) Reference Manual—426798-002
TYPE ENUM.
ENUM Enum-Spec.
Redefines Data-Item.
Redefines Data-Item.
FORTRAN Type
INTEGER*2 ENUMSPEC
C VAL-1 = 1
C VAL-2 = 3
C VAL-3 = 0
RECORD BITSWITHENUMS
FILLER*2
END RECORD
RECORD REUSEDBITS
INTEGER*2 DATAITEM
RECORD BITSLAYOUT1
FILLER*2
END RECORD
EQUIVALENCE (BITSLAYOUT1,DATAITEM)
RECORD BITSLAYOUT2
FILLER*2
END RECORD
EQUIVALENCE (BITSLAYOUT2,DATAITEM)
Pascal Type
TYPE BIT_1_DEF = INT(1);
TYPE NEW_BIT_1_DEF = BIT_1_DEF;
TYPE BIT_10_DEF = UNSIGNED(10);
6- 67
TYPE Clause