Age Owner 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! */
1986 peter_e 10 CBC 8 : static void sql_check(const char *fn, const char *caller, int ignore)
11 : {
12 : char errorstring[255];
13 :
6094 meskes 14 8 : if (SQLCODE == ignore)
15 7 : return;
16 : else
17 : {
18 1 : if (SQLCODE != 0)
19 : {
20 :
6094 meskes 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 :
6094 meskes 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 :
2457 tgl 60 1 : strcpy(dbname, "ecpg1_regression");
6094 meskes 61 1 : EXEC SQL connect to :dbname;
62 1 : sql_check("main", "connect", 0);
63 :
6077 64 1 : EXEC SQL SET DateStyle TO 'DMY';
65 1 :
6094 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 :
4520 peter_e 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');
6094 meskes 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 :
6093 88 1 : intvl = PGTYPESinterval_from_asc("1 day 2 hours 24 minutes 65 seconds", NULL);
89 1 : PGTYPEStimestamp_add_interval(&d, intvl, &e);
5717 90 1 : free(intvl);
6094 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 : }
|
