File: 21000-mysql.sqc

package info (click to toggle)
uncrustify 0.68.1%2Bdfsg1-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 18,000 kB
  • sloc: cpp: 56,567; ansic: 19,840; cs: 3,097; python: 2,717; objc: 1,650; java: 510; sh: 390; awk: 150; perl: 63; makefile: 7
file content (45 lines) | stat: -rw-r--r-- 897 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
#include <stdlib.h>
#include <stdio.h>

/*----------------------------------------------------------------*/
EXEC SQL INCLUDE SQLCA;
short sqlcode;

EXEC SQL BEGIN DECLARE SECTION;
   int host_a;
   double host_b;
   char host_c;
EXEC SQL END DECLARE SECTION;

EXEC SQL DECLARE csr1 CURSOR FOR
   SELECT a, b, c
   FROM table1
   WHERE x = :hostvar1;

/*----------------------------------------------------------------*/
void main(void)
{
   hostvar1 = 42;

   EXEC SQL OPEN csr1;
   if (sqlcode < 0)
   {
      exit(0);
   }

   while (rc >= 0 && rc != 100)
   {
      EXEC SQL FETCH csr1 INTO :host_a, :host_b, :host_c;
      printf("Fetch %d, %lf, %s\n", host_a, host_b, host_c);
   }

   EXEC SQL CLOSE csr1;
}

void foo(void)
{
   strcpy(demoquery1, "some SQL statement");
   EXEC SQL prepare demo3id from :demoquery1;
   /* a comment */
   EXEC SQL declare demo3cursor cursor for demo3id;
}