HP RPG/iX Utilities Reference Manual (30318-90006)

8- 91
0019 0 70 "PAGE"
0020 0 H 1 1P
0021 0 OR 0V
0022 0 37 "GRMNT UNITS"
0023 0 58 "CUSTOMER DATE"
0024 0 H 1 1P
0025 0 OR 0V
0026 0 37 "----- -----"
0027 0 58 "---------- -----"
0028 0 D 1 01
0029 0 GARTCD 25
0030 0 UNITSBJ 38
0031 0 CUSTNO 50
0032 0 DATE Y 58
0033 0 T 1 LR
0034 0 TOTAL J 38
Here is the output of the program. You will notice that the sequence under the heading "GRMNT"
(GARMENT) seems to start in descending rather than ascending order. In fact, a 3 was substituted for
each 2 when encountered in the Garment Type code field, and sorting was done according to these values.
3/11/81 SALES HISTORY LISTING PAGE 1
GRMNT UNITS CUSTOMER DATE
----- ----- ---------- -----
3 3,456,789 3111111113 2/81
2 2,345,678 2111111112 2/81
2 2,222,221 2111111112 2/81
4 4,444,444 4111111114 1/81
5 5,555,551 5111111115 2/81
6 6,666,661 6111111116 2/81
7 7,777,771 7111111117 2/81
8 8,888,881 8111111118 2/81
41,357,996