Getting Started with TRANSACT (32247-90007)

128 Chapter8
Special Topics
Arrays
Figure 8-10. One-Dimensional Record Array (Multiple Items)
1 system ex67,base=orders;
2 define(item) order-table 10 x(10):
3 ot-line 9(2)=order-table:
4 ot-part x(8)=order-table(3):
5 index i(4):
6 end-of-table i(4);
7 list order-no:
8 line-no:
9 part-number:
10 index:
11 end-of-table:
12 order-table;
13 data order-no;
14 set(key)list (order-no);
15 let (index) = 1;
16 find(chain) orderline,list=(line-no:part-number)
17 ,perform=100-each-line;
18 let (end-of-table) = (index);
19 let (index) = 1;
20 while (index) < (end-of-table)
21 do
22 display(table) ot-line((index)):
23 ot-part((index));
24 let (index) = (index) + 1;
25 doend;
26 exit;
27
28 100-each-line:
29
30 move (ot-part((index))) = (part-number);
31 move (ot-line((index))) = (line-no);
32 let (index) = (index) + 1;
33 return;