|
7 | 7 | /* End of automatic include section */ |
8 | 8 |
|
9 | 9 | #line 1 "define.pgc" |
10 | | -#include<stdio.h> |
11 | 10 | #include<stdlib.h> |
| 11 | +#include<string.h> |
| 12 | +#include<stdlib.h> |
| 13 | +#include<stdio.h> |
12 | 14 |
|
13 | 15 |
|
14 | 16 | #line 1 "regression.h" |
|
18 | 20 |
|
19 | 21 |
|
20 | 22 |
|
21 | | -#line 4 "define.pgc" |
22 | | - |
23 | | - |
24 | | -typedeflongmmInteger ; |
25 | | - |
26 | 23 | #line 6 "define.pgc" |
27 | 24 |
|
28 | | -#line 6 "define.pgc" |
29 | 25 |
|
30 | | -typedefcharmmChar ; |
| 26 | +/* exec sql whenever sqlerror sqlprint ; */ |
| 27 | +#line 8 "define.pgc" |
31 | 28 |
|
32 | | -#line 7 "define.pgc" |
33 | 29 |
|
34 | | -#line 7 "define.pgc" |
35 | 30 |
|
36 | | -typedefshortmmSmallInt ; |
37 | 31 |
|
38 | | -#line 8 "define.pgc" |
39 | 32 |
|
40 | | -#line 8 "define.pgc" |
| 33 | +/* exec sql type intarray is int [ 6 ] */ |
| 34 | +#line 13 "define.pgc" |
41 | 35 |
|
| 36 | +typedefintintarray[6]; |
42 | 37 |
|
| 38 | +int |
| 39 | +main(void) |
| 40 | +{ |
43 | 41 | /* exec sql begin declare section */ |
44 | | - |
45 | 42 |
|
46 | | - |
47 | | - |
48 | | - |
| 43 | +typedefcharstring [8 ] ; |
49 | 44 |
|
50 | | -structTBempl { |
51 | | -#line 13 "define.pgc" |
52 | | -mmIntegeridnum ; |
| 45 | +#line 21 "define.pgc" |
| 46 | + |
| 47 | + |
| 48 | + |
| 49 | + |
53 | 50 |
|
54 | | -#line14 "define.pgc" |
55 | | -mmCharname [21 ] ; |
| 51 | +#line22 "define.pgc" |
| 52 | +intarrayamount ; |
56 | 53 |
|
57 | | -#line 15 "define.pgc" |
58 | | -mmSmallIntaccs ; |
59 | | - } ;/* exec sql end declare section */ |
60 | | -#line 17 "define.pgc" |
61 | | - |
62 | | - |
63 | | -int |
64 | | -main (void) |
65 | | -{ |
66 | | -/* exec sql begin declare section */ |
67 | | - |
68 | | - |
69 | 54 | #line 23 "define.pgc" |
70 | | -structTBemplempl ; |
71 | | -/* exec sql end declare section */ |
| 55 | +charname [6 ] [8 ] ; |
| 56 | +
|
72 | 57 | #line 24 "define.pgc" |
| 58 | +charletter [6 ] [1 ] ; |
| 59 | + |
| 60 | +#if0 |
| 61 | + |
| 62 | +#line 26 "define.pgc" |
| 63 | +intnot_used ; |
| 64 | + |
| 65 | +#endif |
| 66 | +/* exec sql end declare section */ |
| 67 | +#line 29 "define.pgc" |
73 | 68 |
|
| 69 | +inti,j; |
74 | 70 |
|
75 | | -ECPGdebug(1,stderr); |
| 71 | +ECPGdebug(1,stderr); |
76 | 72 |
|
77 | | -empl.idnum=1; |
78 | | - {ECPGconnect(__LINE__,0,"regress1" ,NULL,NULL ,NULL,0); } |
79 | | -#line 29 "define.pgc" |
| 73 | +{ECPGconnect(__LINE__,0,"regress1" ,NULL,NULL ,NULL,0); |
| 74 | +#line 34 "define.pgc" |
| 75 | + |
| 76 | +if (sqlca.sqlcode<0)sqlprint();} |
| 77 | +#line 34 "define.pgc" |
80 | 78 |
|
81 | | -if (sqlca.sqlcode) |
82 | | - { |
83 | | -printf ("connect error = %ld\n",sqlca.sqlcode); |
84 | | -exit (sqlca.sqlcode); |
85 | | - } |
86 | 79 |
|
87 | | - {ECPGdo(__LINE__,0,1,NULL,"create table empl ( idnum integer , name char ( 20 ) , accs smallint ) ",ECPGt_EOIT,ECPGt_EORT);} |
| 80 | +{ECPGdo(__LINE__,0,1,NULL,"create table test ( name char ( 8 ) , amount int , letter char ( 1 ) ) ",ECPGt_EOIT,ECPGt_EORT); |
| 81 | +#line 36 "define.pgc" |
| 82 | + |
| 83 | +if (sqlca.sqlcode<0)sqlprint();} |
| 84 | +#line 36 "define.pgc" |
| 85 | + |
| 86 | +{ECPGtrans(__LINE__,NULL,"commit"); |
88 | 87 | #line 37 "define.pgc" |
89 | 88 |
|
90 | | -if (sqlca.sqlcode) |
91 | | - { |
92 | | -printf ("create error = %ld\n",sqlca.sqlcode); |
93 | | -exit (sqlca.sqlcode); |
94 | | - } |
95 | | - |
96 | | - {ECPGdo(__LINE__,0,1,NULL,"insert into empl values ( 1 , 'first user' , 320 ) ",ECPGt_EOIT,ECPGt_EORT);} |
97 | | -#line 44 "define.pgc" |
98 | | - |
99 | | -if (sqlca.sqlcode) |
100 | | - { |
101 | | -printf ("insert error = %ld\n",sqlca.sqlcode); |
102 | | -exit (sqlca.sqlcode); |
103 | | - } |
104 | | - |
105 | | - {ECPGdo(__LINE__,0,1,NULL,"select idnum , name , accs from empl where idnum = ? ", |
106 | | -ECPGt_long,&(empl.idnum),(long)1,(long)1,sizeof(long), |
107 | | -ECPGt_NO_INDICATOR,NULL ,0L,0L,0L,ECPGt_EOIT, |
108 | | -ECPGt_long,&(empl.idnum),(long)1,(long)1,sizeof(long), |
| 89 | +if (sqlca.sqlcode<0)sqlprint();} |
| 90 | +#line 37 "define.pgc" |
| 91 | + |
| 92 | + |
| 93 | +{ECPGdo(__LINE__,0,1,NULL,"insert into Test ( name , amount , letter ) values ( 'false' , 1 , 'f' ) ",ECPGt_EOIT,ECPGt_EORT); |
| 94 | +#line 39 "define.pgc" |
| 95 | + |
| 96 | +if (sqlca.sqlcode<0)sqlprint();} |
| 97 | +#line 39 "define.pgc" |
| 98 | + |
| 99 | +{ECPGdo(__LINE__,0,1,NULL,"insert into test ( name , amount , letter ) values ( 'true' , 2 , 't' ) ",ECPGt_EOIT,ECPGt_EORT); |
| 100 | +#line 40 "define.pgc" |
| 101 | + |
| 102 | +if (sqlca.sqlcode<0)sqlprint();} |
| 103 | +#line 40 "define.pgc" |
| 104 | + |
| 105 | +{ECPGtrans(__LINE__,NULL,"commit"); |
| 106 | +#line 41 "define.pgc" |
| 107 | + |
| 108 | +if (sqlca.sqlcode<0)sqlprint();} |
| 109 | +#line 41 "define.pgc" |
| 110 | + |
| 111 | + |
| 112 | +{ECPGdo(__LINE__,0,1,NULL,"select * from test ",ECPGt_EOIT, |
| 113 | +ECPGt_char,(name),(long)8,(long)6,(8)*sizeof(char), |
109 | 114 | ECPGt_NO_INDICATOR,NULL ,0L,0L,0L, |
110 | | -ECPGt_char,&(empl.name),(long)21,(long)1,(21)*sizeof(char), |
| 115 | +ECPGt_int,(amount),(long)1,(long)6,sizeof(int), |
111 | 116 | ECPGt_NO_INDICATOR,NULL ,0L,0L,0L, |
112 | | -ECPGt_short,&(empl.accs),(long)1,(long)1,sizeof(short), |
113 | | -ECPGt_NO_INDICATOR,NULL ,0L,0L,0L,ECPGt_EORT);} |
114 | | -#line 54 "define.pgc" |
| 117 | +ECPGt_char,(letter),(long)1,(long)6,(1)*sizeof(char), |
| 118 | +ECPGt_NO_INDICATOR,NULL ,0L,0L,0L,ECPGt_EORT); |
| 119 | +#line 43 "define.pgc" |
| 120 | + |
| 121 | +if (sqlca.sqlcode<0)sqlprint();} |
| 122 | +#line 43 "define.pgc" |
| 123 | + |
| 124 | + |
| 125 | +for (i=0,j=sqlca.sqlerrd[2];i<j;i++) |
| 126 | +{ |
| 127 | +/* exec sql begin declare section */ |
| 128 | + |
| 129 | + |
| 130 | + |
| 131 | +#line 48 "define.pgc" |
| 132 | +charn [8 ] ,l=letter [i ] [0 ] ; |
| 133 | + |
| 134 | +#line 49 "define.pgc" |
| 135 | +inta=amount [i ] ; |
| 136 | +/* exec sql end declare section */ |
| 137 | +#line 50 "define.pgc" |
| 138 | + |
| 139 | + |
| 140 | +strncpy(n,name[i],8); |
| 141 | +printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n",i,n,i,a,i,l); |
| 142 | +} |
| 143 | + |
| 144 | +{ECPGdo(__LINE__,0,1,NULL,"drop table test ",ECPGt_EOIT,ECPGt_EORT); |
| 145 | +#line 56 "define.pgc" |
| 146 | + |
| 147 | +if (sqlca.sqlcode<0)sqlprint();} |
| 148 | +#line 56 "define.pgc" |
| 149 | + |
| 150 | +{ECPGtrans(__LINE__,NULL,"commit"); |
| 151 | +#line 57 "define.pgc" |
| 152 | + |
| 153 | +if (sqlca.sqlcode<0)sqlprint();} |
| 154 | +#line 57 "define.pgc" |
| 155 | + |
| 156 | +{ECPGdisconnect(__LINE__,"CURRENT"); |
| 157 | +#line 58 "define.pgc" |
115 | 158 |
|
116 | | -if (sqlca.sqlcode) |
117 | | - { |
118 | | -printf ("select error = %ld\n",sqlca.sqlcode); |
119 | | -exit (sqlca.sqlcode); |
120 | | - } |
121 | | -printf ("id=%ld name=%s, accs=%d\n",empl.idnum,empl.name,empl.accs); |
| 159 | +if (sqlca.sqlcode<0)sqlprint();} |
| 160 | +#line 58 "define.pgc" |
122 | 161 |
|
123 | | - {ECPGdisconnect(__LINE__,"CURRENT");} |
124 | | -#line 62 "define.pgc" |
125 | 162 |
|
126 | | -exit (0); |
| 163 | +return (0); |
127 | 164 | } |