Associazione da COBOL a Java

Questa tabella riporta le associazioni tra campi Java e determinati campi COBOL.

Utilizzo di Occurs

Tabella 1. Associazione COBOL
Tipo di modello COBOL Opzioni di compilazione e utilizzo COBOL Stringa picture Esempio Tipo Java
COBOL AlphabeticType DISPLAY A PIC A(20). String
COBOL AlphaNumericType DISPLAY X e combinazione di A, X e 9 PIC X(12). String
COBOL NumericType COMP-5 o BINARY, COMP, COMP-4 con TRUNC(BIN) Quando viene utilizzata l'opzione di compilazione trunc(bin), l'intervallo per un numero binario (binario, comp, comp-4) viene vincolato dai limiti di memorizzazione, non dalla stringa picture. Comp-5 è sempre vincolato dai limiti di memorizzazione. Il limite di memorizzazione è determinato dalla dimensione della stringa picture. da S9(1) a S9(4) PIC S9 BINARY short
    da S9(5) a S9(9) PIC S999999 BINARY. int
    da S9(10) a S9(18) PIC S9999999999 BINARY. long
    da 9(1) a 9(4) PIC 9 BINARY. int
    da 9(5) a 9(9) PIC 999999 BINARY. long
    da 9(10) a 9(18) PIC 9999999999 BINARY. BigInteger
    Come sopra con decimale (V o P) PIC S999V9 BINARY. BigDecimal
  DISPLAY, COMP-3, PACKED-DECIMAL o BINARY, COMP, COMP-4 e non TRUNC(BIN) da S9(1) a S9(4) da 9(1) a 9(4)   short
    da S9(5) a S9(9) da 9(5) a 9(9)   int
    da S9(10) a S9(18) da 9(10) a 9(18)   long
    Come sopra con decimale (V o P)   BigDecimal
  DISPLAY, COMP-3, PACKED-DECIMAL e ARITH(extend) da S9(19) a S9(31) da 9(19) a 9(31)   BigInteger
  DISPLAY, COMP-3, PACKED-DECIMAL e ARITH(extend) da S9(19) a S9(31) da 9(19) a 9(31) e decimale (V o P).   BigDecimal
Tipo COBOL AlphaNumericEdited DISPLAY A X 9 B 0 /   String
Tipo COBOL NumericEdited DISPLAY B P V Z 9 0 / , . + - CR DB * cs   String
Tipo COBOL DBCS DBCS G, B o N con DISPLAY-1. PIC G(10). String
Fipo COBOL InternalFloat COMP-1     float
  COMP-2     double
Tipo COBOL ExternalFloat   +- 9 . V E 9 PIC +99V9E99. String
Livello 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"
Programma di accesso per l'elemento principale è il metodo get per ciascun level88.
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

Feedback