Data Definition Language (DDL) Reference Manual

Definition Attributes
Data Definition Language (DDL) Reference Manual—529431-004
6-61
Specifying TYPE data-type
Bit Maps for FORTRAN
The output for a bit map declared as a field definition is INTEGER*2. the DDL compiler
ignores bit-length.
The output for a bit map declared in a group structure is FILLER. Both named bit fields
and filler bit fields have the same number of words as the bit map.
For a list of FORTRAN data types that the TYPE data-type clause generates, see
Table C-3, Sample DDL/FORTRAN Data Translation Table, on page C-5.
Example 6-50. Bit Field Output for FORTRAN (page1of2)
DDL Type FORTRAN Type
DEF Bit-1 TYPE BIT 1
DEF New-Bit-1 TYPE Bit-1.
DEF Bit-10 TYPE BIT 10 UNSIGNED.
INTEGER*2 BIT1
INTEGER*2 NEWBIT1
INTEGER*2 BIT10
DEF Bit-Map.
2 Bits-8 TYPE BIT 8.
2 Bits-3 TYPE BIT 3 UNSIGNED.
2 Bits-10 TYPE BIT 10.
End.
RECORD BITMAP
FILLER*2
FILLER*2
END RECORD
DEF Bit-Struct.
2 Bits-0 TYPE Bit-1.
2 Bits-1-To-10 TYPE Bit-10.
End.
RECORD BITSTRUCT
FILLER*2
END RECORD
DEF Bit-Fillers.
2 Field-1 Type Character 3.
2 Filler Type Bit 4.
2 Bit-Field-1 Type Bit 5.
2 Filler Type Binary 16.
2 Field-2 Type Binary 32.
End.
RECORD BITFILLERS
CHARACTER*3 FIELD1
C the following filler is implicit
FILLER*1
C the following filler is bit maps
FILLER*2
C the following filler is explicit
FILLER*2
INTEGER*4 FIELD2
END RECORD
DEF Enum-Spec Begin
TYPE ENUM.
89 Val-1 Value 1.
89 Val-2 Value 3.
89 Val-3 Value 0.
End.
INTEGER*2 ENUMSPEC
C VAL-1 = 1
C VAL-2 = 3
C VAL-3 = 0
DEF Bits-With-Enums.
02 Bit-Field-1 TYPE BIT 8
ENUM Enum-Spec.
02 Bit-Field-2 TYPE BIT 4.
End.
RECORD BITSWITHENUMS
FILLER*2
END RECORD