Age Owner TLA Line data Source code
1 : #include "sqltypes.h"
2 : #include <stdlib.h>
3 :
4 : $include ../regression;
5 : $define NUMBER 12;
6 :
7 : static void openit(void);
6094 meskes 8 CBC 2 : static void dosqlprint(void) {
9 2 : printf("doSQLprint: Error: %s\n", sqlca.sqlerrm.sqlerrmc);
10 2 : }
11 :
12 1 : int main(void)
13 : {
1536 tgl 14 1 : $int i = 14, loopcount;
15 : $decimal j, m, n;
16 : $string c[10];
17 :
6094 meskes 18 1 : ECPGdebug(1, stderr);
19 : $whenever sqlerror do dosqlprint();
20 :
21 1 : $connect to REGRESSDB1;
22 1 : if (sqlca.sqlcode != 0) exit(1);
23 :
4993 24 1 : $create table test(i int primary key, j int, c text);
6094 25 1 :
26 : /* this INSERT works */
27 1 : rsetnull(CDECIMALTYPE, (char *)&j);
4993 28 1 : $insert into test (i, j, c) values (7, :j, 'test ');
6094 29 1 : $commit;
30 1 :
31 : /* this INSERT should fail because i is a unique column */
4993 32 1 : $insert into test (i, j, c) values (7, NUMBER, 'a');
6094 33 1 : printf("INSERT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
34 1 : if (sqlca.sqlcode != 0) $rollback;
35 1 :
4993 36 1 : $insert into test (i, j, c) values (:i, 1, 'a ');
6094 37 1 : $commit;
38 1 :
39 : /* this will fail (more than one row in subquery) */
40 1 : $select i from test where j=(select j from test);
6089 41 1 : $rollback;
6094 42 1 :
43 : /* this however should be ok */
6089 44 1 : $select i from test where j=(select j from test order by i limit 1);
6094 45 1 : printf("SELECT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
46 1 : if (sqlca.sqlcode != 0) $rollback;
6094 meskes 47 UBC 0 :
4986 meskes 48 CBC 1 : sqlca.sqlcode = 100;
6094 49 1 : $declare c cursor for select * from test where i <= :i;
4986 50 1 : printf ("%ld\n", sqlca.sqlcode);
6094 51 1 : openit();
52 :
53 1 : deccvint(0, &j);
54 :
1536 tgl 55 3 : for (loopcount = 0; loopcount < 100; loopcount++)
56 : {
4993 meskes 57 3 : $fetch forward c into :i, :j, :c;
6094 58 3 : if (sqlca.sqlcode == 100) break;
59 :
60 2 : if (risnull(CDECIMALTYPE, (char *)&j))
6094 meskes 61 UBC 0 : printf("%d NULL\n", i);
62 : else
63 : {
64 : int a;
65 :
6094 meskes 66 CBC 2 : dectoint(&j, &a);
4993 67 2 : printf("%d %d \"%s\"\n", i, a, c);
68 : }
69 : }
70 :
6094 71 1 : deccvint(7, &j);
72 1 : deccvint(14, &m);
73 1 : decadd(&j, &m, &n);
5717 74 1 : $delete from test where i= :n::decimal;
6094 75 1 : printf("DELETE: %ld\n", sqlca.sqlcode);
76 :
77 1 : $select 1 from test where i=14;
78 1 : printf("Exists: %ld\n", sqlca.sqlcode);
79 :
80 1 : $select 1 from test where i=147;
81 1 : printf("Does not exist: %ld\n", sqlca.sqlcode);
82 :
83 1 : $commit;
84 1 : $drop table test;
85 1 : $commit;
86 1 :
87 1 : $close database;
88 1 :
89 1 : return 0;
90 : }
91 :
92 1 : static void openit(void)
93 : {
94 1 : $open c;
95 2 : }
|
