Data Definition Language (DDL) Reference Manual

Definition Attributes
Data Definition Language (DDL) Reference Manual—529431-004
6-54
Specifying TYPE data-type
•
pTAL or TAL
For pTAL or TAL, the BINARY 16, 32, and 64 data types are translated to INT,
INT(32), and FIXED data types, respectively. If UNSIGNED is specified, it is
ignored in the TAL data type. Scale is ignored for BINARY 16 and BINARY 32; for
BINARY 64, scale becomes the fpoint value of a FIXED data type.
The value of an item of type BINARY 64 UNSIGNED cannot be in octal form.
ENUM
•
C
ENUM data type is translated to an enumeration type with the level-89 items
included as literals in the C type.
•
COBOL
ENUM is translated to a NATIVE-2 item followed by level-88 items for the level-89
clauses.
•
FORTRAN
ENUM is unsupported, and the DDL compiler generates an INTEGER*2 followed
by comments containing the level-89 items.
•
Pascal (D-series Systems Only)
ENUM is translated to constants followed by a type declaration of an INT16 item.
When a type ENUM item is an elementary item of a group, the DDL compiler
translates the ENUM item to an INT16 item and the level-89 clauses to constants
preceding the group definition.
•
TACL
ENUM is translated to an ENUM with the level 89 items preceding the ENUM as
TACL TEXT items.
Example 6-45. TAL BINARY 64 and BINARY 64 UNSIGNED
DDL Code TAL Code
def def1 type binary 64 unsigned. FIXED DEF1;
def def2.
02 f1 type binary 64
02 f2 type binary 64 unsigned.
end.
STRUCT DEF2^DEF (*) FIELDALIGN
(SHARED2);
BEGIN
FIXED F1;
FIXED F2;
END;
def def3 pic S9(10) comp. FIXED DEF3;
def def4 pic 9(10) comp. FIXED DEF4;
def def5 type binary 64,-18 unsigned. FIXED (-18) DEF5;