5 EXEC SQL INCLUDE ../regression;
8 EXEC SQL BEGIN DECLARE SECTION;
11 EXEC SQL END DECLARE SECTION;
14 EXEC SQL CONNECT TO REGRESSDB1;
16 EXEC SQL WHENEVER SQLWARNING SQLPRINT;
17 EXEC SQL WHENEVER SQLERROR SQLPRINT;
19 EXEC SQL CREATE TABLE My_Table ( Item1 int, Item2 text );
21 EXEC SQL INSERT INTO My_Table VALUES ( 1, 'text1');
22 EXEC SQL INSERT INTO My_Table VALUES ( 2, 'text2');
23 EXEC SQL INSERT INTO My_Table VALUES ( 3, 'text3');
24 EXEC SQL INSERT INTO My_Table VALUES ( 4, 'text4');
26 EXEC SQL DECLARE C CURSOR FOR SELECT * FROM My_Table;
30 EXEC SQL WHENEVER NOT FOUND DO BREAK;
32 EXEC SQL FETCH 1 IN C INTO :i, :str;
33 printf("%d: %s\n", i, str);
36 EXEC SQL WHENEVER NOT FOUND CONTINUE;
37 EXEC SQL MOVE BACKWARD 2 IN C;
39 EXEC SQL FETCH :count IN C INTO :i, :str;
40 printf("%d: %s\n", i, str);
42 EXEC SQL DECLARE D CURSOR FOR SELECT * FROM My_Table WHERE Item1 = $1;
44 EXEC SQL OPEN D using 1;
46 EXEC SQL WHENEVER NOT FOUND DO BREAK;
48 EXEC SQL FETCH 1 IN D INTO :i, :str;
49 printf("%d: %s\n", i, str);
53 EXEC SQL DROP TABLE My_Table;
55 EXEC SQL DISCONNECT ALL;