TLA  Line data    Source code

       1                 : #include <stdio.h>
       2                 : #include <stdlib.h>
       3                 : #include <string.h>
       4                 : 
       5                 : EXEC SQL INCLUDE ../regression;
       6                 : 
       7 CBC           1 : int main() {
       8                 :   EXEC SQL BEGIN DECLARE SECTION;
       9                 :     char str[25];
      10               1 :     int i, count=1, loopcount;
      11                 :   EXEC SQL END DECLARE SECTION;
      12                 : 
      13               1 :   ECPGdebug(1, stderr);
      14               1 :   EXEC SQL CONNECT TO REGRESSDB1;
      15                 : 
      16                 :   EXEC SQL WHENEVER SQLWARNING SQLPRINT;
      17                 :   EXEC SQL WHENEVER SQLERROR STOP;
      18                 : 
      19               1 :   EXEC SQL CREATE TABLE My_Table ( Item1 int, Item2 text );
      20               1 : 
      21               1 :   EXEC SQL INSERT INTO My_Table VALUES ( 1, 'text1');
      22               1 :   EXEC SQL INSERT INTO My_Table VALUES ( 2, 'text2');
      23               1 :   EXEC SQL INSERT INTO My_Table VALUES ( 3, 'text3');
      24               1 :   EXEC SQL INSERT INTO My_Table VALUES ( 4, 'text4');
      25               1 : 
      26                 :   EXEC SQL DECLARE C CURSOR FOR SELECT * FROM My_Table;
      27                 : 
      28               1 :   EXEC SQL OPEN C;
      29               1 : 
      30                 :   EXEC SQL WHENEVER NOT FOUND DO BREAK;
      31               5 :   for (loopcount = 0; loopcount < 100; loopcount++) {
      32               5 :     EXEC SQL FETCH 1 IN C INTO :i, :str;
      33               5 :     printf("%d: %s\n", i, str);
      34                 :   }
      35                 : 
      36                 :   EXEC SQL WHENEVER NOT FOUND CONTINUE;
      37               1 :   EXEC SQL MOVE BACKWARD 2 IN C;
      38               1 : 
      39               1 :   EXEC SQL FETCH :count IN C INTO :i, :str;
      40               1 :   printf("%d: %s\n", i, str);
      41                 : 
      42               1 :   EXEC SQL CLOSE C;
      43               1 : 
      44                 :   EXEC SQL DECLARE D CURSOR FOR SELECT * FROM My_Table WHERE Item1 = $1;
      45                 : 
      46               1 :   EXEC SQL OPEN D using 1;
      47               1 : 
      48               1 :   EXEC SQL FETCH 1 IN D INTO :i, :str;
      49               1 :   printf("%d: %s\n", i, str);
      50                 : 
      51               1 :   EXEC SQL CLOSE D;
      52               1 : 
      53               1 :   EXEC SQL DROP TABLE My_Table;
      54               1 : 
      55               1 :   EXEC SQL DISCONNECT ALL;
      56               1 : 
      57               1 :   return 0;
      58                 : }