Odwzorowania z języka COBOL na język Java

W tej tabeli przedstawiono odwzorowania między polami języka Java a określonymi polami języka COBOL.

Korzystanie z klauzuli Occurs

Tabela 1. Odwzorowania w języku COBOL
Typ modelu w języku COBOL Składnia w języku COBOL i opcje kompilacji Łańcuch Picture Przykład Typ Java
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

Opinie