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 :     exec sql create table test (name char(8), amount int, letter char(1));
      26            2 :     exec sql commit;
      27            2 : 
      28              :     /* test handling of embedded quotes in EXECUTE IMMEDIATE "literal" */
      29            2 :     exec sql execute immediate "insert into test (name, \042amount\042, letter) values ('db: ''r1''', 1, 'f')";
      30            2 : 
      31            2 :     sprintf(command, "insert into test (name, amount, letter) values ('db: ''r1''', 2, 't')");
      32            2 :     exec sql execute immediate :command;
      33            2 : 
      34            2 :     sprintf(command, "insert into test (name, amount, letter) select name, amount+10, letter from test");
      35            2 :     exec sql execute immediate :command;
      36            2 : 
      37            2 :     printf("Inserted %ld tuples via execute immediate\n", sqlca.sqlerrd[2]);
      38              : 
      39            2 :     sprintf(command, "insert into test (name, amount, letter) select name, amount+$1, letter from test");
      40            2 :     exec sql prepare I from :command;
      41            2 :     exec sql execute I using :increment;
      42            2 : 
      43            2 :     printf("Inserted %ld tuples via prepared execute\n", sqlca.sqlerrd[2]);
      44              : 
      45            2 :     exec sql commit;
      46            2 : 
      47            2 :     sprintf (command, "select * from test");
      48              : 
      49            2 :     exec sql prepare f from :command;
      50            2 :     exec sql declare CUR cursor for f;
      51              : 
      52            2 :     exec sql open CUR;
      53            2 :     exec sql fetch 8 in CUR into :name, :amount, :letter;
      54            2 : 
      55           18 :     for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
      56              :     {
      57              :         exec sql begin declare section;
      58           16 :         char n[8], l = letter[i][0];
      59           16 :         int a = amount[i];
      60              :         exec sql end declare section;
      61              : 
      62           16 :         strncpy(n, name[i], 8);
      63           16 :         printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
      64              :     }
      65              : 
      66            2 :     exec sql close CUR;
      67            2 :     exec sql deallocate f;
      68            2 : 
      69            2 :     sprintf (command, "select * from test where amount = $1");
      70              : 
      71            2 :     exec sql prepare f from :command;
      72            2 :     exec sql declare CUR2 cursor for f;
      73              : 
      74            2 :     exec sql open CUR2 using 1;
      75            2 :     exec sql fetch in CUR2 into :name, :amount, :letter;
      76            2 : 
      77            4 :     for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
      78              :     {
      79              :         exec sql begin declare section;
      80            2 :         char n[8], l = letter[i][0];
      81            2 :         int a = amount[i];
      82              :         exec sql end declare section;
      83              : 
      84            2 :         strncpy(n, name[i], 8);
      85            2 :         printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
      86              :     }
      87              : 
      88            2 :     exec sql close CUR2;
      89            2 :     exec sql deallocate f;
      90            2 : 
      91            2 :     sprintf (command, "select * from test where amount = $1");
      92              : 
      93            2 :     exec sql prepare f from :command;
      94            2 :     exec sql execute f using 2 into :name, :amount, :letter;
      95            2 : 
      96            4 :     for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
      97              :     {
      98              :         exec sql begin declare section;
      99            2 :         char n[8], l = letter[i][0];
     100            2 :         int a = amount[i];
     101              :         exec sql end declare section;
     102              : 
     103            2 :         strncpy(n, name[i], 8);
     104            2 :         printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
     105              :     }
     106              : 
     107            2 :     exec sql deallocate f;
     108            2 :     exec sql drop table test;
     109            2 :     exec sql commit;
     110            2 :     exec sql disconnect;
     111            2 : 
     112            2 :     return 0;
     113              : }