Question

How to write a countdown loop in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. COUNTDOWNLOOP.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01  COUNTER        PIC 9(03) VALUE 10.
 
PROCEDURE DIVISION.
    PERFORM UNTIL COUNTER = 0
        DISPLAY "COUNTDOWN: " COUNTER
        SUBTRACT 1 FROM COUNTER
    END-PERFORM
 
    DISPLAY "LIFTOFF!".
    STOP RUN.
 
 
 
*> run:
*>
*> COUNTDOWN: 010
*> COUNTDOWN: 009
*> COUNTDOWN: 008
*> COUNTDOWN: 007
*> COUNTDOWN: 006
*> COUNTDOWN: 005
*> COUNTDOWN: 004
*> COUNTDOWN: 003
*> COUNTDOWN: 002
*> COUNTDOWN: 001
*> LIFTOFF!
*>

 

70+ SQL courses for beginners and professionals

Answer 2

IDENTIFICATION DIVISION.
PROGRAM-ID. COUNTDOWNLOOP.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01  COUNTER        PIC 9(03) VALUE 10.
 
PROCEDURE DIVISION.
    PERFORM VARYING COUNTER FROM 10 BY -1 UNTIL COUNTER < 1
        DISPLAY "COUNTDOWN: " COUNTER
    END-PERFORM
 
    DISPLAY "LIFTOFF!".
    STOP RUN.
 
 
 
*> run:
*>
*> COUNTDOWN: 010
*> COUNTDOWN: 009
*> COUNTDOWN: 008
*> COUNTDOWN: 007
*> COUNTDOWN: 006
*> COUNTDOWN: 005
*> COUNTDOWN: 004
*> COUNTDOWN: 003
*> COUNTDOWN: 002
*> COUNTDOWN: 001
*> LIFTOFF!
*>

 

70+ SQL courses for beginners and professionals