@@ -11,6 +11,8 @@ EXEC SQL BEGIN DECLARE SECTION;
1111int i = 3;
1212int *did = &i;
1313int a[10] = {9,8,7,6,5,4,3,2,1,0};
14+ char text[10] = "klmnopqrst";
15+ char *t = "uvwxyz1234";
1416double f;
1517EXEC SQL END DECLARE SECTION;
1618FILE *dbgs;
@@ -26,34 +28,36 @@ EXEC SQL END DECLARE SECTION;
2628
2729 EXEC SQL BEGIN WORK;
2830
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));
3132
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 ');
3334
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 );
3536
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 );
3738
3839EXEC SQL COMMIT;
3940
4041EXEC SQL BEGIN WORK;
4142
42- EXEC SQL SELECT f
43- INTO :f
43+ EXEC SQL SELECT f,text
44+ INTO :f,:text
4445 FROM test
45- WHERE i =:i ;
46+ WHERE i =1 ;
4647
47- printf("Found f=%f\n", f);
48+ printf("Found f=%f text=%10.10s \n", f, text );
4849
49- EXEC SQL SELECT a
50- INTO :a
50+ f=14.07;
51+ EXEC SQL SELECT a,text
52+ INTO :a,:t
5153 FROM test
5254 WHERE f = :f;
5355
5456for (i = 0; i < 10; i++)
5557printf("Found a[%d] = %d\n", i, a[i]);
5658
59+ printf("Found text=%10.10s\n", t);
60+
5761EXEC SQL DROP TABLE test;
5862
5963EXEC SQL COMMIT;