01   sportifs.
02 nrligue    PIC 9(4).
02 categorie PIC X.
                         88 correct VALUE 'A','B','C,'D'.

PERFORM UNTIL correct
     ACCEPT categorie
END-PERFORM.


Ecriver la condition du PERFORM sans utiliser de nom de condition et en utilisant une expression abrégée