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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
/*
* Program type: Embedded Static SQL
*
* Description:
* This program updates a blob data type.
* Project descriptions are added for a set of projects.
* The contents of this file are subject to the Interbase Public
* License Version 1.0 (the "License"); you may not use this file
* except in compliance with the License. You may obtain a copy
* of the License at http://www.Inprise.com/IPL.html
*
* Software distributed under the License is distributed on an
* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
* or implied. See the License for the specific language governing
* rights and limitations under the License.
*
* The Original Code was created by Inprise Corporation
* and its predecessors. Portions created by Inprise Corporation are
* Copyright (C) Inprise Corporation.
*
* All Rights Reserved.
* Contributor(s): ______________________________________.
*/
#include "example.h"
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
char *get_line (void);
static char *Proj_data[] =
{
"VBASE",
"Design a video data base management system for ",
"controlling on-demand video distribution.",
0,
"DGPII",
"Develop second generation digital pizza maker ",
"with flash-bake heating element and ",
"digital ingredient measuring system.",
0,
"GUIDE",
"Develop a prototype for the automobile version of ",
"the hand-held map browsing device.",
0,
"MAPDB",
"Port the map browsing database software to run ",
"on the automobile model.",
0,
"HWRII",
"Integrate the hand-writing recognition module into the ",
"universal language translator.",
0,
0
};
int Inp_ptr = 0;
EXEC SQL
BEGIN DECLARE SECTION;
EXEC SQL
END DECLARE SECTION;
int main (void)
{
BASED_ON project.proj_id proj_id;
ISC_QUAD blob_id;
int len;
char * line;
int rec_cnt = 0;
EXEC SQL
WHENEVER SQLERROR GO TO Error;
/* Declare a blob insert cursor. */
EXEC SQL
DECLARE bc CURSOR FOR
INSERT BLOB proj_desc INTO project;
/*
* Get the next project id and update the project description.
*/
line = get_line();
while (line)
{
/* Open the blob cursor. */
EXEC SQL
OPEN bc INTO :blob_id;
strcpy(proj_id, line);
printf("\nUpdating description for project: %s\n\n", proj_id);
/* Get a project description segment. */
line = get_line();
while (line)
{
printf(" Inserting segment: %s\n", line);
/* Calculate the length of the segment. */
len = strlen(line);
/* Write the segment. */
EXEC SQL INSERT CURSOR bc VALUES (:line INDICATOR :len);
line = get_line();
}
/* Close the blob cursor. */
EXEC SQL
CLOSE bc;
/* Save the blob id in the project record. */
EXEC SQL
UPDATE project
SET proj_desc = :blob_id
WHERE proj_id = :proj_id;
if (SQLCODE == 0L)
rec_cnt++;
else
printf("Input error -- no project record with key: %s\n", proj_id);
line = get_line();
}
EXEC SQL
COMMIT RELEASE;
printf("\n\nAdded %d project descriptions.\n", rec_cnt);
return 0;
Error:
isc_print_sqlerror((short) SQLCODE, isc_status);
return 1;
}
/*
* Get the next input line, which is either a project id
* or a project description segment.
*/
char *get_line (void)
{
return Proj_data[Inp_ptr++];
}
|
