[grlewycky]

After your CURSOR definitions and before your BEGIN

add something like this:


inv_record C_INVOICE%ROWTYPE;


CURSOR c_machine IS
Select name from v$database;
----
/*--------------------------------*/
/* */
/* */

machine_record c_machine%ROWTYPE;

/* */
/* */
/*--------------------------------*/
BEGIN

OPEN c_machine;
LOOP
FETCH c_machine INTO machine_record;
out_machine := machine_record.NAME;
EXIT WHEN c_machine%NOTFOUND;
end loop;
CLOSE c_machine;