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