Typ AlphabeticType języka COBOL |
DISPLAY |
|
PIC A(20). |
String |
Typ AlphaNumericType języka COBOL |
DISPLAY |
X oraz kombinacja A, X i 9 |
PIC X(12). |
String |
Typ NumericType języka COBOL |
COMP-5 lub BINARY, COMP, COMP-4 z opcją TRUNC(BIN); Gdy stosowana jest opcja kompilacji
trunc(bin), wówczas zakres liczb binarnych (binary,
comp, comp-4) jest ograniczony limitem przydzielonej im pamięci, a nie łańcuchem picture.
Typ Comp-5 jest zawsze ograniczony limitem przydzielonej mu pamięci. Limit pamięci zależy od wielkości łańcucha picture. |
od S9(1) do S9(4) |
PIC S9 BINARY |
short |
|
|
od S9(5) do S9(9) |
PIC S999999 BINARY. |
int |
|
|
od S9(10) do S9(18) |
PIC S9999999999 BINARY. |
long |
|
|
od 9(1) do 9(4) |
PIC 9 BINARY. |
int |
|
|
od 9(5) do 9(9) |
PIC 999999 BINARY. |
long |
|
|
od 9(10) do 9(18) |
PIC 9999999999 BINARY. |
BigInteger |
|
|
Jak wyżej, z częścią dziesiętną (V lub P) |
PIC S999V9 BINARY. |
BigDecimal |
|
DISPLAY, COMP-3, PACKED-DECIMAL lub BINARY, COMP, COMP-4
bez TRUNC(BIN) |
od S9(1) do S9(4), od 9(1) do 9(4) |
|
short |
|
|
od S9(5) do S9(9), od 9(5) do 9(9) |
|
int |
|
|
od S9(10) do S9(18), od 9(10) do 9(18) |
|
long |
|
|
Jak wyżej, z częścią dziesiętną (V lub P) |
|
BigDecimal |
|
DISPLAY, COMP-3, PACKED-DECIMAL oraz ARITH(extend) |
od S9(19) do S9(31), od 9(19) do 9(31) |
|
BigInteger |
|
DISPLAY, COMP-3, PACKED-DECIMAL oraz ARITH(extend) |
od S9(19) do S9(31), od 9(19) do 9(31) i z częścią dziesiętną (V lub P) |
|
BigDecimal |
Typ AlphaNumericEdited języka COBOL |
DISPLAY |
A X 9 B 0 / |
|
String |
Typ NumericEdited języka COBOL |
DISPLAY |
B P V Z 9 0 / , . + - CR DB * cs |
|
String |
Typ DBCS języka COBOL |
DBCS |
G, B lub N z klauzulą DISPLAY-1. |
PIC G(10). |
String |
Typ InternalFloat języka COBOL |
COMP-1 |
|
|
float |
|
COMP-2 |
|
|
double |
Typ ExternalFloat języka COBOL |
|
+- 9 . V E 9 |
PIC +99V9E99. |
String |
Poziom 88 |
|
|
- 05 TXN_Resp_Code PIC X(3)
- 88 Business_Code value "AAA" THRU "XXX"
- 88 Business_Error value "XYX" THRU "ZYX"
- 88 Completed_Code value "COM"
|
Dla każdej zmiennej typu level88 dostęp do głównego elementu zapewnia metoda 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 |