#!/usr/bin/env /friends/bin/cobolscript
000000*
000000* cf. http://qiita.com/saba1024/items/8b54b0348da6bdee5ca9
000000*
000001 IDENTIFICATION                   DIVISION.
000002 PROGRAM-ID.                      HELLO.
000003 AUTHOR.                          koji.
000004 DATA                             DIVISION.
000005 WORKING-STORAGE                  SECTION.
000006 01 CNT PIC 9(3)                  VALUE 0.
000007*01 TXT1 PIC X(11)                VALUE "Hello COBOL".
000008*01 TXT2 PIC N(11)                VALUE "FizzBuzz in COBOL".
000009 01 FIZZ PIC 9(01)                VALUE 0.
000010 01 BUZZ PIC 9(01)                VALUE 0.
000011 PROCEDURE                        DIVISION.
000012*    DISPLAY TXT1
000013*     DISPLAY TXT2
000014     PERFORM 30 TIMES
000015         ADD 1 TO CNT
000016         COMPUTE FIZZ = FUNCTION MOD(CNT 3)
000017         COMPUTE BUZZ = FUNCTION MOD(CNT 5)
000018         IF FIZZ = 0 AND BUZZ = 0 THEN
000019             DISPLAY "FizzBuzz"
000020         ELSE IF FIZZ = 0 THEN
000021             DISPLAY "Fizz"
000022         ELSE IF BUZZ = 0 THEN
000023             DISPLAY "Buzz"
000024         ELSE
000025             DISPLAY CNT
000026         END-IF
000027     END-PERFORM.
000028 STOP RUN.