TLA  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 CBC           1 : 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               1 :     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               1 :         ECPGdebug(1, stderr);
      44                 : 
      45               1 :     strcpy(msg, "connect");
      46               1 :     exec sql connect to REGRESSDB1;
      47               1 : 
      48               1 :     strcpy(msg, "set");
      49               1 :     exec sql set datestyle to iso;
      50               1 : 
      51               1 :     strcpy(msg, "create");
      52               1 :     exec sql create table family(name char(8), born integer, age smallint, married date, children integer);
      53               1 : 
      54               1 :     strcpy(msg, "insert");
      55               1 :     exec sql insert into family(name, married, children) values ('Mum', '19870714', 3);
      56               1 :     exec sql insert into family(name, born, married, children) values ('Dad', '19610721', '19870714', 3);
      57               1 :     exec sql insert into family(name, age) values ('Child 1', 16);
      58               1 :     exec sql insert into family(name, age) values ('Child 2', 14);
      59               1 :     exec sql insert into family(name, age) values ('Child 3', 9);
      60               1 : 
      61               1 :     strcpy(msg, "commit");
      62               1 :     exec sql commit;
      63               1 : 
      64               1 :     strcpy(msg, "open");
      65               1 :     exec sql open cur;
      66               1 : 
      67                 :     exec sql whenever not found do break;
      68                 : 
      69               1 :     p=&personal;
      70               1 :     i=&ind_personal;
      71               1 :     memset(i, 0, sizeof(ind_personal));
      72               6 :     for (loopcount = 0; loopcount < 100; loopcount++) {
      73               6 :         strcpy(msg, "fetch");
      74               6 :         exec sql fetch cur into :p:i, :married:ind_married, :children.integer:ind_children.smallint;
      75               6 :         printf("%8.8s", personal.name.arr);
      76               5 :         if (i->ind_birth.born >= 0)
      77               1 :             printf(", born %ld", personal.birth.born);
      78               5 :         if (i->ind_birth.age >= 0)
      79               3 :             printf(", age = %d", personal.birth.age);
      80               5 :         if (ind_married >= 0)
      81               2 :             printf(", married %s", married);
      82               5 :         if (ind_children.smallint >= 0)
      83               2 :             printf(", children = %d", children.integer);
      84               5 :         putchar('\n');
      85                 : 
      86               5 :         free(married);
      87               5 :         married = NULL;
      88                 :     }
      89                 : 
      90               1 :     strcpy(msg, "close");
      91               1 :     exec sql close cur;
      92               1 : 
      93               1 :     strcpy(msg, "drop");
      94               1 :     exec sql drop table family;
      95               1 : 
      96               1 :     strcpy(msg, "commit");
      97               1 :     exec sql commit;
      98               1 : 
      99               1 :     strcpy(msg, "disconnect");
     100               1 :     exec sql disconnect;
     101               1 : 
     102                 :     /* this just to silence unused-variable warnings: */
     103               1 :     vc1.len = vc2.len = vc3.len = 0;
     104               1 :     i1 = i2 = i3 = 0;
     105               1 :     printf("%d %d %d %d %d %d\n",
     106                 :            vc1.len, vc2.len, vc3.len,
     107                 :            i1, i2, i3);
     108                 : 
     109               1 :     return 0;
     110                 : }