IDENTIFICATION DIVISION.
       PROGRAM-ID. FIZZBUZZ.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 I        PIC 9(3) VALUE 1.
       77 DIV3     PIC 9(3).
       77 DIV5     PIC 9(3).
       77 DIV15    PIC 9(3).
       77 REM3     PIC 9(3).
       77 REM5     PIC 9(3).
       77 REM15    PIC 9(3).
 
       PROCEDURE DIVISION.
           PERFORM VARYING I FROM 1 BY 1 UNTIL I > 100
               COMPUTE DIV3 = FUNCTION INTEGER-OF-DATE(FUNCTION CURRENT-DATE) / 3
               COMPUTE DIV5 = FUNCTION INTEGER-OF-DATE(FUNCTION CURRENT-DATE) / 5
               COMPUTE DIV15 = FUNCTION INTEGER-OF-DATE(FUNCTION CURRENT-DATE) / 15
 
               COMPUTE REM3 = I - (I / 3) * 3
               COMPUTE REM5 = I - (I / 5) * 5
               COMPUTE REM15 = I - (I / 15) * 15
 
               IF REM15 = 0 THEN
                   DISPLAY "FizzBuzz"
               ELSE IF REM3 = 0 THEN
                   DISPLAY "Fizz"
               ELSE IF REM5 = 0 THEN
                   DISPLAY "Buzz"
               ELSE
                   DISPLAY I
               END-IF
           END-PERFORM
           STOP RUN.
 

ICAgICAgIElERU5USUZJQ0FUSU9OIERJVklTSU9OLgogICAgICAgUFJPR1JBTS1JRC4gRklaWkJVWlouCgogICAgICAgREFUQSBESVZJU0lPTi4KICAgICAgIFdPUktJTkctU1RPUkFHRSBTRUNUSU9OLgogICAgICAgNzcgSSAgICAgICAgUElDIDkoMykgVkFMVUUgMS4KICAgICAgIDc3IERJVjMgICAgIFBJQyA5KDMpLgogICAgICAgNzcgRElWNSAgICAgUElDIDkoMykuCiAgICAgICA3NyBESVYxNSAgICBQSUMgOSgzKS4KICAgICAgIDc3IFJFTTMgICAgIFBJQyA5KDMpLgogICAgICAgNzcgUkVNNSAgICAgUElDIDkoMykuCiAgICAgICA3NyBSRU0xNSAgICBQSUMgOSgzKS4KCiAgICAgICBQUk9DRURVUkUgRElWSVNJT04uCiAgICAgICAgICAgUEVSRk9STSBWQVJZSU5HIEkgRlJPTSAxIEJZIDEgVU5USUwgSSA+IDEwMAogICAgICAgICAgICAgICBDT01QVVRFIERJVjMgPSBGVU5DVElPTiBJTlRFR0VSLU9GLURBVEUoRlVOQ1RJT04gQ1VSUkVOVC1EQVRFKSAvIDMKICAgICAgICAgICAgICAgQ09NUFVURSBESVY1ID0gRlVOQ1RJT04gSU5URUdFUi1PRi1EQVRFKEZVTkNUSU9OIENVUlJFTlQtREFURSkgLyA1CiAgICAgICAgICAgICAgIENPTVBVVEUgRElWMTUgPSBGVU5DVElPTiBJTlRFR0VSLU9GLURBVEUoRlVOQ1RJT04gQ1VSUkVOVC1EQVRFKSAvIDE1CgogICAgICAgICAgICAgICBDT01QVVRFIFJFTTMgPSBJIC0gKEkgLyAzKSAqIDMKICAgICAgICAgICAgICAgQ09NUFVURSBSRU01ID0gSSAtIChJIC8gNSkgKiA1CiAgICAgICAgICAgICAgIENPTVBVVEUgUkVNMTUgPSBJIC0gKEkgLyAxNSkgKiAxNQoKICAgICAgICAgICAgICAgSUYgUkVNMTUgPSAwIFRIRU4KICAgICAgICAgICAgICAgICAgIERJU1BMQVkgIkZpenpCdXp6IgogICAgICAgICAgICAgICBFTFNFIElGIFJFTTMgPSAwIFRIRU4KICAgICAgICAgICAgICAgICAgIERJU1BMQVkgIkZpenoiCiAgICAgICAgICAgICAgIEVMU0UgSUYgUkVNNSA9IDAgVEhFTgogICAgICAgICAgICAgICAgICAgRElTUExBWSAiQnV6eiIKICAgICAgICAgICAgICAgRUxTRQogICAgICAgICAgICAgICAgICAgRElTUExBWSBJCiAgICAgICAgICAgICAgIEVORC1JRgogICAgICAgICAgIEVORC1QRVJGT1JNCiAgICAgICAgICAgU1RPUCBSVU4uCg==