| 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 |
| b (Blank)
P
S
B
F
A
H
L
T
Z
E
J
O
G
|
Default
Packed decimal5
Zoned decimal/signed numeric4
Binary
Floating-Point1
Single Precision
Double Precision
Character4
Hexadecimal data
Date2
Time2
Timestamp2
DBCS-Either data
DBCS-Only data
DBCS-Open data
DBCS-Graphic data
UCS2-Graphic data
|
PIC X(n)3
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)3
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)3
—
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 |
| b (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-point1
single precision
double precision
Numeric-only Character
Date2
Time2
Timestamp2
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.
|