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