xxxxxxxxxx
01 TAB.
05 PHRASE OCCURS 10 TIMES INDEXED BY IDX.
10 MOTS PIC X .
88 IS-CONS VALUE "A" "E" "I" "U" "Y" "O".
xxxxxxxxxx
DATA DIVISION.
77 note PIC 99v99.
88 parfait VALUE 20.
//parfait =true il faut que la valeur de note soit de 20.
IF parfait THEN
DISPLAY 'bravo'
DATA DIVISION.
77 note PIC 99v99.
88 passable VALUE 10 THRU 11.99.
88 assez_bien VALUE 12 THRU 13.99.
88 bien VALUE 14 THRU 16.
88 parfait VALUE 20.
si on traduit la ligne 4 en français,
cela signifie "Si la valeur de note va
de 10 à 11,99 passable vaut true, sinon faux".