支持的 COBOL 数据类型
COMP-1
一种 4 字节的单精度浮点 Real 数据类型，用于指定内部浮点项。 符号包含在最左侧字节的第一位中，指数包含在该字节的剩余七位中。 其余三个字节保留 mantissa。
COMP-2
指定内部浮点项的 8 字节双精度浮点 Real 数据类型。 符号包含在最左侧字节的第一位中，指数包含在第一个字节的剩余七位中。 其余七个字节保存 mantissa。
COMP-3 Packed Decimal
一种打包的十进制数据类型，指定以打包的十进制格式存储的内部十进制项。 在打包的十进制格式中，字段中的每个字节都表示两个数字数字，但最右边的字节除外。 最右侧的字节包含一位数字和符号。 换句话说，每个字符位置都有两位数字，但尾随字符位置由低序数字和符号占用。 该项可以包含 0 到 9 之间的任意数字以及一个符号，表示不超过 18 位十进制数字的值。 例如，十进制值 +123 以两个字节表示为 0001 0010 0011 1100，采用打包的十进制格式。 有关详细信息，请参阅 Zoned Decimal 或 Packed Decimal 数据类型。
DISPLAY Zoned Decimal
一种未打包的十进制数据类型，指定以分区十进制格式存储的内部十进制项。 分区十进制格式与未打包的十进制格式同义，这是一种表示数字的格式，其中每个数字都包含在位 4 到 7 中，符号包含在最小有效字节的 0 到 3 位中。 除最小有效字节以外的所有字节中的 0 到 3 个字节包含 1s (十六进制 F) 。 例如，十进制值 +123 以三个字节表示为 1111 0001 1111 0010 1100 0011（区域十进制格式）。 有关详细信息，请参阅 Zoned Decimal 或 Packed Decimal 数据类型。
日期和时间
通过使用两个 PIC 9 (7) COMP-3 Packed Decimal 值的组项来指定日期和时间。
仅 TIME
使用 PIC 9 (7) COMP-3 Packed Decimal 值指定时间。
仅 DATE
使用 PIC 9 (7) COMP-3 Packed Decimal 值指定日期。
PIC X
指定扩展二进制编码的十进制交换代码 (EBCDIC) 字符串中的单个字符。 EBCDIC 是大型机和 IBM i 计算机上的字符数据的本机表示形式。 Unicode 是基于 Windows 的平台上字符数据的本机表示形式。
PIC X 无翻译
指定 EBCDIC 字符串中的单个 COBOL 字符，该字符串的处理方式就像是二进制数据一样。 换句话说，不存在从 EBCDIC 到 Unicode 或从 Unicode 到 EBCDIC 的转换。
PIC G
指定双字节 EBCDIC 字符串。
PIC S9 (4) COMP (整数 16 位)
指定长度为 16 位或 2 字节的整数。
PIC S9 (9) COMP (整数 32 位)
指定长度为 32 位或 4 个字节的整数。