Forgot these.

diff --git a/src/interfaces/ecpg/test/dyntest2.pgc b/src/interfaces/ecpg/test/dyntest2.pgc
index 396f6a1730f59ae9456fe69a3f52e2266a20ba42..6ace070226539fbb5a5d1a3a169988b745663caa 100644 (file)
--- a/src/interfaces/ecpg/test/dyntest2.pgc
+++ b/src/interfaces/ecpg/test/dyntest2.pgc
@@ -2,7 +2,7 @@
  *
  * Copyright (c) 2000, Christof Petig 
  *
- * $Header: /cvsroot/pgsql/src/interfaces/ecpg/test/Attic/dyntest2.pgc,v 1.3 2001/11/14 11:11:49 meskes Exp $
+ * $Header: /cvsroot/pgsql/src/interfaces/ecpg/test/Attic/dyntest2.pgc,v 1.4 2003/05/23 15:22:38 meskes Exp $
  */
 
 #include 
@@ -72,8 +72,8 @@ exec sql end declare section;
            :PRECISION = precision, :SCALE=scale,
            :NULLABLE=nullable, :NAME=name,
            :INDICATOR=indicator;
-       printf("%2d\t%s (type: %d length: %d precision: %d scale: %d
-       \toctet_length: %d returned_octet_length: %d nullable: %d)\n\t= "
+       printf("%2d\t%s (type: %d length: %d precision: %d scale: %d\n"
+       "\toctet_length: %d returned_octet_length: %d nullable: %d)\n\t= "
                ,INDEX,NAME,TYPE,LENGTH,PRECISION,SCALE
                ,OCTET_LENGTH,RETURNED_OCTET_LENGTH,NULLABLE);
        if (INDICATOR==-1) printf("NULL\n");

diff --git a/src/interfaces/ecpg/test/test1.pgc b/src/interfaces/ecpg/test/test1.pgc
index f787b8fdb658000a04aef4ae819df893bec454e5..05fcda0ca9ecb29b778d80b8a9fec5c71d40d8c9 100644 (file)
--- a/src/interfaces/ecpg/test/test1.pgc
+++ b/src/interfaces/ecpg/test/test1.pgc
@@ -126,7 +126,7 @@ exec sql end declare section;
        amount[i]+=1000;
 
        strcpy(msg, "insert");
-       exec sql at pm insert into "Test" (name, amount, letter) values (:n, :a, :l);
+       exec sql at pm insert into "Test" (name, amount, letter) values (:n, :amount[i], :l);
    }
 
    strcpy(msg, "commit");
@@ -164,9 +164,6 @@ exec sql end declare section;
         for (i=0, j=sqlca.sqlerrd[2]; i
             printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, name[i], i, amount[i],i, letter[i][0]);
 
-        strcpy(msg, "select");
-        exec sql at pm select name, amount, letter into :name_letter from "Test";
-
    strcpy(msg, "commit");
    exec sql commit;
 
@@ -177,6 +174,16 @@ exec sql end declare section;
         for (i=0, j=sqlca.sqlerrd[2]; i
             printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, name_letter[i].name, i, name_letter[i].amount,i, name_letter[i].letter);
 
+   name_letter[4].amount=1407;
+   strcpy(msg, "insert");
+   exec sql insert into "Test" (name, amount, letter) values (:name_letter[4]);
+   
+        strcpy(msg, "select");
+        exec sql select name, amount, letter into :name_letter[2] from "Test" where amount = 1407;
+
+   printf("Database: mm\n");
+        printf("name[2]=%8.8s\tamount[2]=%d\tletter[2]=%c\n", name_letter[2].name, name_letter[2].amount, name_letter[2].letter);
+
    /* Start automatic transactioning for connection main. */
    exec sql set autocommit to on;