Branch data     Line data    Source code

       1                 :             : #include <stdlib.h>
       2                 :             : #include <string.h>
       3                 :             : #include <stdlib.h>
       4                 :             : #include <stdio.h>
       5                 :             : 
       6                 :             : exec sql include ../regression;
       7                 :             : 
       8                 :             : exec sql whenever sqlerror sqlprint;
       9                 :             : 
      10                 :             : int
      11                 :           2 : main(void)
      12                 :             : {
      13                 :             : exec sql begin declare section;
      14                 :             :     int amount[8];
      15                 :           2 :     int increment=100;
      16                 :             :     char name[8][8];
      17                 :             :     char letter[8][1];
      18                 :             :     char command[128];
      19                 :             : exec sql end declare section;
      20                 :             :     int i,j;
      21                 :             : 
      22                 :           2 :     ECPGdebug(1, stderr);
      23                 :             : 
      24                 :           2 :     exec sql connect to REGRESSDB1 as main;
      25         [ -  + ]:           2 : 
      26                 :           2 :     exec sql create table test (name char(8), amount int, letter char(1));
      27         [ -  + ]:           2 :     exec sql commit;
      28         [ -  + ]:           2 : 
      29                 :           2 :     sprintf(command, "insert into test (name, amount, letter) values ('db: ''r1''', 1, 'f')");
      30                 :           2 :     exec sql execute immediate :command;
      31         [ -  + ]:           2 : 
      32                 :           2 :     sprintf(command, "insert into test (name, amount, letter) values ('db: ''r1''', 2, 't')");
      33                 :           2 :     exec sql execute immediate :command;
      34         [ -  + ]:           2 : 
      35                 :           2 :     sprintf(command, "insert into test (name, amount, letter) select name, amount+10, letter from test");
      36                 :           2 :     exec sql execute immediate :command;
      37         [ -  + ]:           2 : 
      38                 :           2 :     printf("Inserted %ld tuples via execute immediate\n", sqlca.sqlerrd[2]);
      39                 :             : 
      40                 :           2 :     sprintf(command, "insert into test (name, amount, letter) select name, amount+$1, letter from test");
      41                 :           2 :     exec sql prepare I from :command;
      42         [ -  + ]:           2 :     exec sql execute I using :increment;
      43         [ -  + ]:           2 : 
      44                 :           2 :     printf("Inserted %ld tuples via prepared execute\n", sqlca.sqlerrd[2]);
      45                 :             : 
      46                 :           2 :     exec sql commit;
      47         [ -  + ]:           2 : 
      48                 :           2 :     sprintf (command, "select * from test");
      49                 :             : 
      50                 :           2 :     exec sql prepare F from :command;
      51         [ -  + ]:           2 :     exec sql declare CUR cursor for F;
      52                 :             : 
      53                 :           2 :     exec sql open CUR;
      54         [ -  + ]:           2 :     exec sql fetch 8 in CUR into :name, :amount, :letter;
      55         [ -  + ]:           2 : 
      56         [ +  + ]:          18 :     for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
      57                 :             :     {
      58                 :          16 :         char n[8], l = letter[i][0];
      59                 :          16 :         int a = amount[i];
      60                 :             : 
      61                 :          16 :         strncpy(n, name[i], 8);
      62                 :          16 :         printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
      63                 :             :     }
      64                 :             : 
      65                 :           2 :     exec sql close CUR;
      66         [ -  + ]:           2 : 
      67                 :           2 :     sprintf (command, "select * from test where ? = amount");
      68                 :             : 
      69                 :           2 :     exec sql prepare F from :command;
      70         [ -  + ]:           2 :     exec sql declare CUR3 cursor for F;
      71                 :             : 
      72                 :           2 :     exec sql open CUR3 using 1;
      73         [ -  + ]:           2 :     exec sql fetch in CUR3 into :name, :amount, :letter;
      74         [ -  + ]:           2 : 
      75         [ +  + ]:           4 :     for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
      76                 :             :     {
      77                 :           2 :         char n[8], l = letter[i][0];
      78                 :           2 :         int a = amount[i];
      79                 :             : 
      80                 :           2 :         strncpy(n, name[i], 8);
      81                 :           2 :         printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
      82                 :             :     }
      83                 :             : 
      84                 :           2 :     exec sql close CUR3;
      85         [ -  + ]:           2 :     exec sql drop table test;
      86         [ -  + ]:           2 :     exec sql commit;
      87         [ -  + ]:           2 :     exec sql disconnect;
      88         [ -  + ]:           2 : 
      89                 :           2 :     return 0;
      90                 :             : }