2
exec sql include sqlca;
4
exec sql include ../regression;
8
exec sql begin declare section;
14
exec sql end declare section;
19
exec sql whenever sqlerror do sqlprint();
20
exec sql connect to REGRESSDB1;
22
exec sql set datestyle to postgres;
24
exec sql create table test (a int, b text);
25
exec sql insert into test values (1, 'one');
26
exec sql insert into test values (2, 'two');
27
exec sql insert into test values (NULL, 'three');
28
exec sql insert into test values (4, 'four');
29
exec sql insert into test values (5, NULL);
30
exec sql insert into test values (NULL, NULL);
32
exec sql allocate descriptor mydesc;
33
exec sql select * into descriptor mydesc from test;
34
exec sql get descriptor mydesc :colnum=COUNT;
35
exec sql get descriptor mydesc value 1 :ip1=DATA, :ipointer1=INDICATOR;
36
exec sql get descriptor mydesc value 2 :cp2=DATA, :ipointer2=INDICATOR;
38
printf("Result (%d columns):\n", colnum);
39
for (i=0;i < sqlca.sqlerrd[2];++i)
41
if (ipointer1[i]) printf("NULL, ");
42
else printf("%d, ",ip1[i]);
44
if (ipointer2[i]) printf("NULL, ");
45
else printf("'%s', ",cp2[i]);
51
exec sql deallocate descriptor mydesc;