Fizz Buzz in COBOL

fizzbuzz.cob

IDENTIFICATION DIVISION.
PROGRAM-ID. FIZZ-BUZZ.
DATA DIVISION.
    WORKING-STORAGE SECTION.
        01 X PIC 99.
        01 DIV PIC 99.
        01 REM-3 PIC 9.
        01 REM-5 PIC 9.
PROCEDURE DIVISION.
    MOVE 0 TO X.
    PERFORM UNTIL X > 98
        ADD 1 TO X
        DIVIDE X BY 3 GIVING DIV REMAINDER REM-3
        DIVIDE X BY 5 GIVING DIV REMAINDER REM-5
        IF REM-3 = 0 AND REM-5 = 0 THEN
            DISPLAY "Fizz Buzz"
        ELSE IF REM-3 = 0 THEN
            DISPLAY "Fizz"
        ELSE IF REM-5 = 0 THEN
            DISPLAY "Buzz"
        ELSE
            DISPLAY X
        END-IF
    END-PERFORM.
STOP RUN.