Getting Started with TRANSACT (32247-90007)

Chapter 7 113
Using Transact Without a Dictionary
IMAGE
Figure 7-2. IMAGE Access Without the Dictionary (Continued)
Lines 2 to 2.63 provide the data item definition normally done centrally in the dictionary.
Lines 2.7 to 2.9, 9.11 to 9.14, and 10.01 to 10.03 replace the LIST(AUTO) construct which
automatically extracts the record definition from the dictionary.
Lines 5,9.2, and 11 are modified to replace the LIST=(@) with an item range list.
8 get-orderdata:
9
9.01 level;
9.1 set(key) list (cust-no);
9.11 list name:
9.12 street-addr:
9.13 city-state:
9.14 zipcode;
9.2 get customer,list=(name:zipcode);
10 set(key) list (order-no);
10.01 list line-no:
10.02 part-number:
10.03 quantity;
11 find(chain) orderline,list=(line-no:quantity)
11.01 ,perform=displayit;
11.1 end(level);
12 return;
13
14 displayit:
15
16 display(table) name:
17 order-no:
18 line-no:
19 part-number:
20 quantity;
21 return;