SQL Programming Manual for TAL

Examples of Static NonStop SQL Programs
HP NonStop SQL Programming Manual for TAL—527887-001
B-4
Insertion Program
Page 2 [3] $SYSTEM.#3185 1991-10-15
13:40:20
5. 000207 0 1 int suppnum /SMALLINT UNSIGNED/;
6. 000207 0 1 string suppname[0:17];
7. 000207 0 1 string street[0:21];
8. 000207 0 1 string city[0:13];
9. 000207 0 1 string state[0:11];
10. 000207 0 1 string postcode[0:9];
11. 000207 0 1 END;
Source file: [1] $VOL1.S04.TALTEST 1991-10-15 13:35:30
35. 000207 0 0 EXEC SQL INVOKE =partloc AS partloc^type;
35. 000207 0 0 EXEC SQL INVOKE =partloc AS partloc^type;
Source file: [4] $SYSTEM.#3186 1991-10-15 13:40:40
1. 000207 0 0 ! Record Definition for table \TSII.$BOOKS1.S04.PARTLOC
2. 000207 0 0 ! Definition current at 13:40:39 - 10/15/91
3. 000207 0 0 struct partloc^type(*);
4. 000207 0 0 BEGIN
5. 000207 0 1 string loc^code[0:2];
6. 000207 0 1 int partnum /SMALLINT UNSIGNED/;
7. 000207 0 1 int(32) qty^on^hand;
8. 000207 0 1 END;
Source file: [1] $VOL1.S04.TALTEST 1991-10-15 13:35:30
36. 000207 0 0
37. 000207 0 0 STRUCT .parts^rec(parts^type);
38. 000225 0 0 STRUCT .supplier^rec(supplier^type);
39. 000274 0 0 STRUCT .partloc^rec(partloc^type);
40. 000301 0 0
41. 000301 0 0 EXEC SQL END DECLARE SECTION;
42. 000301 0 0
44. 000301 0 0 -- Declare SQL cursors.
45. 000301 0 0 -- This cursor selects from the SUPPLIER table by supplier
number
46. 000301 0 0 -- (SUPPNUM)
47. 000301 0 0
48. 000301 0 0 EXEC SQL DECLARE get_supplier_cursor CURSOR FOR
49. 000301 0 0 SELECT SUPPNUM,
50. 000301 0 0 SUPPNAME,
51. 000301 0 0 STREET,
52. 000301 0 0 CITY,
53. 000301 0 0 STATE,
54. 000301 0 0 POSTCODE
55. 000301 0 0 FROM =supplier
56. 000301 0 0 WHERE SUPPNUM = :supplier^of^parts
57. 000301 0 0 REPEATABLE ACCESS;
58. 000301 0 0
59. 000301 0 0 -- Forward declare error handling procedures:
60. 000301 0 0 PROC NOT^FOUND; FORWARD;
61. 000000 0 0 PROC SQLERROR; FORWARD;
62. 000000 0 0 PROC ABORT^TRANSACTION; FORWARD;
63. 000000 0 0
64. 000000 0 0 -- Copy declarations from EXTDECS file for:
65. 000000 0 0 -- MYTERM, INITIALIZER, OPEN, WRITE, DNUMOUT, and ABEND
66. 000000 0 0
67. 000000 0 0 ?NOLIST, SOURCE $SYSTEM.SYSTEM.EXTDECS (
70. 000000 0 0