Simple implementation of SQL Server and PL/SQL dynamic cursors

SQL Server Dynamic Cursor
Declare @ SQL varchar (2000 ),
@ Typefield varchar (100 ),
@ Tablename varchar (255 ),
@ Name varchar (100)
Select @ typefield = 'name', @ tablename = 'sysobjects'
Set @ SQL = 'Clare cutemp cursor'
+ 'Select distinct '+ @ typefield + 'from' + @ tablename
Exec (@ SQL)
Open cutemp
Fetch cutemp into @ name
While (@ fetch_status = 0)
Begin
Print @ name
Fetch cutemp into @ name
End
Close cutemp
Deallocate cutemp
Dynamic PL/SQL cursor
Create or replace procedure activecursor (TN varchar2)
A1 number (10): = 0;
SQL _statement varchar2 (1000 );
Type curtype is ref cursor;
Cur_jilh curtype;
Begin
Savepoint ticketcount;
SQL _statement: = 'select AA, BB from '| tn;
Open cur_jilh for SQL _statement;
Loop
Fetch cur_jilh
Into SQL _statement, A1;
Exit when cur_jilh % notfound;
End loop;
Close cur_jilh;
Commit;

Exception
When others then
Rollback to ticketcount;
End activecursor;