mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-10-01 05:31:15 +02:00
45 lines
723 B
Plaintext
45 lines
723 B
Plaintext
|
exec sql whenever sqlerror sqlprint;
|
||
|
|
||
|
exec sql include sqlca;
|
||
|
|
||
|
int
|
||
|
main ()
|
||
|
{
|
||
|
EXEC SQL BEGIN DECLARE SECTION;
|
||
|
int a = 1;
|
||
|
double f;
|
||
|
EXEC SQL END DECLARE SECTION;
|
||
|
FILE *dbgs;
|
||
|
|
||
|
if ((dbgs = fopen("log", "w")) != NULL)
|
||
|
ECPGdebug(1, dbgs);
|
||
|
|
||
|
EXEC SQL CONNECT TO mm;
|
||
|
|
||
|
EXEC SQL CREATE TABLE test (f decimal(8,2), a int);
|
||
|
|
||
|
EXEC SQL INSERT INTO test(f,a) VALUES(17000.00,1);
|
||
|
|
||
|
EXEC SQL COMMIT;
|
||
|
|
||
|
EXEC SQL SELECT f::float
|
||
|
INTO :f
|
||
|
FROM test
|
||
|
WHERE a = :a;
|
||
|
|
||
|
printf("Found f::float=%f\n", f);
|
||
|
|
||
|
EXEC SQL SELECT f
|
||
|
INTO :f
|
||
|
FROM test
|
||
|
WHERE a = :a;
|
||
|
|
||
|
printf("Found f=%f\n", f);
|
||
|
|
||
|
EXEC SQL DROP TABLE test;
|
||
|
|
||
|
EXEC SQL COMMIT;
|
||
|
|
||
|
EXEC SQL DISCONNECT;
|
||
|
}
|