HP RPG/XL Programmer's Guide (30318-90001)

4-: 7
Figure 4-3. Using READ and EXCPT to Update the M-SOURCE Data Set (Continued)
Comments
1 This Header Specification enables buffer-checking for all files.
Column 28 contains X to enable full buffer-checking for the
files.
2 This line defines the terminal file, STDIN.
Columns 20-23 contain 30 to provide for the longest input field.
3 This line defines the terminal file, STDLIST.
Columns 20-23 contain 70 to provide enough space for the longest
display line. RPG automatically pads with blanks to the end of
the line.
4 This line defines the STDIN field, ANSWER.
5 This line reads data from the terminal. The user enters either
a source code or an E to end the program.
This READ operation does not turn off indicators set by the
previous READ. Indicator 01 must be turned off by a Calculation
Specification to prevent last record output when E in column 1
turns on indicator 09.
6 This line performs exception output when a record is found in
M-SOURCE.
7 This line reads data from the terminal and saves it in the
field, ANSWR.
8 This line performs exception output to the terminal. The
message contained in the CRT array, ----- RECORD UPDATED -----,
is displayed.
9 This line begins the output record description for records that
are added to M-SOURCE. New records are written when indicators
01 and 60 are turned on.
10 This line begins the output record description for records that