diff options
Diffstat (limited to 'src/interfaces/ecpg/src/test/test2.qc')
| -rw-r--r-- | src/interfaces/ecpg/src/test/test2.qc | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/src/interfaces/ecpg/src/test/test2.qc b/src/interfaces/ecpg/src/test/test2.qc index 2652d3418d..e69de29bb2 100644 --- a/src/interfaces/ecpg/src/test/test2.qc +++ b/src/interfaces/ecpg/src/test/test2.qc @@ -1,48 +0,0 @@ -exec sql include sqlca; - -#define SQLCODE sqlca.sqlcode - -void -db_error (char *msg) -{ - sqlca.sqlerrm.sqlerrmc[sqlca.sqlerrm.sqlerrml] = '\0'; - printf ("%s: db error %s\n", msg, sqlca.sqlerrm.sqlerrmc); - exit (1); -} - -int -main () -{ -exec sql begin declare section; -varchar text[8]; -exec sql end declare section; - - exec sql connect 'mm'; - if (SQLCODE) - db_error ("connect"); - - exec sql declare cur cursor for - select text from test; - if (SQLCODE) db_error ("declare"); - - exec sql open cur; - if (SQLCODE) - db_error ("open"); - - while (1) { - exec sql fetch in cur into :text; - if (SQLCODE) - break; - printf ("%8.8s\n", text.arr); - } - - if (SQLCODE < 0) - db_error ("fetch"); - - exec sql close cur; - if (SQLCODE) db_error ("close"); - exec sql commit; - if (SQLCODE) db_error ("commit"); - - return (0); -} |
