Ref cursor not accepted

Question

Hi,
When I try to compile the following procedure:
Declare
query_str VARCHAR2(4000) := 'SELECT STREET_NAME||chr(09)||ADDRESS.HOUSE_NR||chr(09)||ADDRESS.HOUSE_CHAR||chr(09)||
ADDRESS.HOUSE_NR_TO_BY||chr(09)||ADDRESS.HOUSE_NR_EXTRA||chr(09)||ADDRESS.POSTALCODE||chr(09)||PLACE_NAME ADR
FROM PREVENT.ADDRESS, PREVENT.PLACE_STREET, PREVENT.ADDRESS_DISTRICT
WHERE PLACE_STREET_ID=ID_PLACE_STREET
AND ADDRESS_ID=ID_ADDRESS
AND DISTRICT_ID=P_DISTRICT_ID';
TYPE cur_typ IS REF CURSOR;
c cur_typ;
DECLARE
OPEN c FOR query_str;-- USING inv_num;
LOOP
null;
EXIT WHEN c%NOTFOUND;
-- process row here
END LOOP;
CLOSE c;
END;
forms says:
encountered the symbol 'query_str' when expecting 'select'
When I put the procedure in the database it compiles fine.
Is there maybe another way to approach this in forms?
Thanx,
Pim

Answer 1

Hi,
Thanx for the fast replies.
Based on exec_sql I build the following:
DECLARE
query_str VARCHAR2(4000) := 'SELECT STREET_NAME||chr(09)||ADDRESS.HOUSE_NR||chr(09)||ADDRESS.HOUSE_CHAR||chr(09)||
ADDRESS.HOUSE_NR_TO_BY||chr(09)||ADDRESS.HOUSE_NR_EXTRA||chr(09)||ADDRESS.POSTALCODE||chr(09)||PLACE_NAME ADR
FROM PREVENT.ADDRESS, PREVENT.PLACE_STREET, PREVENT.ADDRESS_DISTRICT
WHERE PLACE_STREET_ID=ID_PLACE_STREET
AND ADDRESS_ID=ID_ADDRESS
AND DISTRICT_ID=P_DISTRICT_ID';
orderby_str varchar(200) := ' ORDER BY STREET_NAME, HOUSE_NR;';
TYPE cur_typ IS REF CURSOR;
c cur_typ;
BEGIN
connection_id EXEC_SQL.CONNTYPE;
cursorID EXEC_SQL.CURSTYPE;
exec_id PLS_INTEGER;
l_adr varchar2(4000);
set_application_property(CURSOR_STYLE, 'BUSY');
--Create exportfile as defined by user parameters 
export_file := TEXT_IO.FOPEN(:SELECTION.PATH_AND_FILE_NAME,'W');
IF (:SELECTION.BUILDING_TYPE <>'<<Selecteer>>')
THEN
query_str := query_str||' and
building_type_id='||:selection.temp_lov_id_buildingtype;
SHOW_ERROR_ALERT('ERROR',substr(query_str,250));
END IF;
IF (:SELECTION.BUILDING_USAGE <>'<<Selecteer>>')
THEN
query_str := query_str||' and
building_usage_id='||:selection.temp_lov_id_buildingusage;
SHOW_ERROR_ALERT('ERROR',substr(query_str,250));
END IF;
IF (:SELECTION.BUILDING_PROPERTY_3 <>'<<Selecteer>>')
THEN
query_str := query_str||' and
BUILDING_PROPERTY_3_id='||:selection.temp_lov_id_BUILDINGPROPERTY3;
SHOW_ERROR_ALERT('ERROR',substr(query_str,250));
END IF;
IF (:SELECTION.BUILDING_PROPERTY_4 <>'<<Selecteer>>')
THEN
query_str := query_str||' and
BUILDING_PROPERTY_4_id='||:selection.temp_lov_id_BUILDINGPROPERTY4;
SHOW_ERROR_ALERT('ERROR',substr(query_str,250));
END IF;
query_str := query_str||orderby_str;
SHOW_ERROR_ALERT('ERROR',substr(query_str,250));
connection_id := EXEC_SQL.OPEN_CONNECTION('PREVENT/*****@prcl');
SHOW_ERROR_ALERT('ERROR','connectie made');
cursorID := EXEC_SQL.OPEN_CURSOR(connection_id);
SHOW_ERROR_ALERT('ERROR','cursor opened');
EXEC_SQL.PARSE(connection_id, cursorID, query_str, exec_sql.V7);
SHOW_ERROR_ALERT('ERROR','geparsed');
EXEC_SQL.DEFINE_COLUMN(connection_id, cursorID, 1,l_adr, 4000);
SHOW_ERROR_ALERT('ERROR','column defined');
exec_id := EXEC_SQL.EXECUTE(connection_id, cursorID);
SHOW_ERROR_ALERT('ERROR','EXECUTE SQL');
SHOW_ERROR_ALERT('ERROR','Begin loop');
WHILE (EXEC_SQL.FETCH_ROWS(connection_id, cursorID) > 0 ) LOOP
EXEC_SQL.COLUMN_VALUE(connection_id, cursorID, 1,l_adr);
TEXT_IO.PUT_LINE(export_file, l_adr);
nr_of_addresses:=nr_of_addresses+1;
END LOOP;
SHOW_ERROR_ALERT('ERROR','UIT loop');
EXEC_SQL.CLOSE_CURSOR(connection_id, cursorID);
EXEC_SQL.CLOSE_CONNECTION(connection_id);
TEXT_IO.FCLOSE(export_file);
SHOW_NOTE_ALERT('Aanmaken exportbestand','Het aanmaken van exportbestand '
||UPPER(:SELECTION.PATH_AND_FILE_NAME)||' is voltooid. Totaal: '||nr_of_addresses||' adressen.');
go_item('SELECTION.EXPORT');
set_application_property(CURSOR_STYLE, 'DEFAULT');
END;
After the message 'cursor openes' the form hangs. It seems like it doesn't come back from parsing. I tested the sql statement, it's very fast.
Does anybody know of a reason why the parsing results in a hang.
Thanx,
Pim