$ SET SOURCEFORMAT"FREE"
IDENTIFICATION DIVISION.
PROGRAM-ID. Fickle.
AUTHOR. Michael Coughlan.
* This sub-program is demonstrates State Memory.
* Each time the program is called it remembers its
* state from the previous call. We can get rid of
* State Memory by using the IS INITIAL phrase.


ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 RunningTotal     PIC 9(4) VALUE 150.

LINKAGE SECTION.
01 Param1           PIC 99.

PROCEDURE DIVISION USING Param1.
Begin.
    ADD Param1 TO RunningTotal.
    DISPLAY "The total so far is " RunningTotal

    EXIT PROGRAM.