Data Definition Language (DDL) Reference Manual

Definition Attributes
Data Definition Language (DDL) Reference Manual—529431-004
6-63
Specifying TYPE data-type
In Example 6-51 on page 6-63, a simple variable of type BIT_1_DEF has a different
size from the field BITS_0 in a variable of the record type BIT_STRUCT_DEF.
Example 6-51. Bit Field Output for Pascal
DDL Type Pascal Type
DEF Bit-1 TYPE BIT 1.
DEF New-Bit-1 TYPE Bit-1.
DEF Bit-10 TYPE BIT 10 UNSIGNED.
TYPE BIT_1_DEF = INT(1);
TYPE NEW_BIT_1_DEF = BIT_1_DEF;
TYPE BIT_10_DEF = UNSIGNED(10);
DEF Bit-Map.
2 Bits-8 TYPE BIT 8.
2 Bits-3 TYPE BIT 3 UNSIGNED.
2 Bits-10 TYPE BIT 10.
End.
TYPE BIT_MAP_DEF = PACKED RECORD
BITS_8 : INT(8);
BITS_3 : UNSIGNED(3);
FILLER_1 : INT(5);
BITS_10 : INT(10);
FILLER_2 : INT(6);
END;
DEF Bit-Struct.
2 Bits-0 TYPE Bit-1.
2 Bits-1-To-10 TYPE Bit-10.
End.
TYPE BIT_STRUCT_DEF = PACKED RECORD
BITS_0 : BIT_1_DEF;
BITS_1_TO_10 : BIT_10_DEF;
FILLER_1 : INT(5);
END;
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.
TYPE BIT_FILLERS_DEF = PACKED RECORD
FIELD_1 : FSTRING(3);
{ the following is implicit }
FILLER_1 : CHAR;
FILLER_2 : INT(4);
BIT_FIELD_1 : INT(5);
{ the following is implicit }
FILLER_3 : INT(7);
FILLER_4 : INT16;
FIELD_2 : INT32;
END;
Example 6-52. Bit Field Output for Pascal (page 1 of 2)
DDL Type Pascal Type
DEF Enum-Spec Begin
TYPE ENUM.
89 Val-1 Value 1.
89 Val-2 Value 3.
89 Val-3 Value 0.
End.
CONST VAL_1 = 1;
CONST VAL_2 = 3;
CONST VAL_3 = 0;
TYPE ENUM_SPEC_DEF = INT16;
DEF Bits-With-Enums.
02 Bit-Field-1 TYPE BIT 8
ENUM Enum-Spec.
02 Bit-Field-2 TYPE BIT 4.
End.
TYPE BITS_WITH_ENUMS_DEF = PACKED RECORD
BIT_FIELD_1 : INT(8);
BIT_FIELD_2 : INT(4);
FILLER_1 : INT(4);
END;