Getting Started with TRANSACT (32247-90007)

Chapter 2 57
Using Character Mode I/O
Command Mode
Figure 2-21. Program with Subcommands
1 system ex19,base=orders;
2
3 $$help:
4 display "List of transactions:";
5 set(command) command;
6
7 $$add:
8 $help:
9 display "types of add maintenance:";
10 set(command) command(add);
11 $customer:
12 set(delimiter) "/";
13 prompt cust-no,checknot=customer;
14 prompt name:
15 street-addr:
16 city-state:
17 zipcode;
18 put customer;
19
20 $parts:
21 set(delimiter) "/";
22 prompt part-number,checknot=parts;
23 prompt description;
24 put parts;
25
26
27 $$update:
28 set(delimiter) "/";
29 list(auto) customer;
30 data cust-no,check=customer;
31 get(current) customer;
32 display;
33 data(set) name:
34 street-addr:
35 city-state:
36 zipcode;
37 update customer;
38
39 $$display:
40 list(auto) customer;
41 data cust-no;
42 set(key) list (cust-no);
43 output customer;