Data Definition Language (DDL) Reference Manual

Definition Attributes
Data Definition Language (DDL) Reference Manual—529431-004
6-30
FORTRAN
•
If T is the last character, the DDL compiler adds SIGN TRAILING.
•
If T is the only character in the PICTURE string, the DDL compiler translates the
PICTURE clause to a PIC S9 SIGN IS LEADING clause for COBOL.
•
The symbol T is counted as one digit in a numeric field.
For more information, see Table C-2, Sample DDL/COBOL Data Translation Table, on
page C-3.
FORTRAN
Most alphanumeric and numeric PICTURE clauses are translated to FORTRAN
character strings. The only exceptions are numeric fields described with USAGE IS
COMP; these fields are translated to FORTRAN integers.
The maximum length of an alphanumeric or a numeric field is 255 bytes.
For more information, see Table C-3, Sample DDL/FORTRAN Data Translation Table,
on page C-5.
Pascal (D-series Systems Only)
DDL translates alphanumeric, national, and numeric PICTURE clauses, except
numeric clauses described with USAGE IS COMP, to Pascal FSTRING types. Numeric
PICTURE clauses with USAGE IS COMP translate to Pascal integer types.
For more information, see Table C-4, Sample DDL/Pascal Data Translation Table, on
page C-7.
pTAL and TAL
Alphanumeric, national, and numeric PICTURE clauses are translated to pTAL or TAL
character strings, except for numeric fields described with USAGE IS COMP, which
are translated to pTAL or TAL binary data types.
If a field described with USAGE IS COMPUTATIONAL has a PICTURE declaration of
the form
PIC 9 ... [(length)] [V 9 ... [(length)]]
and the symbol 9 occurs 10 or more times, the item is declared as TYPE BINARY
64 UNSIGNED.
The maximum field length depends on where the field is used:
•
If a numeric, national, or alphanumeric field is not defined in or referenced by a
RECORD statement, the maximum field length is 32,767 bytes.