Fizzbuz in cobol

fizzbuzz.cob

       PROGRAM-ID. FIZZBUZZ.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           01 BY-3 PIC 9(1).
           01 BY-5 PIC 9(1).
           01 C PIC 9(2).
           01 I PIC 9(3) VALUE 1.
       PROCEDURE DIVISION.
           PERFORM FIZZBUZZ-OF VARYING I FROM 1 BY 1 UNTIL I=100
           STOP RUN.

       FIZZBUZZ-OF.
           DIVIDE I BY 3 GIVING C REMAINDER BY-3
           DIVIDE I BY 5 GIVING C REMAINDER BY-5

           EVALUATE TRUE
               WHEN BY-3 = 0 AND BY-5 = 0 
                   DISPLAY 'FIZZBUZZ'
               WHEN BY-3 = 0
                   DISPLAY 'FIZZ'
               WHEN BY-5 = 0
                       DISPLAY 'BUZZ'
               WHEN OTHER
                       DISPLAY I
           .