537: outcome_meaning varchar2(80); /* Translated outcome meaning. */
538: req_data varchar2(10); /* State of last FNDRSSUB run. */
539: has_reqs boolean default FALSE;
540: funct varchar2(61); /* Function string */
541: fcursor varchar2(75); /* Cursor sting for dbms_sql */
542: cid number; /* Cursor ID for dbms_sql */
543: dummy number;
544: printer varchar2(30);
545: copies number;
538: req_data varchar2(10); /* State of last FNDRSSUB run. */
539: has_reqs boolean default FALSE;
540: funct varchar2(61); /* Function string */
541: fcursor varchar2(75); /* Cursor sting for dbms_sql */
542: cid number; /* Cursor ID for dbms_sql */
543: dummy number;
544: printer varchar2(30);
545: copies number;
546: /* xml project */
828:
829:
830: fcursor := 'begin :r := '||funct||'; end;';
831: begin
832: cid := dbms_sql.open_cursor;
833: dbms_sql.parse(cid, fcursor, dbms_sql.v7);
834: dbms_sql.bind_variable(cid, ':r', 'a');
835: dummy := dbms_sql.execute(cid);
836: dbms_sql.variable_value(cid, ':r', current_outcome);
829:
830: fcursor := 'begin :r := '||funct||'; end;';
831: begin
832: cid := dbms_sql.open_cursor;
833: dbms_sql.parse(cid, fcursor, dbms_sql.v7);
834: dbms_sql.bind_variable(cid, ':r', 'a');
835: dummy := dbms_sql.execute(cid);
836: dbms_sql.variable_value(cid, ':r', current_outcome);
837: dbms_sql.close_cursor(cid);
830: fcursor := 'begin :r := '||funct||'; end;';
831: begin
832: cid := dbms_sql.open_cursor;
833: dbms_sql.parse(cid, fcursor, dbms_sql.v7);
834: dbms_sql.bind_variable(cid, ':r', 'a');
835: dummy := dbms_sql.execute(cid);
836: dbms_sql.variable_value(cid, ':r', current_outcome);
837: dbms_sql.close_cursor(cid);
838: exception
831: begin
832: cid := dbms_sql.open_cursor;
833: dbms_sql.parse(cid, fcursor, dbms_sql.v7);
834: dbms_sql.bind_variable(cid, ':r', 'a');
835: dummy := dbms_sql.execute(cid);
836: dbms_sql.variable_value(cid, ':r', current_outcome);
837: dbms_sql.close_cursor(cid);
838: exception
839: when others then
832: cid := dbms_sql.open_cursor;
833: dbms_sql.parse(cid, fcursor, dbms_sql.v7);
834: dbms_sql.bind_variable(cid, ':r', 'a');
835: dummy := dbms_sql.execute(cid);
836: dbms_sql.variable_value(cid, ':r', current_outcome);
837: dbms_sql.close_cursor(cid);
838: exception
839: when others then
840: errbuf := gen_error(funct, SQLCODE, SQLERRM);
833: dbms_sql.parse(cid, fcursor, dbms_sql.v7);
834: dbms_sql.bind_variable(cid, ':r', 'a');
835: dummy := dbms_sql.execute(cid);
836: dbms_sql.variable_value(cid, ':r', current_outcome);
837: dbms_sql.close_cursor(cid);
838: exception
839: when others then
840: errbuf := gen_error(funct, SQLCODE, SQLERRM);
841: retcode := 2;