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