| Data Type (pos. 35) |
Formats |
If DDS pos. 36 & 37
are blank |
If DDS pos. 36 & 37
are not blank |
| PHYSICAL, LOGICAL, PRINTER, AND COMMUNICATIONS FILES |
␢ (Blank)
P
S
B
F
A
H
L
T
Z
E
J
O
G
|
Default
Packed decimal⁵
Zoned decimal/signed numeric⁴
Binary
Floating-Point¹
Single Precision
Double Precision
Character⁴
Hexadecimal data
Date²
Time²
Timestamp²
DBCS-Either data
DBCS-Only data
DBCS-Open data
DBCS-Graphic data
UCS2-Graphic data
|
PIC X(n)³
PIC S9(n) COMP-3
PIC S9
PIC S9(n) COMP-4
PIC 9(5) COMP-4 or COMP-1
PIC 9(10) COMP-4 or COMP-2
PIC X(n)³
PIC X(n)
PIC X(n) or FORMAT DATE
PIC X(n) or FORMAT TIME
PIC X(n) or FORMAT TIMESTAMP
PIC X(n)
PIC X(n)
PIC X(n)
PIC X(2n) or PIC G(n)³
—
PIC N(2n)
|
PIC S9(n-m)V9(m)
PIC S9(n-m)V9(m) COMP-3
PIC S9(n-m)V9(m)
PIC S9(n-m)V9(m) COMP-4
PIC 9(5) COMP-4 or COMP-1
PIC 9(10) COMP-4 or COMP-2
|
| DISPLAY FILES |
␢(Blank)
X
N
Y
I
W
A
D
F
M
L
T
Z
S
E
J
O
G
|
Default
Alphabetic Only
Numeric Shift
Numeric Only
Inhibit Keyboard Entry
Katakana
Alphanumeric Shift
Digits Only
Floating-point¹
single precision
double precision
Numeric-only Character
Date²
Time²
Timestamp²
Signed-Numeric Shift
DBCS-either
DBCS-only
DBCS-open
DBCS-graphic
UCS2-graphic
|
PIC X(n)
PIC X(n)
PIC X(n)
—
PIC X(n)
PIC X(n)
PIC X(n)
PIC X(n)
PIC 9(5) COMP-4 or COMP-1
PIC 9(10) COMP-4 or COMP-2
PIC X(n)
PIC X(n) or FORMAT DATE
PIC X(n)or FORMAT TIME
PIC X(n) or FORMAT TIMESTAMP
—
PIC X(n)
PIC X(n)
PIC X(n)
PIC X(2n) or PIC G(n)
—
PIC N(2n)
|
PIC S9(n-m)V9(m)
—
PIC S9(n-m)V9(m)
PIC S9(n-m)V9(m)
PIC S9(n-m)V9(m)
—
—
PIC S9(n)
PIC 9(5) COMP-4 or COMP-1
PIC 9(10) COMP-4 or COMP-2
—
—
—
—
PIC S9(n-m)V9(m)
—
—
—
—
|
Note: - If the *NOFLOAT value of the CVTOPT parameter is in effect, then floating-point
fields are brought in as FILLER items with USAGE of BINARY. If *FLOAT is specified,
the fields are brought in using their given DDS names with a USAGE of COMP-1
(single-precision floating-point) or USAGE of COMP-2 (double-precision floating-point).
See Floating-Point Fields.
- FILLER items are declared as alphanumeric by default. You can also have
COBOL treat date, time, and timestamp fields as date-time data types by specifying
*DATE, *TIME, or *TIMESTAMP on the CVTOPT parameter of the CRTBNDCBL or CRTCBLMOD
command. See Date, Time, and Timestamp Fields.
- In DDS, if the field has an attribute of VARLEN, the result is two additional
bytes at the beginning of the field.
- If you have a DDS character or zoned data type with the DATFMT keyword, ILE COBOL treats
it as a date field, if the *CVTTODATE value of the CVTOPT parameter in the
CRTBNDCBL or CRTCBLMOD command is specified.
- If you have a DDS packed data type with the DATFMT keyword, ILE COBOL treats
it as a date field, if the *CVTTODATE value of the CVTOPT parameter in the
CRTBNDCBL or CRTCBLMOD command is specified.
- In DDS, if a field with data type G has an attribute
CCSID(n), where n is the CCSID specified in the National CCSID compiler option
or in the NTLCCSID PROCESS option, it is a UCS-2 graphic data type. To
bring in the UCS-2 graphic data type as a COBOL NATIONAL data type, specify
*PICNGRAPHIC on the CVTOPT parameter of the CRTBNDCBL or CRTCBLMOD command.
For more information, see IBM Rational Development Studio for i: ILE COBOL Programmer's Guide.
|