Use of Cursors in Forms!!

Question

Hi all,
Here i want to write a generic procedure, which creates a cursor with query based on the users' choice of table and the given query....
the procedure looks like the following....
Procedure xyz(iv_table_name IN VARCHAR2,
iv_where_condition IN VARCHAR2)
IS
Cusor lcur_generic IS
Select field1, field2
from <iv_table_name> -- Here i want to use the above parameter..
and i want to attach the iv_where_condition string
as where condition...
Could any one help me in this issue,
It is very important and urgent
I'm Using Forms 6
Help is appreciated.
Tnx
RK Raju

Answer 1

IN THE FORMS PREPARE THE STATEMENT
:BLOCK1.DT:='SELECT FIELD1,FIELD2,FIELD3,FIELD4 FROM TABLE1 WHERE FIELD1=XXX';
THEN YOU CAN CALL THE PROCEDURE
IN THE BLOCK PROPERTIES INSTEAD OF TABLE USE PROCEDURE
QUERY DATA SOURCE NAME 'CUR.RCURSOR'
QUERY DATA SOURCE COLUMNS
SET FIELD1 TYPE VARCHAR2 ......
FIELD2 TYPE VARCHAR2 ......
FIELD3 TYPE VARCHAR2 ......
FIELD4 TYPE VARCHAR2 ......
QUERY DATA SOURCE ARGUMENTS
SET RESULTSET TYPE REFCURSOR
TYPE NAME CUR.FINSTYPE
MODE INOUT
DT TYPE VARCHAR2
MODE IN
VALUE :BLOCK1.DT
THIS WILL WORK ON THE BLOCK EXECUTE QUERY
MAKE SURE THE FIELD1,FIELD2,FIELD3,FIELD4 ARE DATABASE SET TO YES
HERE IS THE CODE FOR THE PACKAGE YOU NEED TO CREATE..
Package CUR /* IF YOU USE authid current_user */ IS
type FINSTYPE is ref cursor ;
PROCEDURE RCUR(RESULTSET IN OUT finstype,DT IN VARCHAR2 );
END CUR;
-------------------------------BODY-------------
Package CUR
IS
PROCEDURE RCUR(RESULTSET IN OUT FINSTYPE ,DT VARCHAR2 )
IS
BEGIN
OPEN RESULTSET FOR
DT;
EXCEPTION WHEN OTHERS THEN
NULL;
END;
END ;
IF YOU
DECLARE
FCURSOR CUR.FINSTYPE;
STATEMENT1 VARCHAR2(2000):='SELECT FIELD1,FIELD2,FIELD3,FIELD4 FROM TABLE1 WHERE FIELD1=X';
BEGIN
CUR.RCUR(FCURSOR,STATEMENT1);
FETCH ..... LOOP
END LOOP;
CLOSE STATEMENT1;
END;
THIS WILL WORK INSIDE OTHER PROCEDURES OR FUNCTIONS BUT NOT INSIDE FORMS PLSQL.
TO WORK INSIDE FORMS PLSQL
YOU HAVE TO CREATE IN THE PACKAGE
RECORDX OF TYPES FIELD1,FIELD2,FILED3,FIELD4
AND THEN
INSTEAD OF
type FINSTYPE is ref cursor ;
YOU SAY
type FINSTYPE is ref cursor OF RECORDX ;
GOOD LUCK
I HOPE WHAT I WROTE MAKES SENCE BECAUSE IT WORKS...