Help me to get the expected output for this procedure

Question

Hi
i wrote a procedure in this way
create or replace PROCEDURE compare_data(tabname in varchar2 default 'VARE_PPP',current_version in integer default 258,previous_version in integer default 253)
is
TYPE table_type IS TABLE OF varchar2(4000)
INDEX BY BINARY_INTEGER;
t1 table_type ;
SUBTYPE max_varchar2_t IS VARCHAR2 (32767);
stmt_col_list max_varchar2_t;
stmt_row_val max_varchar2_t;
col_select_list max_varchar2_t := NULL;
col_list_tab1 max_varchar2_t := NULL;
col_list_tab2 max_varchar2_t := NULL;
col_list max_varchar2_t := NULL;
select_list_ver1 max_varchar2_t :=NULL;
select_list_ver2 max_varchar2_t := NULL;
type t_crs is ref cursor;
c_get_diff t_crs;
procedure get_header(tabname in varchar2) is
col_name varchar2(100);
cursor c_column_list is
select COLUMN_NAME from all_tab_columns WHERE table_name = tabname and column_name not in('VERSION','LAST_MODIFIED_TIMESTAMP','LAST_MODIFIED_USER') order by COLUMN_ID asc;
--stmt_col_list := 'select COLUMN_NAME from all_tab_columns WHERE table_name = '||tabname||' and column_name not like != '||temp1||' and column_name != '||temp2||' and column_name != '||temp3||' order by COLUMN_ID asc' ;
begin
col_select_list := 'tab1.version';
htp.tableheader('Version');
open c_column_list ; --for stmt_col_list;
loop
fetch c_column_list into col_name;
exit when c_column_list%notfound;
htp.tableheader(col_name);
if col_name not like 'LAST_MODIFIED_TIMESTAMP' or col_name not like 'LAST_MODIFIED_USER' then
if col_list_tab1 is null then
col_list_tab1 :='tab1.'||col_name;
col_list_tab2 :='tab2.'||col_name;
col_list := col_name;
elsif col_name not like '%END%' then
--dbms_output.put_line('deepak:'||g_columns (l_index).column_name);
col_list_tab1 :=
col_list_tab1 || '||' ||'tab1.'||col_name;
col_list_tab2 :=
col_list_tab2 || '||' ||'tab2.'||col_name;
col_list :=
col_list || ',' ||col_name;
end if;
col_select_list :=
col_select_list || ', ' ||'tab1.'||col_name;
end if;
end loop;
DBMS_OUTPUT.put_line('col_select_list:'||col_select_list);
DBMS_OUTPUT.put_line('col_list_tab1:'||col_list_tab1);
DBMS_OUTPUT.put_line('col_list_tab2:'||col_list_tab2);
DBMS_OUTPUT.put_line('col_list:'||col_list);
close c_column_list;
end get_header;
procedure get_difference(ver1 in integer,ver2 in integer) is
name_column varchar2(100) ;
begin
select_list_ver1 := 'SELECT '||col_list||' FROM '||tabname||' WHERE VERSION = '||current_version;
select_list_ver2 := 'SELECT '||col_list||' FROM '||tabname||' WHERE VERSION = '||previous_version;
stmt_row_val := 'select '||col_select_list||' from '||tabname||' tab1,('||select_list_ver1||' minus '||select_list_ver2||' ) tab2 where '||col_list_tab1||'='||col_list_tab2||' and tab1.version in ('||current_version||','||previous_version||')';
open c_get_diff for stmt_row_val;
loop
fetch c_get_diff bulk collect into t1;
for cnt in t1.first..t1.last
loop
htp.tabledata(t1(cnt));
dbms_output.put_line(t1(cnt));
end loop;
exit when c_get_diff%notfound;
end loop;
close c_get_diff;
end get_difference;
begin
htp.htmlopen;
htp.bodyopen;
htp.tableopen(cattributes=>'border="2",bordercolor="BLACK",width="60%",align="CENTER"');
htp.tablerowopen;
get_header(tabname);
htp.tableheader('Remark');
htp.tablerowclose;
htp.tablerowopen;
get_difference(current_version,previous_version);
htp.tabledata('New/Modified');
htp.tablerowclose;
htp.tablerowopen;
get_difference(previous_version,current_version);
htp.tabledata('Deleted');
htp.tablerowclose;
htp.bodyclose;
htp.htmlclose;
end compare_data;
no errors are there but i am not getting the proper result mine expected result is
253.00 TT Null 11/1/2006 12/31/2099 Y
258.00 NBK Null 11/1/2006 12/31/2099 Y
but i am getting
258
258
can anyone help me out,why i am not getting the expected result.
values which i am using in the query to execute dynamically are
col_select_list:tab1.version, tab1.PPP_WCC_TYPE, tab1.PPP_WCC_PREFIX_TYPE, tab1.PPP_START_DATE, tab1.PPP_END_DATE, tab1.PPP_INDICATOR
col_list_tab1:tab1.PPP_WCC_TYPE||tab1.PPP_WCC_PREFIX_TYPE||tab1.PPP_START_DATE||tab1.PPP_INDICATOR
col_list_tab2:tab2.PPP_WCC_TYPE||tab2.PPP_WCC_PREFIX_TYPE||tab2.PPP_START_DATE||tab2.PPP_INDICATOR
col_list:PPP_WCC_TYPE,PPP_WCC_PREFIX_TYPE,PPP_START_DATE,PPP_INDICATOR

Answer 1

I wish I knew your application !!!