Data Field Structures

Field names, PICTURE definitions, and numeric usage clauses are derived directly from the internal DDS format field names (or alias names in the case of the DD option) and data type representations. Field names and PICTURE definitions are constructed as follows:    06 field-name PIC  (See Note 1 in following table.)
Note: See Table 1 for the appropriate COBOL definition.
Table 1. Data Field Structures
DDS

COBOL DATA DIVISION
n=total field length (DDS pos. 30-34)
m=number of decimals (DDS pos. 36 & 37)

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:
  1. 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.
  2. 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.
  3. In DDS, if the field has an attribute of VARLEN, the result is two additional bytes at the beginning of the field.
  4. 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.
  5. 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.
  6. 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.