SQL Programming Manual for Pascal

Examples of Static NonStop SQL Programs
HP NonStop SQL Programming Manual for Pascal—528614-001
B-3
Insertion Program
31 0
32 0 {* VAR DECLARATIONS: *}
33 0
34 0 {* VAR declarations for host variables: *}
35 0
36 0 VAR
37 0 SUPPLIER_OF_PARTS : INTEGER := 8;
38 0 PARTS_REC : PARTS_TYPE;
39 0 SUPPLIER_REC : SUPPLIER_TYPE;
40 0 PARTLOC_REC : PARTLOC_TYPE;
41 0
42 0 EXEC SQL END DECLARE SECTION;
43 0
44 0 {* VAR declaration for input data record: *}
45 0
46 0 VAR
47 0 IN_DATA_REC: IN_DATA_TYPE
48 0 := [4120, 'A80', 6000000, 'V8 DISK OPTION', 10];
49 0
50 0
51 0 {* SQLCODE and SQLCA for error checking *}
52 0
53 0 VAR
54 0 SQLCODE : INTEGER;
55 0 EXEC SQL INCLUDE SQLCA;
1 0 TYPE
2 0 SQLCA_TYPE = RECORD
3 1 filler : ARRAY [1..430] OF BYTE;
4 1 END;
5 0
6 0 VAR
7 0 sqlca : SQLCA_TYPE;
56 0
57 0
58 0 {* SQL CURSOR DECLARATIONS: *}
59 0
60 0 {* This cursor selects from the SUPPLIER table by supplier
snumber *}
61 0 {* (SUPPNUM) *}
62 0
63 0 EXEC SQL DECLARE GET_SUPPLIER_CURSOR CURSOR FOR
64 0 SELECT SUPPNUM,
65 0 SUPPNAME,
66 0 STREET,
67 0 CITY,
68 0 STATE,
69 0 POSTCODE
70 0 FROM =SUPPLIER
71 0 WHERE SUPPNUM = :SUPPLIER_OF_PARTS
72 0 REPEATABLE ACCESS;
73 0
74 0 {* DECLARATIONS FOR SQL RETURN CODE HANDLING: *}
75 0 PROCEDURE NOT_FOUND; FORWARD;
76 0 PROCEDURE SQLERROR; FORWARD;
77 0
78 0 EXEC SQL WHENEVER SQLERROR CALL :SQLERROR;
79 0 EXEC SQL WHENEVER SQLWARNING CONTINUE;
80 0 EXEC SQL WHENEVER NOT FOUND CALL :NOT_FOUND;
81 0