Age         Owner                  TLA  Line data    Source code

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