SQL Programming Manual for TAL

Examples of Static NonStop SQL Programs
HP NonStop SQL Programming Manual for TAL—527887-001
B-3
Insertion Program
The TAL compiler listing for TALTEST is shown on the following pages.
Page 1 [1] $VOL1.S04.TALTEST 1991-10-15 13:40:20
TAL - T9250C30 - (01NOV91)
Copyright Tandem Computers Incorporated 1976, 1978, 1981-83, 1985, 1987-91
1. 000000 0 0 ?SQL NOWHENEVERLIST
2. 0000000 0 ?SYMBOLS, INSPECT, SAVEABEND, NOMAP, NOCODE, NOGMAP, NOLMAP,
DATAPAGES 64
3. 000000 0 0 ?SEARCH \SYS1.$SYSTEM.SYSTEM.TALLIB
Search file: \SYS1.$SYSTEM.SYSTEM.TALLIB 1991-08-30 11:14:19
4. 000000 0 0
5. 000000 0 0 -- Variables for writing to the terminal:
6. 000000 0 0 INT .home^term[0:11],
7. 000014 0 0 home^term^num,
8. 000014 0 0 .ibuf[0:99];
9. 000160 0 0 STRING .sbuf := @ibuf '<<' 1;
10. 000160 0 0
11. 000160 0 0 -- Pointer to end of the I/O buffer:
12. 000160 0 0 STRING .buf^end;
13. 000160 0 0
14. 000160 0 0 -- SQLCODE for error checking:
15. 000160 0 0 INT sqlcode;
16. 000160 0 0
17. 000160 0 0 -- Program variables:
18. 000160 0 0
19. 000160 0 0 STRUCT .in^data^rec;
20. 000160 0 0 BEGIN
21. 000160 0 1 INT in^partnum;
22. 000160 0 1 STRING in^loc^code[0:17];
23. 000160 0 1 INT(32) in^price;
24. 000160 0 1 STRING in^partdesc[0:17];
25. 000160 0 1 INT(32) in^qty;
26. 000160 0 1 END;
27. 000207 0 0
28. 000207 0 0 -- Host variables:
29. 000207 0 0 EXEC SQL BEGIN DECLARE SECTION;
30. 000207 0 0
31. 000207 0 0 INT supplier^of^parts;
32. 000207 0 0
33. 000207 0 0 EXEC SQL INVOKE =parts AS parts^type;
33. 000207 0 0 EXEC SQL INVOKE =parts AS parts^type;
Source file: [2] $SYSTEM.#3184 1991-10-15 13:40:35
1. 000207 0 0 ! Record Definition for table \SYS1.$VOL1.SALES.PARTS
2. 000207 0 0 ! Definition current at 13:40:35 - 10/15/91
3. 000207 0 0 struct parts^type(*);
4. 000207 0 0 BEGIN
5. 000207 0 1 int partnum /SMALLINT UNSIGNED/;
6. 000207 0 1 string partdesc[0:17];
7. 000207 0 1 int(32) price; ! scale is 2
8. 000207 0 1 int(32) qty^available;
9. 000207 0 1 END;
Source file: [1] $VOL1.S04.TALTEST 1991-10-15 13:35:30
34. 000207 0 0 EXEC SQL INVOKE =supplier AS supplier^type;
34. 000207 0 0 EXEC SQL INVOKE =supplier AS supplier^type;
Source file: [3] $SYSTEM.#3185 1991-10-15 13:40:37
1. 000207 0 0 ! Record Definition for table \SYS1.$VOL1.INVENT.SUPPLIER
2. 000207 0 0 ! Definition current at 13:40:37 - 10/15/91
3. 000207 0 0 struct supplier^type(*);
4. 000207 0 0 BEGIN