Just one more test case.

Michael Meskes · Michael Meskes · commit 8e9b215fdf71 · 2002-03-20T21:00:24.000Z
diff --git a/src/interfaces/ecpg/test/test1.pgc b/src/interfaces/ecpg/test/test1.pgc
@@ -45,6 +45,7 @@ exec sql begin declare section;
         } ind[AMOUNT];
 	char command[128];
 	char *connection="pm";
+	int how_many;
 exec sql end declare section;
 	exec sql var name is string(AMOUNT);
 	char msg[128];
@@ -107,7 +108,7 @@ exec sql end declare section;
         exec sql select * into :name, :amount, :letter from "Test";
 
 	printf("Database: mm\n");
-        for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
+        for (i=0, how_many=j=sqlca.sqlerrd[2]; i<j; i++)
 	{
 	    exec sql begin declare section;
 	    char n[8], l = letter[i][0];
@@ -125,6 +126,31 @@ exec sql end declare section;
 	strcpy(msg, "commit");
 	exec sql at pm commit;
 
+	sprintf (command, "select * from \"Test\"");
+
+	exec sql prepare F from :command;
+	exec sql declare CUR cursor for F;
+
+	strcpy(msg, "open");
+	exec sql open CUR;
+
+	strcpy(msg, "fetch");
+        exec sql fetch :how_many in CUR into :name, :amount, :letter;
+
+	printf("Database: mm\n");
+        for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
+	{
+	    exec sql begin declare section;
+	    char n[8], l = letter[i][0];
+	    int a = amount[i];
+	    exec sql end declare section;
+
+	    strncpy(n, name[i], 8);
+            printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
+	}
+
+	exec sql close CUR;
+	
         strcpy(msg, "select");
         exec sql at :connection select name, amount, letter into :name, :amount, :letter from "Test";
 
