Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commita2c834f

Browse files
author
Michael Meskes
committed
*** empty log message ***
1 parent7ff8a18 commita2c834f

File tree

1 file changed

+44
-0
lines changed

1 file changed

+44
-0
lines changed

‎src/interfaces/ecpg/test/test4.pgc

Lines changed: 44 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,44 @@
1+
exec sql whenever sqlerror sqlprint;
2+
3+
exec sql include sqlca;
4+
5+
int
6+
main ()
7+
{
8+
EXEC SQL BEGIN DECLARE SECTION;
9+
int a = 1;
10+
double f;
11+
EXEC SQL END DECLARE SECTION;
12+
FILE *dbgs;
13+
14+
if ((dbgs = fopen("log", "w")) != NULL)
15+
ECPGdebug(1, dbgs);
16+
17+
EXEC SQL CONNECT TO mm;
18+
19+
EXEC SQL CREATE TABLE test (f decimal(8,2), a int);
20+
21+
EXEC SQL INSERT INTO test(f,a) VALUES(17000.00,1);
22+
23+
EXEC SQL COMMIT;
24+
25+
EXEC SQL SELECT f::float
26+
INTO :f
27+
FROM test
28+
WHERE a = :a;
29+
30+
printf("Found f::float=%f\n", f);
31+
32+
EXEC SQL SELECT f
33+
INTO :f
34+
FROM test
35+
WHERE a = :a;
36+
37+
printf("Found f=%f\n", f);
38+
39+
EXEC SQL DROP TABLE test;
40+
41+
EXEC SQL COMMIT;
42+
43+
EXEC SQL DISCONNECT;
44+
}

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp