diff options
author | Marc G. Fournier <scrappy@hub.org> | 1998-02-24 15:52:13 +0000 |
---|---|---|
committer | Marc G. Fournier <scrappy@hub.org> | 1998-02-24 15:52:13 +0000 |
commit | 80e12829cf79337fb71a19244a171daace974d7a (patch) | |
tree | 8c723779b20baff520c080127be3e3be4a14ca1a /src/interfaces/ecpg/test/test2.pgc | |
parent | 0227a4e1141ae83ac3ae145fa283ede13e86e23e (diff) |
+ Sat Feb 21 19:10:55 CET 1998
+
+ - use char[] as string not as array of bytes that is integers
+
+ Sun Feb 22 16:37:36 CET 1998
+
+ - use long for all size variables
+ - added execute immediate statement
+
+ Sun Feb 22 20:41:32 CET 1998
+
+ - use varcharsize = 1 for all simple types, 0 means pointer, > 1
+ means array if type is char resp. unsigned char
+
+ Thu Feb 24 12:26:12 CET 1998
+
+ - allow 'go to' in whenever statement as well as 'goto'
+ - new argument 'stop' for whenever statement
From: Michael Meskes <meskes@topsystem.de>
Diffstat (limited to 'src/interfaces/ecpg/test/test2.pgc')
-rw-r--r-- | src/interfaces/ecpg/test/test2.pgc | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/interfaces/ecpg/test/test2.pgc b/src/interfaces/ecpg/test/test2.pgc index a6f90979438..ed11be6c2a2 100644 --- a/src/interfaces/ecpg/test/test2.pgc +++ b/src/interfaces/ecpg/test/test2.pgc @@ -34,6 +34,16 @@ exec sql end declare section; strcpy(msg, "connect"); exec sql connect 'mm'; + strcpy(msg, "create"); + exec sql create table meskes(name char8, born int4, age int2); + + strcpy(msg, "insert"); + exec sql insert into meskes(name, born, age) values ('Petra', 19661202, 31); + exec sql insert into meskes(name, born, age) values ('Michael', 19660117, 32); + exec sql insert into meskes(name, born, age) values ('Carsten', 19910103, 7); + exec sql insert into meskes(name, born, age) values ('Marc', 19930907, 4); + exec sql insert into meskes(name, born, age) values ('Chris', 19970923, 0); + strcpy(msg, "declare"); exec sql declare cur cursor for select name, born, age from meskes; @@ -41,14 +51,23 @@ exec sql end declare section; exec sql open cur; while (1) { + /* make sure we leave this loop */ + exec sql whenever not found break; + strcpy(msg, "fetch"); exec sql fetch in cur into :personal; printf ("%8.8s was born %d (age = %d)\n", personal.name.arr, personal.birth.born, personal.birth.age); } + /* back to normal behaviour */ + exec sql whenever not found sqlprint; + strcpy(msg, "close"); exec sql close cur; + strcpy(msg, "drop"); + exec sql drop table meskes; + strcpy(msg, "commit"); exec sql commit; |