426: l_trx_num_cursor INTEGER;
427: l_count NUMBER;
428: BEGIN
429: Errcd := 0;
430: l_trx_num_cursor := dbms_sql.open_cursor;
431: dbms_sql.parse(l_trx_num_cursor,
432: 'select '||
433: seq_name||'.nextval seq_number '||
434: 'from dual ',
427: l_count NUMBER;
428: BEGIN
429: Errcd := 0;
430: l_trx_num_cursor := dbms_sql.open_cursor;
431: dbms_sql.parse(l_trx_num_cursor,
432: 'select '||
433: seq_name||'.nextval seq_number '||
434: 'from dual ',
435: dbms_sql.NATIVE);
431: dbms_sql.parse(l_trx_num_cursor,
432: 'select '||
433: seq_name||'.nextval seq_number '||
434: 'from dual ',
435: dbms_sql.NATIVE);
436:
437: dbms_sql.define_column(l_trx_num_cursor, 1, seq_no);
438:
439: l_count := dbms_sql.execute_and_fetch(l_trx_num_cursor,TRUE);
433: seq_name||'.nextval seq_number '||
434: 'from dual ',
435: dbms_sql.NATIVE);
436:
437: dbms_sql.define_column(l_trx_num_cursor, 1, seq_no);
438:
439: l_count := dbms_sql.execute_and_fetch(l_trx_num_cursor,TRUE);
440:
441: dbms_sql.column_value(l_trx_num_cursor, 1, seq_no);
435: dbms_sql.NATIVE);
436:
437: dbms_sql.define_column(l_trx_num_cursor, 1, seq_no);
438:
439: l_count := dbms_sql.execute_and_fetch(l_trx_num_cursor,TRUE);
440:
441: dbms_sql.column_value(l_trx_num_cursor, 1, seq_no);
442: dbms_sql.close_cursor(l_trx_num_cursor);
443:
437: dbms_sql.define_column(l_trx_num_cursor, 1, seq_no);
438:
439: l_count := dbms_sql.execute_and_fetch(l_trx_num_cursor,TRUE);
440:
441: dbms_sql.column_value(l_trx_num_cursor, 1, seq_no);
442: dbms_sql.close_cursor(l_trx_num_cursor);
443:
444: END get_next_seq_number;
445:
438:
439: l_count := dbms_sql.execute_and_fetch(l_trx_num_cursor,TRUE);
440:
441: dbms_sql.column_value(l_trx_num_cursor, 1, seq_no);
442: dbms_sql.close_cursor(l_trx_num_cursor);
443:
444: END get_next_seq_number;
445:
446:
948: WHEN Others then
949: null;
950: END update_doc_status;
951:
952: PROCEDURE get_dbms_sql_native (x_dbms_sql_native OUT NOCOPY INTEGER) IS --Bugs 2952004 / 2939830
953: BEGIN
954: x_dbms_sql_native := DBMS_SQL.NATIVE;
955: END get_dbms_sql_native;
956:
950: END update_doc_status;
951:
952: PROCEDURE get_dbms_sql_native (x_dbms_sql_native OUT NOCOPY INTEGER) IS --Bugs 2952004 / 2939830
953: BEGIN
954: x_dbms_sql_native := DBMS_SQL.NATIVE;
955: END get_dbms_sql_native;
956:
957: END JL_ZZ_AR_LIBRARY_1_PKG;
951:
952: PROCEDURE get_dbms_sql_native (x_dbms_sql_native OUT NOCOPY INTEGER) IS --Bugs 2952004 / 2939830
953: BEGIN
954: x_dbms_sql_native := DBMS_SQL.NATIVE;
955: END get_dbms_sql_native;
956:
957: END JL_ZZ_AR_LIBRARY_1_PKG;