*

* 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;