The following table describes data type compatibility for DB2.
| SQL Type
| COBOL Type
| Description
|
| CHAR(n)
| 01 name PIC X(n).
| Fixed-length character string
|
| DATE
| 01 name PIC X(10).
| 10-byte character string
|
| DECIMAL(p,n)
| 01 name PIC S9(m) V9(n) COMP-3.
| Packed decimal
(where m = p - n) |
| DOUBLE
| 01 name USAGE IS DOUBLE.
| Double-precision floating point
|
| INTEGER
| 01 name PIC S9(9) COMP-5.
| 32-bit signed integer
|
| LONG VARCHAR(n)
| 01 name.
03 name-length PIC S9(4) COMP-5. 03 name-name PIC X(n). | Variable length character string
|
| REAL
| 01 name PIC S9(4) USAGE IS COMP-1.
| Single-precision floating point
|
| TIME
| 01 name PIC X(8).
| 8-byte character string
|
| TIMESTAMP
| 01 name PIC X(26).
| 26-byte character string
|
| VARCHAR(n)
| 01 name.
03 name-length PIC S9(4) COMP-5. 03 name-name PIC X(n). | Variable-length character string (n <= 4000) |