Mappage COBOL vers Java

Ce tableau décrit le mappage entre Java™ et certaines zones COBOL.

Utilisation de Occurs

Tableau 1. Mappage COBOL
Type de modèle COBOL Options d'utilisation et de compilation COBOL Chaîne Picture Exemple Type Java
Type alphabétique COBOL DISPLAY A PIC A(20). Chaîne
Type alphanumérique COBOL DISPLAY X et combinaison de A, X et 9 PIC X(12). Chaîne
Type numérique COBOL COMP-5 ou BINARY, COMP, COMP-4 avec TRUNC(BIN) Si l'option de compilation trunc(bin) est utilisée, la plage pour un nombre binaire (binary, comp, comp-4) est restreinte par les limites de stockage et non pas par la chaîne picture. Comp-5 est toujours restreint par les limites de stockage. La limite de stockage est déterminée par la taille de la chaîne picture. 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
    Comme plus haut avec décimale (V ou P) PIC S999V9 BINARY. BigDecimal
  DISPLAY, COMP-3, PACKED-DECIMAL ou BINARY, COMP, COMP-4 mais pas 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
    Comme plus haut avec décimale (V ou P)   BigDecimal
  DISPLAY, COMP-3, PACKED-DECIMAL et ARITH(extend) S9(19) à S9(31) 9(19) à 9(31)   BigInteger
  DISPLAY, COMP-3, PACKED-DECIMAL et ARITH(extend) S9(19) à S9(31) 9(19) à 9(31) et décimale (V ou P).   BigDecimal
Type AlphaNumericEdited COBOL DISPLAY A X 9 B 0 /   Chaîne
Type NumericEdited COBOL DISPLAY B P V Z 9 0 / , . + - CR DB * cs   Chaîne
Type DBCS COBOL DBCS G, B ou N avec DISPLAY-1. PIC G(10). Chaîne
Type InternalFloat COBOL COMP-1     float
  COMP-2     double
Type ExternalFloat COBOL   +- 9 . V E 9 PIC +99V9E99. Chaîne
Niveau 88    
  • 05 TXN_Resp_Code PIC X(3)
  • 88 Business_Code valeur "AAA" à "XXX"
  • 88 Business_Error valeur "XYX" à "ZYX"
  • 88 Completed_Code valeur "COM"
L'accesseur pour l'élément principal est la méthode get pour chaque niveau 88.
National COBOL NATIONAL PIC N(8)   Chaîne
    PIC NBN   Chaîne
    PIC $9.9   Chaîne
    PIC +9.9E+99   Chaîne
    PIC 999V9   BigDecimal
    PIC S999V9 SIGN LEADING SEPARATE   BigDecimal
    PIC S999V9 SIGN TRAILING SEPARATE   BigDecimal

Commentaires