Champ Numérique (PIC 9)
01 WS-NUM-INTERNE PIC 9(9) VALUE 0.
Observation : La clause PIC 9 stocke des nombres entiers pour les calculs.
Regardez ce qui se passe si on tente d'y insérer une lettre. PIC 9(9) signifie : un champ numérique entier non signé de exactement 9 chiffres (de 000000000 à 999999999).
123456789