Getting Started with TRANSACT (32247-90007)

114 Chapter7

Using Transact Without a Dictionary

MPE

The following program is a modiﬁcation of the program listed in Figure 4-5. The items are

explicitly deﬁned in lines 1.1 to 1.3, and LIST(AUTO) is replaced with a list of the items.

Figure 7-3. MPE Access Without the Dictionary

1 system ex62,file=batchinv(update);

1.1 define(item) part-number x(8):

1.2 location x(4):

1.3 quantity i(6);

2 list part-number:

2.1 location:

2.2 quantity;

3 level;

4 data part-number:

5 location:

6 quantity;

7 put batchinv;