Branch data     Line data    Source code

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