Line data    Source code

       1              : exec sql include sqlca;
       2              : #include <stdio.h>
       3              : 
       4              : exec sql include ../regression;
       5              : 
       6              : 
       7            0 : int main()
       8              : {  exec sql begin declare section;
       9            0 :    int index;
      10              :    exec sql end declare section;
      11              : 
      12              : 
      13            0 :    ECPGdebug(1,stderr);
      14              : 
      15            0 :    exec sql connect to REGRESSDB1;
      16            0 :    if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
      17              : 
      18            0 :    exec sql create table test (
      19              :         "index" numeric(3) primary key,
      20              :         "payload" int4 NOT NULL);
      21            0 :    if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
      22            0 :    exec sql commit work;
      23            0 :    if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
      24              : 
      25            0 :    for (index=0;index<10;++index)
      26            0 :    {  exec sql insert into test
      27              :                 (payload, index)
      28              :                 values (0, :index);
      29            0 :       if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
      30            0 :    }
      31            0 :    exec sql commit work;
      32            0 :    if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
      33              : 
      34            0 :    exec sql update test
      35              :         set payload=payload+1 where index=-1;
      36            0 :    if (sqlca.sqlcode!=100) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
      37              : 
      38            0 :    exec sql delete from test where index=-1;
      39            0 :    if (sqlca.sqlcode!=100) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
      40              : 
      41            0 :    exec sql insert into test (select * from test where index=-1);
      42            0 :    if (sqlca.sqlcode!=100) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
      43              : 
      44            0 :    exec sql drop table test;
      45            0 :    if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
      46            0 :    exec sql commit work;
      47            0 :    if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
      48              : 
      49            0 :    exec sql disconnect;
      50            0 :    if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
      51            0 :    return 0;
      52            0 : }