548: outcome_meaning varchar2(80); /* Translated outcome meaning. */
549: req_data varchar2(10); /* State of last FNDRSSUB run. */
550: has_reqs boolean default FALSE;
551: funct varchar2(61); /* Function string */
552: fcursor varchar2(75); /* Cursor sting for dbms_sql */
553: cid number; /* Cursor ID for dbms_sql */
554: dummy number;
555: printer varchar2(30);
556: copies number;
549: req_data varchar2(10); /* State of last FNDRSSUB run. */
550: has_reqs boolean default FALSE;
551: funct varchar2(61); /* Function string */
552: fcursor varchar2(75); /* Cursor sting for dbms_sql */
553: cid number; /* Cursor ID for dbms_sql */
554: dummy number;
555: printer varchar2(30);
556: copies number;
557: /* xml project */
864:
865:
866: fcursor := 'begin :r := '||funct||'; end;';
867: begin
868: cid := dbms_sql.open_cursor;
869: dbms_sql.parse(cid, fcursor, dbms_sql.v7);
870: dbms_sql.bind_variable(cid, ':r', 'a');
871: dummy := dbms_sql.execute(cid);
872: dbms_sql.variable_value(cid, ':r', current_outcome);
865:
866: fcursor := 'begin :r := '||funct||'; end;';
867: begin
868: cid := dbms_sql.open_cursor;
869: dbms_sql.parse(cid, fcursor, dbms_sql.v7);
870: dbms_sql.bind_variable(cid, ':r', 'a');
871: dummy := dbms_sql.execute(cid);
872: dbms_sql.variable_value(cid, ':r', current_outcome);
873: dbms_sql.close_cursor(cid);
866: fcursor := 'begin :r := '||funct||'; end;';
867: begin
868: cid := dbms_sql.open_cursor;
869: dbms_sql.parse(cid, fcursor, dbms_sql.v7);
870: dbms_sql.bind_variable(cid, ':r', 'a');
871: dummy := dbms_sql.execute(cid);
872: dbms_sql.variable_value(cid, ':r', current_outcome);
873: dbms_sql.close_cursor(cid);
874: exception
867: begin
868: cid := dbms_sql.open_cursor;
869: dbms_sql.parse(cid, fcursor, dbms_sql.v7);
870: dbms_sql.bind_variable(cid, ':r', 'a');
871: dummy := dbms_sql.execute(cid);
872: dbms_sql.variable_value(cid, ':r', current_outcome);
873: dbms_sql.close_cursor(cid);
874: exception
875: when others then
868: cid := dbms_sql.open_cursor;
869: dbms_sql.parse(cid, fcursor, dbms_sql.v7);
870: dbms_sql.bind_variable(cid, ':r', 'a');
871: dummy := dbms_sql.execute(cid);
872: dbms_sql.variable_value(cid, ':r', current_outcome);
873: dbms_sql.close_cursor(cid);
874: exception
875: when others then
876: errbuf := gen_error(funct, SQLCODE, SQLERRM);
869: dbms_sql.parse(cid, fcursor, dbms_sql.v7);
870: dbms_sql.bind_variable(cid, ':r', 'a');
871: dummy := dbms_sql.execute(cid);
872: dbms_sql.variable_value(cid, ':r', current_outcome);
873: dbms_sql.close_cursor(cid);
874: exception
875: when others then
876: errbuf := gen_error(funct, SQLCODE, SQLERRM);
877: retcode := 2;