granicus.if.org Git - postgresql/blob - src/interfaces/ecpg/test/test_informix.pgc

   1 #include "sqltypes.h"
   2
   3 void openit(void);
   4
   5 int main()
   6 {
   7         $int i = 14;
   8         $decimal j;
   9         FILE *dbgs;
  10
  11         if ((dbgs = fopen("log", "w")) != NULL)
  12                 ECPGdebug(1, dbgs);
  13
  14         $connect to mm;
  15
  16         $create table test(i int primary key, j int);
  17
  18         rsetnull(CDECIMALTYPE, (char *)&j);
  19         $insert into test (i, j) values (7, :j);
  20         $insert into test (i, j) values (:i, 1);
  21
  22         $declare c cursor for select * from test where i <= :i;
  23         openit();
  24
  25         deccvint(0, &j);
  26
  27         while (1)
  28         {
  29                 $fetch in c into :i, :j;
  30                 if (sqlca.sqlcode == 100) break;
  31                 else if (sqlca.sqlcode != 0) printf ("Error: %ld\n", sqlca.sqlcode);
  32
  33                 if (risnull(CDECIMALTYPE, (char *)&j))
  34                         printf("%d\n", i);
  35                 else
  36                 {
  37                         int a;
  38
  39                         dectoint(&j, &a);
  40                         printf("%d %d\n", i, a);
  41                 }
  42         }
  43
  44         $delete from test where i=87;
  45         printf("delete: %ld\n", sqlca.sqlcode);
  46
  47         $commit;
  48         $drop table test;
  49         $commit;
  50
  51         $disconnect;
  52
  53         return 0;
  54 }
  55
  56 void openit(void)
  57 {
  58         $open c;
  59 }
  60