Age Owner Branch data TLA Line data Source code
1 : : #include <stdio.h>
2 : : #include <stdlib.h>
3 : : #include "sqltypes.h"
4 : :
5 : : EXEC SQL include sqlca.h;
6 : : EXEC SQL include ../regression;
7 : : EXEC SQL DEFINE MAXDBLEN 30;
8 : :
9 : : /* Check SQLCODE, and produce a "standard error" if it's wrong! */
2357 peter_e@gmx.net 10 :CBC 8 : static void sql_check(const char *fn, const char *caller, int ignore)
11 : : {
12 : : char errorstring[255];
13 : :
6465 meskes@postgresql.or 14 [ + + ]: 8 : if (SQLCODE == ignore)
15 : 7 : return;
16 : : else
17 : : {
18 [ - + ]: 1 : if (SQLCODE != 0)
19 : : {
20 : :
6465 meskes@postgresql.or 21 :UBC 0 : sprintf(errorstring, "**SQL error %ld doing '%s' in function '%s'. [%s]",
22 : 0 : SQLCODE, caller, fn, sqlca.sqlerrm.sqlerrmc);
23 : 0 : fprintf(stderr, "%s", errorstring);
24 : 0 : printf("%s\n", errorstring);
25 : :
26 : : /* attempt a ROLLBACK */
27 : 0 : EXEC SQL rollback;
28 : :
29 [ # # ]: 0 : if (SQLCODE == 0)
30 : : {
31 : 0 : sprintf(errorstring, "Rollback successful.\n");
32 : : } else {
33 : 0 : sprintf(errorstring, "Rollback failed with code %ld.\n", SQLCODE);
34 : : }
35 : :
36 : 0 : fprintf(stderr, "%s", errorstring);
37 : 0 : printf("%s\n", errorstring);
38 : :
39 : 0 : exit(1);
40 : : }
41 : : }
42 : : }
43 : :
6465 meskes@postgresql.or 44 :CBC 1 : int main(void)
45 : : {
46 : : EXEC SQL BEGIN DECLARE SECTION;
47 : : int c;
48 : : timestamp d;
49 : : timestamp e;
50 : : timestamp maxd;
51 : : char dbname[30];
52 : : EXEC SQL END DECLARE SECTION;
53 : :
54 : : interval *intvl;
55 : :
56 : : EXEC SQL whenever sqlerror stop;
57 : :
58 : 1 : ECPGdebug(1, stderr);
59 : :
2828 tgl@sss.pgh.pa.us 60 : 1 : strcpy(dbname, "ecpg1_regression");
6465 meskes@postgresql.or 61 : 1 : EXEC SQL connect to :dbname;
62 [ - + ]: 1 : sql_check("main", "connect", 0);
63 : :
6448 64 : 1 : EXEC SQL SET DateStyle TO 'DMY';
65 [ - + ]: 1 :
6465 66 : 1 : EXEC SQL create table history (customerid integer, timestamp timestamp without time zone, action_taken char(5), narrative varchar(100));
67 [ - + ]: 1 : sql_check("main", "create", 0);
68 : :
4891 peter_e@gmx.net 69 : 1 : EXEC SQL insert into history
70 : : (customerid, timestamp, action_taken, narrative)
71 : : values(1, '2003-05-07 13:28:34 CEST', 'test', 'test');
6465 meskes@postgresql.or 72 [ - + ]: 1 : sql_check("main", "insert", 0);
73 : :
74 : 1 : EXEC SQL select max(timestamp)
75 : : into :maxd
76 : : from history;
77 [ - + ]: 1 : sql_check("main", "select max", 100);
78 : :
79 : 1 : EXEC SQL select customerid, timestamp
80 : : into :c, :d
81 : : from history
82 : : where timestamp = :maxd
83 : : limit 1;
84 [ - + ]: 1 : sql_check("main", "select", 0);
85 : :
86 : 1 : printf("Read in customer %d\n", c);
87 : :
6464 88 : 1 : intvl = PGTYPESinterval_from_asc("1 day 2 hours 24 minutes 65 seconds", NULL);
89 : 1 : PGTYPEStimestamp_add_interval(&d, intvl, &e);
6088 90 : 1 : free(intvl);
6465 91 : 1 : c++;
92 : :
93 : 1 : EXEC SQL insert into history
94 : : (customerid, timestamp, action_taken, narrative)
95 : : values(:c, :e, 'test', 'test');
96 [ - + ]: 1 : sql_check("main", "update", 0);
97 : :
98 : 1 : EXEC SQL commit;
99 [ - + ]: 1 :
100 : 1 : EXEC SQL drop table history;
101 [ - + ]: 1 : sql_check("main", "drop", 0);
102 : :
103 : 1 : EXEC SQL commit;
104 [ - + ]: 1 :
105 : 1 : EXEC SQL disconnect;
106 [ - + ]: 1 : sql_check("main", "disconnect", 0);
107 : :
108 : 1 : printf("All OK!\n");
109 : :
110 : 1 : exit(0);
111 : :
112 : : /*
113 : : Table "public.history"
114 : : Column | Type | Nullable
115 : : --------------+-----------------------------+----------
116 : : customerid | integer | not null
117 : : timestamp | timestamp without time zone | not null
118 : : action_taken | character(5) | not null
119 : : narrative | character varying(100) |
120 : : */
121 : :
122 : : }
|
