Line data    Source code

       1              : #include <stdlib.h>
       2              : #include <string.h>
       3              : 
       4              : exec sql include ../regression;
       5              : 
       6              : exec sql whenever sqlerror stop;
       7              : 
       8              : exec sql type c is char reference;
       9              : typedef char* c;
      10              : 
      11              : exec sql type ind is union { int integer; short smallint; };
      12              : typedef union { int integer; short smallint; } ind;
      13              : 
      14              : #define BUFFERSIZ 8
      15              : exec sql type str is varchar[BUFFERSIZ];
      16              : 
      17              : exec sql declare cur cursor for
      18              :        select name, born, age, married, children from family;
      19              : 
      20              : int
      21            2 : main (void)
      22              : {
      23              :     exec sql struct birthinfo { long born; short age; };
      24              : exec sql begin declare section;
      25              :     struct personal_struct  {   str name;
      26              :                     struct birthinfo birth;
      27              :                 } personal, *p;
      28              :     struct personal_indicator { int ind_name;
      29              :                     struct birthinfo ind_birth;
      30              :                   } ind_personal, *i;
      31              :     ind ind_children;
      32              :     struct t1 { str name; }; struct t2 { str name; };
      33              :     static varchar vc1[50], vc2[50], vc3[255];
      34              :     static int i1, i2, i3;
      35              : exec sql end declare section;
      36              : 
      37            2 :     exec sql char *married = NULL;
      38              :     exec sql long ind_married;
      39              :     exec sql ind children;
      40              :     int loopcount;
      41              :     char msg[128];
      42              : 
      43            2 :         ECPGdebug(1, stderr);
      44              : 
      45            2 :     strcpy(msg, "connect");
      46            2 :     exec sql connect to REGRESSDB1;
      47            2 : 
      48            2 :     strcpy(msg, "set");
      49            2 :     exec sql set datestyle to iso;
      50            2 : 
      51            2 :     strcpy(msg, "create");
      52            2 :     exec sql create table family(name char(8), born integer, age smallint, married date, children integer);
      53            2 : 
      54            2 :     strcpy(msg, "insert");
      55            2 :     exec sql insert into family(name, married, children) values ('Mum', '19870714', 3);
      56            2 :     exec sql insert into family(name, born, married, children) values ('Dad', '19610721', '19870714', 3);
      57            2 :     exec sql insert into family(name, age) values ('Child 1', 16);
      58            2 :     exec sql insert into family(name, age) values ('Child 2', 14);
      59            2 :     exec sql insert into family(name, age) values ('Child 3', 9);
      60            2 : 
      61            2 :     strcpy(msg, "commit");
      62            2 :     exec sql commit;
      63            2 : 
      64            2 :     strcpy(msg, "open");
      65            2 :     exec sql open cur;
      66            2 : 
      67              :     exec sql whenever not found do break;
      68              : 
      69            2 :     p=&personal;
      70            2 :     i=&ind_personal;
      71            2 :     memset(i, 0, sizeof(ind_personal));
      72           12 :     for (loopcount = 0; loopcount < 100; loopcount++) {
      73           12 :         strcpy(msg, "fetch");
      74           12 :         exec sql fetch cur into :p:i, :married:ind_married, :children.integer:ind_children.smallint;
      75           12 :         printf("%8.8s", personal.name.arr);
      76           10 :         if (i->ind_birth.born >= 0)
      77            2 :             printf(", born %ld", personal.birth.born);
      78           10 :         if (i->ind_birth.age >= 0)
      79            6 :             printf(", age = %d", personal.birth.age);
      80           10 :         if (ind_married >= 0)
      81            4 :             printf(", married %s", married);
      82           10 :         if (ind_children.smallint >= 0)
      83            4 :             printf(", children = %d", children.integer);
      84           10 :         putchar('\n');
      85              : 
      86           10 :         free(married);
      87           10 :         married = NULL;
      88              :     }
      89              : 
      90            2 :     strcpy(msg, "close");
      91            2 :     exec sql close cur;
      92            2 : 
      93            2 :     strcpy(msg, "drop");
      94            2 :     exec sql drop table family;
      95            2 : 
      96            2 :     strcpy(msg, "commit");
      97            2 :     exec sql commit;
      98            2 : 
      99            2 :     strcpy(msg, "disconnect");
     100            2 :     exec sql disconnect;
     101            2 : 
     102              :     /* this just to silence unused-variable warnings: */
     103            2 :     vc1.len = vc2.len = vc3.len = 0;
     104            2 :     i1 = i2 = i3 = 0;
     105            2 :     printf("%d %d %d %d %d %d\n",
     106              :            vc1.len, vc2.len, vc3.len,
     107              :            i1, i2, i3);
     108              : 
     109            2 :     return 0;
     110              : }