000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    calc2.
000003 AUTHOR.        Michael Bieber.
000004
000005 ENVIRONMENT DIVISION.
000006* Since there are no files, this division is empty.
000007
000008 DATA DIVISION.
000009
000010 WORKING-STORAGE SECTION.
000011 01  start-user     PIC 99V99.
000012 01  end-user       PIC 99V99.
000013 01  increment-constant PIC 99V99 VALUE 4.5.
000014 01  result-calc        PIC 99V99.
000015
000017 PROCEDURE DIVISION.
000018
000019 100-main.
000020     PERFORM 200-initialize.
000021     PERFORM 300-calculation
000022          UNTIL result-calc >= end-user.
000023     DISPLAY "The result is: ".
000025     DISPLAY result-calc.
000026     END RUN.  
000027
000028 200-initialize. 
000029     DISPLAY "Enter starting value: ".
000030     ACCEPT starting-user.
000031     DISPLAY "Enter ending value: ".
000032     ACCEPT end-user.
000033     MOVE starting-user TO result-calc.
000034
000035 300-addition.
000036     ADD increment-constant TO result-calc.
000037     DISPLAY "The current value is: ".
000038     DISPLAY result-calc.