COBOL 字母类型 |
DISPLAY |
A |
PIC A(20)。 |
String |
COBOL 字母数字类型 |
DISPLAY |
X 以及 A、X 和 9 的组合 |
PIC X(12)。 |
String |
COBOL 数字类型 |
COMP-5 或者带有 TRUNC(BIN) 的 BINARY、COMP 和 COMP-4。当使用了编译选项
trunc(bin) 时,二进制数(BINARY、COMP 和 COMP-4)的范围将受到存储器限制而不是图片字符串的约束。而 Comp-5 始终会受到存储器限制的约束。存储器限制是由图片字符串大小来确定的。 |
S9(1) 到 S9(4) |
PIC S9 BINARY |
short |
|
|
S9(5) 到 S9(9) |
PIC S999999 BINARY。 |
int |
|
|
S9(10) 到 S9(18) |
PIC S9999999999 BINARY。 |
long |
|
|
9(1) 到 9(4) |
PIC 9 BINARY。 |
int |
|
|
9(5) 到 9(9) |
PIC 999999 BINARY。 |
long |
|
|
9(10) 到 9(18) |
PIC 9999999999 BINARY。 |
BigInteger |
|
|
同上,并且带有小数(V 或 P) |
PIC S999V9 BINARY。 |
BigDecimal |
|
DISPLAY、COMP-3、PACKED-DECIMAL 或者 BINARY、COMP、COMP-4 而不是 TRUNC(BIN) |
S9(1) 到 S9(4) 以及 9(1) 到 9(4) |
|
short |
|
|
S9(5) 到 S9(9) 以及 9(5) 到 9(9) |
|
int |
|
|
S9(10) 到 S9(18) 以及 9(10) 到 9(18) |
|
long |
|
|
同上,并且带有小数(V 或 P) |
|
BigDecimal |
|
DISPLAY、COMP-3、PACKED-DECIMAL 以及 ARITH(extend) |
S9(19) 到 S9(31) 以及 9(19) 到 9(31) |
|
BigInteger |
|
DISPLAY、COMP-3、PACKED-DECIMAL 以及 ARITH(extend) |
S9(19) 到 S9(31)、9(19) 到 9(31) 以及小数(V 或 P)。 |
|
BigDecimal |
COBOL AlphaNumericEdited 类型 |
DISPLAY |
A X 9 B 0 / |
|
String |
COBOL NumericEdited 类型 |
DISPLAY |
B P V Z 9 0 / , . + - CR DB * cs + - CR DB * cs |
|
String |
COBOL DBCS 类型 |
DBCS |
带有 DISPLAY-1 的 G、B 或 N。 |
PIC G(10)。 |
String |
COBOL InternalFloat 类型 |
COMP-1 |
|
|
float |
|
COMP-2 |
|
|
double |
COBOL ExternalFloat 类型 |
|
+- 9 . V E 9 |
PIC +99V9E99。 |
String |
级别 88 |
|
|
- 05 TXN_Resp_Code PIC X(3)
- 88 Business_Code 值 "AAA" THRU "XXX"
- 88 Business_Error 值 "XYX" THRU "ZYX"
- 88 Completed_Code 值 "COM"
|
main 元素的访问器是每个 level88 的 get 方法。 |
COBOL National |
NATIONAL |
PIC N(8) |
|
String |
|
|
PIC NBN |
|
String |
|
|
PIC $9.9 |
|
String |
|
|
PIC +9.9E+99 |
|
String |
|
|
PIC 999V9 |
|
BigDecimal |
|
|
PIC S999V9 SIGN LEADING SEPARATE |
|
BigDecimal |
|
|
PIC S999V9 SIGN TRAILING SEPARATE |
|
BigDecimal |