Data commit

Task/FizzBuzz/COBOL/fizzbuzz-1.cobol

@@ -0,0 +1,36 @@
+      * FIZZBUZZ.COB
+      * cobc -x -g FIZZBUZZ.COB
+      *
+       IDENTIFICATION        DIVISION.
+       PROGRAM-ID.           fizzbuzz.
+       DATA                  DIVISION.
+       WORKING-STORAGE       SECTION.
+       01 CNT      PIC 9(03) VALUE 1.
+       01 REM      PIC 9(03) VALUE 0.
+       01 QUOTIENT PIC 9(03) VALUE 0.
+       PROCEDURE             DIVISION.
+      *
+       PERFORM UNTIL CNT > 100
+         DIVIDE 15 INTO CNT GIVING QUOTIENT REMAINDER REM
+         IF REM = 0
+           THEN
+             DISPLAY "FizzBuzz " WITH NO ADVANCING
+           ELSE
+             DIVIDE 3 INTO CNT GIVING QUOTIENT REMAINDER REM
+             IF REM = 0
+               THEN
+                 DISPLAY "Fizz " WITH NO ADVANCING
+               ELSE
+                 DIVIDE 5 INTO CNT GIVING QUOTIENT REMAINDER REM
+                 IF REM = 0
+                   THEN
+                     DISPLAY "Buzz " WITH NO ADVANCING
+                   ELSE
+                     DISPLAY CNT " " WITH NO ADVANCING
+                 END-IF
+             END-IF
+         END-IF
+         ADD 1 TO CNT
+       END-PERFORM
+       DISPLAY ""
+       STOP RUN.

Task/FizzBuzz/COBOL/fizzbuzz-2.cobol

@@ -0,0 +1,16 @@
+Identification division.
+Program-id. fizz-buzz.
+
+Data division.
+Working-storage section.
+
+01 num pic 999.
+
+Procedure division.
+    Perform varying num from 1 by 1 until num > 100
+        if function mod (num, 15) = 0 then display "fizzbuzz"
+        else if function mod (num, 3) = 0 then display "fizz"
+        else if function mod (num, 5) = 0 then display "buzz"
+        else display num
+    end-perform.
+    Stop run.

Task/FizzBuzz/COBOL/fizzbuzz-3.cobol

@@ -0,0 +1,26 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID.  FIZZBUZZ.
+       ENVIRONMENT DIVISION.
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  X PIC 999.
+       01  Y PIC 999.
+       01  REM3 PIC 999.
+       01  REM5 PIC 999.
+       PROCEDURE DIVISION.
+           PERFORM VARYING X FROM 1 BY 1 UNTIL X > 100
+               DIVIDE X BY 3 GIVING Y REMAINDER REM3
+               DIVIDE X BY 5 GIVING Y REMAINDER REM5
+            EVALUATE REM3 ALSO REM5
+              WHEN ZERO ALSO ZERO
+                DISPLAY "FizzBuzz"
+              WHEN ZERO ALSO ANY
+                DISPLAY "Fizz"
+              WHEN ANY ALSO ZERO
+                DISPLAY "Buzz"
+              WHEN OTHER
+                DISPLAY X
+            END-EVALUATE
+           END-PERFORM
+           STOP RUN
+           .

Task/FizzBuzz/COBOL/fizzbuzz-4.cobol

@@ -0,0 +1,29 @@
+         >>SOURCE FORMAT FREE
+identification division.
+program-id. fizzbuzz.
+data division.
+working-storage section.
+01  i pic 999.
+01  fizz pic 999 value 3.
+01  buzz pic 999 value 5.
+procedure division.
+start-fizzbuzz.
+    perform varying i from 1 by 1 until i > 100
+        evaluate i also i
+        when fizz also buzz
+            display 'fizzbuzz'
+            add 3 to fizz
+            add 5 to buzz
+        when fizz also any
+            display 'fizz'
+            add 3 to fizz
+        when buzz also any
+            display 'buzz'
+            add 5 to buzz
+        when other
+            display i
+        end-evaluate
+    end-perform
+    stop run
+    .
+end program fizzbuzz.