Print Numbers 1 to 10
Problem Description
Use a loop to print numbers from 1 to 10.
Expected Output
1 2 3 4 5 6 7 8 9 10
Hints
Use PERFORM VARYING with counter.
Solution
IDENTIFICATION DIVISION.
PROGRAM-ID. NUMBERS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-COUNTER PIC 9(2).
PROCEDURE DIVISION.
PERFORM VARYING WS-COUNTER FROM 1 BY 1
UNTIL WS-COUNTER > 10
DISPLAY WS-COUNTER
END-PERFORM.
STOP RUN.
Explanation:
PERFORM VARYING initializes counter, increments BY value, continues UNTIL condition is true.