$ SET SOURCEFORMAT"FREE" IDENTIFICATION DIVISION. PROGRAM-ID. Steadfast IS INITIAL. AUTHOR. Michael Coughlan. * This sub-program is demonstrates the use of the * IS INITIAL phrase. Each time the program is called * it is as if it had been called for the very first time. * All data items are initialized to their VALUE clauses. 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.