Help me to write this pl block

Question

Table name xbrl1
JE_HEADER_ID     JE_LINE_NUM     ENTERED_DR     ENTERED_CR     ACCOUNTED_DR     ACCOUNTED_CR
59,120.00     4.00          136.00          265.99          1          2
59,120.00     5.00          281.00          549.59          1          2
59,120.00     6.00          342.00          668.89          1          2
Table name xbrl2
ERP_FIELDS     ELEMENT_DATA
je_header_id     uniqueID
je_line_num     lineNUM
entered_dr     amount1
entered_cr     amount2
accounted_dr     amount3
accounted_cr     amount4
I hope every one can make it the caps hedding are column name and below is the data.
I want to write a plsql block ( or query) which give me the data from table xbrl1
and column headings from xbrl2 mapping xbrl1.column heading with xbrl2.ERP_FIELDS and taking column heading from xbrl2.ELEMENT_DATA column
some thing like below
oup put
uniqueID     lineNUM          amount1          amount2          amount3          amount4
59,120.00     4.00          136.00          265.99          1          2
59,120.00     5.00          281.00          549.59          1          2
59,120.00     6.00          342.00          668.89          1          2
can any body help me plz, I have requested for environment to test, I will be getting it by today evening can any one of you write me the code for this.
can be assume that if it is a procedure(or block)
I will be passing the in parameter as comma separated columns names of xbrl1 to the procedure it should take the col name as in parameter and give the result as above, if nothing is passed (nul) to the inparameter it should give me all the data of xbrl1 table with column heading coming from xbrl2.ELEMENT_DATA
Thanks in advance.

Answer 1

I have done it in this way... but this is not tested.. as environment is still not there...can any one test this for me...thanks
/* Note:
     Order or execution of scripts:
     1. temp_a
     2. temp_b
     3. sp_a_new.sql (or sp_a_new_2.sql)
drop table temp_a;
drop table temp_b;
create global temporary table temp_a (a_text varchar2(1000)) on commit preserve rows;
create global temporary table temp_b (b_text varchar2(1000)) on commit preserve rows;
CREATE OR REPLACE PROCEDURE sp_a_new (p_i_list VARCHAR2)
AS
v_name VARCHAR2(4000);
v_sql VARCHAR2(4000);
v_count NUMBER(10) := 1;
v_final NUMBER(10);
TYPE t_tab IS TABLE OF VARCHAR2(500) INDEX BY BINARY_INTEGER;
v_mytab t_tab;
idx NUMBER(10);
v_start_pos NUMBER(10);
v_next_pos NUMBER(10);
v_fin_text VARCHAR2(1000);
CURSOR c_temp_b IS
SELECT b_text
FROM temp_b order by rowid;
CURSOR c_main IS
SELECT element_data FROM xbrl2 order by rowid;
BEGIN
IF p_i_list IS NOT NULL THEN
DELETE FROM temp_a;
DELETE FROM temp_b;
COMMIT;
v_start_pos := 1;
idx := 1;
LOOP
SELECT DECODE (INSTR(p_i_list, ',', v_start_pos, 1), 0, LENGTH(p_i_list), INSTR(p_i_list, ',', v_start_pos, 1))
INTO v_next_pos
FROM dual;
IF v_next_pos = LENGTH(p_i_list) THEN
v_mytab(idx) := SUBSTR(p_i_list, v_start_pos, (LENGTH(p_i_list) - v_start_pos + 1));
ELSE
v_mytab(idx) := SUBSTR(p_i_list, v_start_pos, (v_next_pos - v_start_pos));
END IF;
v_start_pos := v_next_pos + 1;
EXIT WHEN v_start_pos > LENGTH(p_i_list);
idx := idx + 1;
END LOOP;
FOR j IN 1..idx
LOOP
v_mytab(j) := RTRIM (v_mytab(j), ',');
-- dbms_output.put_line (v_mytab(j));
v_fin_text := v_mytab(j);
INSERT INTO temp_a VALUES (TRIM(v_fin_text));
END LOOP;
COMMIT;
INSERT INTO temp_b
SELECT element_data
FROM xbrl2, temp_a
WHERE UPPER(erp_fields) = UPPER(temp_a.a_text)
     ORDER BY b.rowid;
SELECT count(1)
INTO v_final
FROM temp_b;
FOR v_temp_b IN c_temp_b
LOOP
IF v_count = 1 THEN
IF v_final = 1 THEN
v_name := v_temp_b.b_text;
ELSE
v_name := v_temp_b.b_text || ', ';
END IF;
ELSIF v_count < v_final THEN
v_name := v_name || v_temp_b.b_text || ', ';
ELSE
v_name := v_name || v_temp_b.b_text;
END IF;
v_count := v_count + 1;
END LOOP;
v_sql := 'CREATE OR REPLACE VIEW vw_a_new2 (' || v_name || ' ) ' ||
'AS ' ||
'SELECT ' || p_i_list || ' FROM xbrl1 ' ||
               'ORDER BY xbrl1.rowid';
ELSE
SELECT count(element_data)
INTO v_final
FROM xbrl2;
FOR v_main IN c_main
LOOP
IF v_count = 1 THEN
v_name := v_main.element_data || ', ';
ELSIF v_count < v_final THEN
v_name := v_name || v_main.element_data || ', ';
ELSE
v_name := v_name || v_main.element_data;
END IF;
v_count := v_count + 1;
END LOOP;
DBMS_OUTPUT.PUT_LINE (v_name);
v_sql := 'CREATE OR REPLACE VIEW vw_a_new (' || v_name || ' ) ' ||
'AS ' ||
'SELECT * FROM xbrl1 ' ||
                    'ORDER BY xbrl1.rowid';
END IF;
EXECUTE IMMEDIATE v_sql;
END sp_a_new_2;
Exec sp_a_new('je_line_num,entered_dr');
select * from vw_a_new;