Getting Started with TRANSACT (32247-90007)

Chapter 7 115
Using Transact Without a Dictionary
KSAM
KSAM
The following program is a modification of the program listed in Figure 4-3. Changes are
the same as for the preceding two programs.
Figure 7-4. KSAM Access Without the Dictionary
1 system ex63,ksam=kcust(update);
2 set(delimiter) "/";
2.1 define(item) cust-no 9(4):
2.2 name x(20);
3 list cust-no:
3.1 name;
4 level;
5 data cust-no;
6 set(key) list (cust-no);
7 get kcust;
8 display;
9 data name;
10 set(update) list (name);
11 replace kcust;
12 end;