*
* Copyright (c) 2000, Christof Petig <christof.petig@wtal.de>
*
- * $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 <stdio.h>
: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");
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");
for (i=0, j=sqlca.sqlerrd[2]; i<j; 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;
for (i=0, j=sqlca.sqlerrd[2]; i<j; 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;