summaryrefslogtreecommitdiff
path: root/src/interfaces/ecpg/src/test/test2.qc
diff options
context:
space:
mode:
Diffstat (limited to 'src/interfaces/ecpg/src/test/test2.qc')
-rw-r--r--src/interfaces/ecpg/src/test/test2.qc48
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);
-}