Comment Where do I send my resume? (Score 1) 270
I'm all set for the interview!
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. INTERVIEW-PROG.
000030 AUTHOR. ME
000040* DUMBEST TEST IMPLEMENTED IN COBOL
000050
000060 ENVIRONMENT DIVISION.
000070
000080 DATA DIVISION.
000090 WORKING-STORAGE SECTION.
000100 01 FIZZ PIC X(4) VALUE 'Fizz'.
000101 01 BUZZ PIC X(4) VALUE 'Buzz'.
000102 01 N PIC 9(3) VALUE ZERO.
000103 01 X PIC 9(2) VALUE ZERO.
000104 01 Y PIC 9(1) VALUE ZERO.
000105 01 Z PIC 9(1) VALUE ZERO.
000110
000120 PROCEDURE DIVISION.
000130 MAIN-PARAGRAPH.
000140 MOVE ZERO TO N
000150 PERFORM UNTIL N = 100
000160 COMPUTE N = N + 1
000170 DIVIDE N BY 3 GIVING X REMAINDER Y
000180 IF Y = 0 THEN
000190 DISPLAY FIZZ WITH NO ADVANCING
000200 END-IF
000210 DIVIDE N BY 5 GIVING X REMAINDER Z
000220 IF Z = 0 THEN
000230 DISPLAY BUZZ WITH NO ADVANCING
000240 END-IF
000250 IF (Z > 0) AND (Y > 0) THEN
000260 DISPLAY N WITH NO ADVANCING
000270 END-IF
000280 DISPLAY ' '
000290 END-PERFORM
000300 STOP RUN.