42:
43: -- Getting the current Sequence value
44: BEGIN
45:
46: v_cursorID:=DBMS_SQL.OPEN_CURSOR;
47: v_seq_stmt:='SELECT '||cct_schema||'.'||sequence_name||'.NEXTVAL from dual';
48: --dbms_output.put_line(v_seq_stmt);
49: DBMS_SQL.PARSE(v_cursorID,v_seq_stmt,DBMS_SQL.V7);
50: --dbms_output.put_line('after parsing');
45:
46: v_cursorID:=DBMS_SQL.OPEN_CURSOR;
47: v_seq_stmt:='SELECT '||cct_schema||'.'||sequence_name||'.NEXTVAL from dual';
48: --dbms_output.put_line(v_seq_stmt);
49: DBMS_SQL.PARSE(v_cursorID,v_seq_stmt,DBMS_SQL.V7);
50: --dbms_output.put_line('after parsing');
51: DBMS_SQL.DEFINE_COLUMN(v_cursorID,1,l_seq_val,10);
52: --dbms_output.put_line('after define column');
53: v_dummy:=DBMS_SQL.EXECUTE(v_cursorID);
47: v_seq_stmt:='SELECT '||cct_schema||'.'||sequence_name||'.NEXTVAL from dual';
48: --dbms_output.put_line(v_seq_stmt);
49: DBMS_SQL.PARSE(v_cursorID,v_seq_stmt,DBMS_SQL.V7);
50: --dbms_output.put_line('after parsing');
51: DBMS_SQL.DEFINE_COLUMN(v_cursorID,1,l_seq_val,10);
52: --dbms_output.put_line('after define column');
53: v_dummy:=DBMS_SQL.EXECUTE(v_cursorID);
54: --dbms_output.put_line('after execute 1');
55: Loop
49: DBMS_SQL.PARSE(v_cursorID,v_seq_stmt,DBMS_SQL.V7);
50: --dbms_output.put_line('after parsing');
51: DBMS_SQL.DEFINE_COLUMN(v_cursorID,1,l_seq_val,10);
52: --dbms_output.put_line('after define column');
53: v_dummy:=DBMS_SQL.EXECUTE(v_cursorID);
54: --dbms_output.put_line('after execute 1');
55: Loop
56: if DBMS_SQL.FETCH_ROWS(v_cursorID)=0 THEN
57: --dbms_output.put_line('exiting');
52: --dbms_output.put_line('after define column');
53: v_dummy:=DBMS_SQL.EXECUTE(v_cursorID);
54: --dbms_output.put_line('after execute 1');
55: Loop
56: if DBMS_SQL.FETCH_ROWS(v_cursorID)=0 THEN
57: --dbms_output.put_line('exiting');
58: exit;
59: end if;
60: --dbms_output.put_line('before col valu');
57: --dbms_output.put_line('exiting');
58: exit;
59: end if;
60: --dbms_output.put_line('before col valu');
61: DBMS_SQL.COLUMN_VALUE(v_cursorID,1,l_seq_val);
62: --dbms_output.put_line(l_seq_val);
63: END LOOP;
64: DBMS_SQL.CLOSE_CURSOR(v_cursorID);
65: Exception
60: --dbms_output.put_line('before col valu');
61: DBMS_SQL.COLUMN_VALUE(v_cursorID,1,l_seq_val);
62: --dbms_output.put_line(l_seq_val);
63: END LOOP;
64: DBMS_SQL.CLOSE_CURSOR(v_cursorID);
65: Exception
66: When others then
67: l_missing_sequence:=sequence_name;
68: raise sequence_not_found;
69: end;
70:
71: -- Getting the max column value from the table
72: BEGIN
73: v_cursorID1:=DBMS_SQL.OPEN_CURSOR;
74: v_max_stmt:='SELECT max('||column_name||') from '||cct_schema||'.'||table_name;
75: --dbms_output.put_line(v_max_stmt);
76: DBMS_SQL.PARSE(v_cursorID1,v_max_stmt,DBMS_SQL.V7);
77: --dbms_output.put_line('after parsing');
72: BEGIN
73: v_cursorID1:=DBMS_SQL.OPEN_CURSOR;
74: v_max_stmt:='SELECT max('||column_name||') from '||cct_schema||'.'||table_name;
75: --dbms_output.put_line(v_max_stmt);
76: DBMS_SQL.PARSE(v_cursorID1,v_max_stmt,DBMS_SQL.V7);
77: --dbms_output.put_line('after parsing');
78: DBMS_SQL.DEFINE_COLUMN(v_cursorID1,1,l_max_val,10);
79: --dbms_output.put_line('after define column');
80: v_dummy1:=DBMS_SQL.EXECUTE(v_cursorID1);
74: v_max_stmt:='SELECT max('||column_name||') from '||cct_schema||'.'||table_name;
75: --dbms_output.put_line(v_max_stmt);
76: DBMS_SQL.PARSE(v_cursorID1,v_max_stmt,DBMS_SQL.V7);
77: --dbms_output.put_line('after parsing');
78: DBMS_SQL.DEFINE_COLUMN(v_cursorID1,1,l_max_val,10);
79: --dbms_output.put_line('after define column');
80: v_dummy1:=DBMS_SQL.EXECUTE(v_cursorID1);
81: --dbms_output.put_line('after execute 2');
82: Loop
76: DBMS_SQL.PARSE(v_cursorID1,v_max_stmt,DBMS_SQL.V7);
77: --dbms_output.put_line('after parsing');
78: DBMS_SQL.DEFINE_COLUMN(v_cursorID1,1,l_max_val,10);
79: --dbms_output.put_line('after define column');
80: v_dummy1:=DBMS_SQL.EXECUTE(v_cursorID1);
81: --dbms_output.put_line('after execute 2');
82: Loop
83: if DBMS_SQL.FETCH_ROWS(v_cursorID1)=0 THEN
84: --dbms_output.put_line('exiting');
79: --dbms_output.put_line('after define column');
80: v_dummy1:=DBMS_SQL.EXECUTE(v_cursorID1);
81: --dbms_output.put_line('after execute 2');
82: Loop
83: if DBMS_SQL.FETCH_ROWS(v_cursorID1)=0 THEN
84: --dbms_output.put_line('exiting');
85: exit;
86: end if;
87: --dbms_output.put_line('before col valu');
84: --dbms_output.put_line('exiting');
85: exit;
86: end if;
87: --dbms_output.put_line('before col valu');
88: DBMS_SQL.COLUMN_VALUE(v_cursorID1,1,l_max_val);
89: --dbms_output.put_line(l_max_val);
90: END LOOP;
91: DBMS_SQL.CLOSE_CURSOR(v_cursorID1);
92: Exception
87: --dbms_output.put_line('before col valu');
88: DBMS_SQL.COLUMN_VALUE(v_cursorID1,1,l_max_val);
89: --dbms_output.put_line(l_max_val);
90: END LOOP;
91: DBMS_SQL.CLOSE_CURSOR(v_cursorID1);
92: Exception
93: When others then
94: raise_application_error(-20000, 'Column '||table_name||':'||column_name||' SQLERRM::'||sqlerrm || '. Could not get the max value.');
95: end;