Mapeamento de COBOL para Java

Esta tabela descreve o mapeamento entre Java™ e certos campos COBOL.

Uso de Occurs

Tabela 1. Mapeamento de COBOL
Tipo de Modelo COBOL Opções de compilação e uso de COBOL Sequência de imagens Exemplo Tipo Java
COBOL AlphabeticType DISPLAY A PIC A(20). Cadeia
COBOL AlphaNumericType DISPLAY X e combinação de A, X e 9 PIC X(12). Cadeia
COBOL NumericType COMP-5 ou BINARY, COMP, COMP-4 com TRUNC(BIN). Quando a opção de compilação trunc(bin) é usada, o intervalo para um número binário (binary, comp, comp-4) é restrito pelos limites de armazenamento, e não pela sequência de imagens. Comp-5 é sempre restrito pelos limites de armazenamento. O limite de armazenamento é determinado pelo tamanho da sequência de imagens. S9(1) a S9(4) PIC S9 BINARY short
    S9(5) a S9(9) PIC S999999 BINARY. int
    S9(10) a S9(18) PIC S9999999999 BINARY. long
    9(1) a 9(4) PIC 9 BINARY. int
    9(5) a 9(9) PIC 999999 BINARY. long
    9(10) a 9(18) PIC 9999999999 BINARY. BigInteger
    Conforme acima com decimal (V ou P) PIC S999V9 BINARY. BigDecimal
  DISPLAY, COMP-3, PACKED-DECIMAL ou BINARY, COMP, COMP-4 e não TRUNC(BIN) S9(1) a S9(4) 9(1) a 9(4)   short
    S9(5) a S9(9) 9(5) a 9(9)   int
    S9(10) a S9(18) 9(10) a 9(18)   long
    Conforme acima com decimal (V ou P)   BigDecimal
  DISPLAY, COMP-3, PACKED-DECIMAL e ARITH(extend) S9(19) a S9(31) 9(19) a 9(31)   BigInteger
  DISPLAY, COMP-3, PACKED-DECIMAL e ARITH(extend) S9(19) a S9(31) 9(19) a 9(31) e decimal (V ou P).   BigDecimal
Tipo COBOL AlphaNumericEdited DISPLAY A X 9 B 0 /   Cadeia
Tipo COBOL NumericEdited DISPLAY B P V Z 9 0 / , . + - CR DB * cs   Cadeia
Tipo COBOL DBCS DBCS G, B ou N com DISPLAY-1. PIC G(10). Cadeia
Tipo COBOL InternalFloat COMP-1     float
  COMP-2     double
Tipo COBOL ExternalFloat   +- 9 . V E 9 PIC +99V9E99. Cadeia
Nível 88    
  • 05 TXN_Resp_Code PIC X(3)
  • 88 Business_Code valor "AAA" a "XXX"
  • 88 Business_Error valor "XYX" a "ZYX"
  • 88 Completed_Code valor "COM"
O acessador para o elemento principal é o método GET para cada level88.
COBOL National NATIONAL PIC N(8)   Cadeia
    PIC NBN   Cadeia
    PIC $9.9   Cadeia
    PIC +9.9E+99   Cadeia
    PIC 999V9   BigDecimal
    PIC S999V9 SIGN LEADING SEPARATE   BigDecimal
    PIC S999V9 SIGN TRAILING SEPARATE   BigDecimal

Feedback