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

5- 4
2 This line defines the MSG array.
Columns 33-35 contain 1 to specify that there is one message per
record in the array.
Columns 36-39 contain 20 to specify the maximum number of
elements in the array.
Columns 40-42 contain 79 to specify the length of each element
in the array.
3 This line enables the function keys and displays their labels
from the LBL array.
4 This operation sets the value of the index (M) in the MSG array
to 5.
5 This line enters the VPLUS action, SHOMSG, into the output
field, ACTION.
6 This performs exception output for the record associated with
EXCPT Group V$MESG.
7 This line begins the description of the output record used for
displaying VPLUS messages.
8 This line specifies that the fourth field in the output record
is an element (selected by M) from the MSG array.
9 This line is a File Name record. It identifies the disc file
(FLBL1) which contains values for the LBL array. The contents
of FLBL1 are loaded and compiled as part of the program. Figure
5-1 shows the contents of this file.
The MSG array entries follow this line.
Preexecution-Time Tables and Arrays. Preexecution-time tables and arrays
are loaded before a program begins the RPG program cycle. Elements in
these tables and arrays are available before files are read and before
calculations are performed.
Preexecution-time tables and arrays can reside on the same disc device or
on different disc devices. They are loaded in the same order as their
File Extension Specifications are listed.
Table 5-1 is a table of postal rates that is used to calculate item
shipping charges. (Only the first 8 and the last 3 entries are shown.
Since the last entry is 30 pounds, the items are assumed to weigh no more
than 30 pounds.) The postal charges are based on an item's weight, with
fractions of pounds putting the item in the next higher weight category.
Table 5-1. Weights/Postal Charges
---------------------------------------------------------------------------------------------
| | |
| Weight (lbs.) | Postal Charges |
| | |
---------------------------------------------------------------------------------------------
| | |
| 1 | $0.45 |
| | |
---------------------------------------------------------------------------------------------
| | |
| 2 | .50 |
| | |
---------------------------------------------------------------------------------------------
| | |
| 3 | .50 |
| | |
---------------------------------------------------------------------------------------------
| | |
| 4 | .55 |
| | |
---------------------------------------------------------------------------------------------
| | |