by SQL> create or replace procedure RebuildDictionary as
2 -- Now add them all back...please note this could take time...
3 iSceneID2 number;
4 sName varchar2(3999);
5 sStreet varchar2(3999);
6 sTown varchar2(3999);
7 sCounty varchar2(3999);
8 Ignore3 number;
9 thecursor3 integer;
10 destination_cursor number;
11 strSQL3 varchar2(255);
12 Begin
13 strsQL3:='SELECT SceneID,NameNumber,Street,Town,County FROM
tblSceneProperty';
14 thecursor3:= DBMS_SQL.OPEN_CURSOR;
15 DBMS_SQL.PARSE(thecursor3,
16 strSQL3,
17 DBMS_SQL.NATIVE);
18 DBMS_SQL.DEFINE_COLUMN(thecursor3,1 ,iSceneID2);
19 DBMS_SQL.DEFINE_COLUMN(thecursor3,2 ,sName,3999);
20 DBMS_SQL.DEFINE_COLUMN(thecursor3,3 ,sStreet,3999);
21 DBMS_SQL.DEFINE_COLUMN(thecursor3,4 ,sTown,3999);
22 DBMS_SQL.DEFINE_COLUMN(thecursor3,5 ,sCounty,3999);
23 ignore3 := DBMS_SQL.EXECUTE(thecursor3);
24 <<SceneLoop2>> loop
25 IF DBMS_SQL.FETCH_ROWS(thecursor3) > 0 THEN
26 -- Get column values
27 DBMS_SQL.COLUMN_VALUE(thecursor3,1 ,iSceneID2);
28 DBMS_SQL.COLUMN_VALUE(thecursor3,2 ,sName);
29 DBMS_SQL.COLUMN_VALUE(thecursor3,3 ,sStreet);
30 DBMS_SQL.COLUMN_VALUE(thecursor3,4,sTown); |51 here?
31 --DBMS_SQL.COLUMN_VALUE(thecursor3,5 ,sCounty);???
32 UpdateDictionaryXRef(iSceneID2,100,(sName || ' ' ||
sStreet || ' ' || sTown || ' ' ||
sCounty));
33 ELSE
34 exit SceneLoop2;
35 end if;
36 end loop SceneLoop2;
37 --close the cursor
38 DBMS_SQL.CLOSE_CURSOR(thecursor3);
39 end;
40 /
Warning: Procedure created with compilation errors.
SQL> sho err
Errors for PROCEDURE REBUILDDICTIONARY:
LINE/COL ERROR
-------- -----------------------------------------------------------------
30/51 PLS-00103: Encountered the symbol "?" when expecting one of
the
following:
begin declare else elsif end exit for goto if loop mod null
pragma raise return select update while <an identifier>
<a double-quoted delimited-identifier> <a bind variable> <<
close current delete fetch lock insert open rollback
savepoint set sql execute commit forall
<a single-quoted SQL string>