HP 3000 Manuals

Getting Started With TRANSACT V

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.
_____________________________________________
|                                           |
|      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;                           |
_____________________________________________

          Figure 7-3.  KSAM access without the dictionary 

MPE/iX 5.0 Documentation