Define the Record Area

  1. In the working-storage section of the program, beneath the file name and key definitions, paste the following code:
           01 ex-record.
                   03 record-key           pic 9(5). 
                   03 record-data          pic x(95).

    This area is used when reading and writing records to and from the data file. When setting up the FCD later in this tutorial, you set fcd-record-address to the address of ex-record.

  2. Press Ctrl+S to save the changes.
The working-storage section is now complete, next you will create the necessary source code in the procedure division.