Getting Started with TRANSACT (32247-90007)

Chapter 8 149
Special Topics
Test Facility
6.100 0017 end;
7.000 0018
8.000 0018 add-customer:
9.000 0018
10.000 0018 get(form) vcustomer;
11.000 0019 put customer;
12.000 0020 end;
13.000 0021
14.000 0021 update-customer:
15.000 0021
16.000 0021 get(form) vcustno;
16.100 0022 set(key) list (cust-no);
17.000 0023 get customer;
18.000 0025 put(form) vcustomer;
19.000 0026 get(form) vcustomer;
20.000 0027 update customer;
21.000 0028 end;
22.000 0029
23.000 0029 report-customer:
24.000 0029
25.000 0029 get(form) vcustno;
25.100 0030 set(key)list (cust-no);
26.000 0031 get customer;
27.000 0033 put(form) vcustomer,wait=
28.000 0033 ,window=("press f1-f8 to continue");
29.000 0037 set(form) vcustomer,window=(" ");
30.000 0041 end;
CODE FILE STATUS: REPLACED
0 COMPILATION ERRORS
PROCESSOR TIME=00:00:05
ELAPSED TIME=00:00:09
END OF PROGRAM
:file trandump;dev=lp,1
:run transact.pub.sys
TRANSACT/3000 HP32247A.02.02 - (C) Hewlett-Packard Co. 1984
SYSTEM NAME> ex74,,-34,21,28
END OF PROGRAM
:run spook5.pub.sys
SPOOK5 G.01.00 (C) HEWLETT-PACKARD CO., 1983
> s
#FILE #JOB FNAME STATE OWNER
#O3449 #S344 TRANDUMP READY MARV.MILLER
> t3449
> l all 0 1 +-V-P-L-U-S---B-U-F-F-E-R---D-U-M-P----+
2 |
3 | GET(FORM) CODE: 0 FKEY: 2
4 | FORM: ..MAINMENU FILE: ..FORMFILE
5 | 6 +--------------------------------------+
7 1 00021 160:009
8 +-V-P-L-U-S---B-U-F-F-E-R---D-U-M-P----+
9 |
10 | GET(FORM) CODE: 0 FKEY: 0 11 | FORM: ..VCUSTNO . FILE: ..FORMFILE
12 |