       IDENTIFICATION DIVISION.
       PROGRAM-ID. Example.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WS-RES     PIC  9(5).
       01  WS-RES2    PIC  Z9.
       01  WS-MONTH   PIC  A(5).
       01  WS-SUFFIX  PIC  A(2).
       01  WS-TEST    PIC  9(5).
       PROCEDURE DIVISION.
           MOVE 31 TO WS-TEST.
      * ----------------------------------------------------------------
      * Interprétation du résultat.
      * ----------------------------------------------------------------
           PERFORM UNTIL WS-TEST = 34
             
             INITIALIZE WS-SUFFIX
             MOVE WS-TEST TO WS-RES
             
             DISPLAY "Le dimanche de Pâques est le " WITH NO ADVANCING
             
             IF WS-RES > 31 THEN
                 COMPUTE WS-RES = WS-RES - 31
                 MOVE "avril" TO WS-MONTH
                 
                 IF WS-RES = 1 THEN
                     MOVE "er" TO WS-SUFFIX
                 END-IF
             ELSE
                 MOVE "mars" TO WS-MONTH
             END-IF
             
             MOVE WS-RES TO WS-RES2
             DISPLAY
             FUNCTION TRIM(WS-RES2) FUNCTION TRIM(WS-SUFFIX) " "
             FUNCTION TRIM(WS-MONTH) "."
             
             COMPUTE WS-TEST = WS-TEST + 1
           END-PERFORM
      * ----------------------------------------------------------------
           STOP RUN.
