Branch data     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                 :             : }