TLA  Line data    Source code

       1                 : #include "sqltypes.h"
       2                 : #include <stdlib.h>
       3                 : 
       4                 : $include ../regression;
       5                 : $define NUMBER 12;
       6                 : 
       7                 : static void openit(void);
       8 CBC           2 : static void dosqlprint(void) {
       9               2 :     printf("doSQLprint: Error: %s\n", sqlca.sqlerrm.sqlerrmc);
      10               2 : }
      11                 : 
      12               1 : int main(void)
      13                 : {
      14               1 :     $int i = 14, loopcount;
      15                 :     $decimal j, m, n;
      16                 :     $string c[10];
      17                 : 
      18               1 :     ECPGdebug(1, stderr);
      19                 :     $whenever sqlerror do dosqlprint();
      20                 : 
      21               1 :     $connect to REGRESSDB1;
      22               1 :     if (sqlca.sqlcode != 0) exit(1);
      23                 : 
      24               1 :     $create table test(i int primary key, j int, c text);
      25               1 : 
      26                 :     /* this INSERT works */
      27               1 :     rsetnull(CDECIMALTYPE, (char *)&j);
      28               1 :     $insert into test (i, j, c) values (7, :j, 'test   ');
      29               1 :     $commit;
      30               1 : 
      31                 :     /* this INSERT should fail because i is a unique column */
      32               1 :     $insert into test (i, j, c) values (7, NUMBER, 'a');
      33               1 :     printf("INSERT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
      34               1 :     if (sqlca.sqlcode != 0) $rollback;
      35               1 : 
      36               1 :     $insert into test (i, j, c) values (:i, 1, 'a      ');
      37               1 :     $commit;
      38               1 : 
      39                 :     /* this will fail (more than one row in subquery) */
      40               1 :     $select i from test where j=(select j from test);
      41               1 :     $rollback;
      42               1 : 
      43                 :     /* this however should be ok */
      44               1 :     $select i from test where j=(select j from test order by i limit 1);
      45               1 :     printf("SELECT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
      46               1 :     if (sqlca.sqlcode != 0) $rollback;
      47 UBC           0 : 
      48 CBC           1 :     sqlca.sqlcode = 100;
      49               1 :     $declare c cursor for select * from test where i <= :i;
      50               1 :     printf ("%ld\n", sqlca.sqlcode);
      51               1 :     openit();
      52                 : 
      53               1 :     deccvint(0, &j);
      54                 : 
      55               3 :     for (loopcount = 0; loopcount < 100; loopcount++)
      56                 :     {
      57               3 :         $fetch forward c into :i, :j, :c;
      58               3 :         if (sqlca.sqlcode == 100) break;
      59                 : 
      60               2 :         if (risnull(CDECIMALTYPE, (char *)&j))
      61 UBC           0 :             printf("%d NULL\n", i);
      62                 :         else
      63                 :         {
      64                 :             int a;
      65                 : 
      66 CBC           2 :             dectoint(&j, &a);
      67               2 :             printf("%d %d \"%s\"\n", i, a, c);
      68                 :         }
      69                 :     }
      70                 : 
      71               1 :     deccvint(7, &j);
      72               1 :     deccvint(14, &m);
      73               1 :     decadd(&j, &m, &n);
      74               1 :     $delete from test where i= :n::decimal;
      75               1 :     printf("DELETE: %ld\n", sqlca.sqlcode);
      76                 : 
      77               1 :     $select 1 from test where i=14;
      78               1 :     printf("Exists: %ld\n", sqlca.sqlcode);
      79                 : 
      80               1 :     $select 1 from test where i=147;
      81               1 :     printf("Does not exist: %ld\n", sqlca.sqlcode);
      82                 : 
      83               1 :     $commit;
      84               1 :     $drop table test;
      85               1 :     $commit;
      86               1 : 
      87               1 :     $close database;
      88               1 : 
      89               1 :     return 0;
      90                 : }
      91                 : 
      92               1 : static void openit(void)
      93                 : {
      94               1 :     $open c;
      95               2 : }