A sub-program that demonstrates State Memory — each time it is called it remembers its state from the previous call.

Download Fickle.cbl 
       >>SOURCE FORMAT IS 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.