@@ -11,6 +11,8 @@ EXEC SQL BEGIN DECLARE SECTION;
11
11
int i = 3;
12
12
int *did = &i;
13
13
int a[10] = {9,8,7,6,5,4,3,2,1,0};
14
+ char text[10] = "klmnopqrst";
15
+ char *t = "uvwxyz1234";
14
16
double f;
15
17
EXEC SQL END DECLARE SECTION;
16
18
FILE *dbgs;
@@ -26,34 +28,36 @@ EXEC SQL END DECLARE SECTION;
26
28
27
29
EXEC SQL BEGIN WORK;
28
30
29
- /*EXEC SQL CREATE TABLE test (f decimal(8,2), i int, a int[10]);*/
30
- EXEC SQL CREATE TABLE test (f float, i int, a int[10]);
31
+ EXEC SQL CREATE TABLE test (f float, i int, a int[10], text char(10));
31
32
32
- EXEC SQL INSERT INTO test(f,i,a) VALUES(404.90,1,'{0,1,2,3,4,5,6,7,8,9}');
33
+ EXEC SQL INSERT INTO test(f,i,a,text ) VALUES(404.90,1,'{0,1,2,3,4,5,6,7,8,9}','abcdefghij ');
33
34
34
- EXEC SQL INSERT INTO test(f,i,a) VALUES(140787.0,2,:a);
35
+ EXEC SQL INSERT INTO test(f,i,a,text ) VALUES(140787.0,2,:a,:text );
35
36
36
- EXEC SQL INSERT INTO test(f,i,a) VALUES(14.07,:did,:a);
37
+ EXEC SQL INSERT INTO test(f,i,a,text ) VALUES(14.07,:did,:a,:t );
37
38
38
39
EXEC SQL COMMIT;
39
40
40
41
EXEC SQL BEGIN WORK;
41
42
42
- EXEC SQL SELECT f
43
- INTO :f
43
+ EXEC SQL SELECT f,text
44
+ INTO :f,:text
44
45
FROM test
45
- WHERE i =:i ;
46
+ WHERE i =1 ;
46
47
47
- printf("Found f=%f\n", f);
48
+ printf("Found f=%f text=%10.10s \n", f, text );
48
49
49
- EXEC SQL SELECT a
50
- INTO :a
50
+ f=14.07;
51
+ EXEC SQL SELECT a,text
52
+ INTO :a,:t
51
53
FROM test
52
54
WHERE f = :f;
53
55
54
56
for (i = 0; i < 10; i++)
55
57
printf("Found a[%d] = %d\n", i, a[i]);
56
58
59
+ printf("Found text=%10.10s\n", t);
60
+
57
61
EXEC SQL DROP TABLE test;
58
62
59
63
EXEC SQL COMMIT;