Age Owner TLA Line data Source code
1 : #include <stdlib.h>
2 : #include <string.h>
3 :
4 : exec sql include ../regression;
5 :
6 : exec sql whenever sqlerror stop;
7 :
8 : exec sql type c is char reference;
9 : typedef char* c;
10 :
11 : exec sql type ind is union { int integer; short smallint; };
12 : typedef union { int integer; short smallint; } ind;
13 :
14 : #define BUFFERSIZ 8
15 : exec sql type str is varchar[BUFFERSIZ];
16 :
17 : exec sql declare cur cursor for
18 : select name, born, age, married, children from family;
19 :
20 : int
6057 meskes 21 CBC 1 : main (void)
22 : {
23 : exec sql struct birthinfo { long born; short age; };
24 : exec sql begin declare section;
25 : struct personal_struct { str name;
26 : struct birthinfo birth;
27 : } personal, *p;
28 : struct personal_indicator { int ind_name;
29 : struct birthinfo ind_birth;
30 : } ind_personal, *i;
31 : ind ind_children;
32 : struct t1 { str name; }; struct t2 { str name; };
33 : static varchar vc1[50], vc2[50], vc3[255];
34 : static int i1, i2, i3;
35 : exec sql end declare section;
36 :
37 1 : exec sql char *married = NULL;
38 : exec sql long ind_married;
39 : exec sql ind children;
40 : int loopcount;
41 : char msg[128];
42 :
43 1 : ECPGdebug(1, stderr);
44 :
45 1 : strcpy(msg, "connect");
46 1 : exec sql connect to REGRESSDB1;
47 1 :
6039 48 1 : strcpy(msg, "set");
49 1 : exec sql set datestyle to iso;
50 1 :
6057 51 1 : strcpy(msg, "create");
52 1 : exec sql create table family(name char(8), born integer, age smallint, married date, children integer);
53 1 :
54 1 : strcpy(msg, "insert");
55 1 : exec sql insert into family(name, married, children) values ('Mum', '19870714', 3);
56 1 : exec sql insert into family(name, born, married, children) values ('Dad', '19610721', '19870714', 3);
57 1 : exec sql insert into family(name, age) values ('Child 1', 16);
58 1 : exec sql insert into family(name, age) values ('Child 2', 14);
59 1 : exec sql insert into family(name, age) values ('Child 3', 9);
60 1 :
61 1 : strcpy(msg, "commit");
62 1 : exec sql commit;
63 1 :
64 1 : strcpy(msg, "open");
65 1 : exec sql open cur;
66 1 :
67 : exec sql whenever not found do break;
68 :
69 1 : p=&personal;
70 1 : i=&ind_personal;
71 1 : memset(i, 0, sizeof(ind_personal));
1536 tgl 72 6 : for (loopcount = 0; loopcount < 100; loopcount++) {
6057 meskes 73 6 : strcpy(msg, "fetch");
74 6 : exec sql fetch cur into :p:i, :married:ind_married, :children.integer:ind_children.smallint;
75 6 : printf("%8.8s", personal.name.arr);
76 5 : if (i->ind_birth.born >= 0)
77 1 : printf(", born %ld", personal.birth.born);
78 5 : if (i->ind_birth.age >= 0)
79 3 : printf(", age = %d", personal.birth.age);
80 5 : if (ind_married >= 0)
81 2 : printf(", married %s", married);
82 5 : if (ind_children.smallint >= 0)
83 2 : printf(", children = %d", children.integer);
84 5 : putchar('\n');
85 :
86 5 : free(married);
87 5 : married = NULL;
88 : }
89 :
90 1 : strcpy(msg, "close");
91 1 : exec sql close cur;
92 1 :
93 1 : strcpy(msg, "drop");
94 1 : exec sql drop table family;
95 1 :
96 1 : strcpy(msg, "commit");
97 1 : exec sql commit;
98 1 :
4520 peter_e 99 1 : strcpy(msg, "disconnect");
6057 meskes 100 1 : exec sql disconnect;
101 1 :
102 : /* this just to silence unused-variable warnings: */
212 tgl 103 1 : vc1.len = vc2.len = vc3.len = 0;
104 1 : i1 = i2 = i3 = 0;
105 1 : printf("%d %d %d %d %d %d\n",
106 : vc1.len, vc2.len, vc3.len,
107 : i1, i2, i3);
108 :
2061 peter_e 109 1 : return 0;
110 : }
|
