Getting Started with TRANSACT (32247-90007)

112 Chapter7

Using Transact Without a Dictionary

IMAGE

The following program shows the modiﬁcations made to the program listed in Figure 1-17

in order to make it independent of the dictionary.

Figure 7-1. IMAGE Access Without the Dictionary

1 system ex61,base=orders;

2 define(item) order-no x(8):

2.1 cust-no 9(4):

2.2 order-status x(2):

2.21 order-date x(6):

2.3 name x(20):

2.4 street-addr x(20):

2.5 city-state x(20):

2.6 zipcode x(6):

2.61 line-no 9(2):

2.62 part-number x(8):

2.63 quantity i(6);

2.7 list order-no:

2.8 cust-no:

2.9 order-status:

2.91 order-date;

3 move (order-status) = "o";

4 set(match) list (order-status);

5 find(serial) orderhead,list=(order-no:order-date)

6 ,perform=get-orderdata;

6.1 exit;