Getting column names from cursor

Question

Hi all
I have procedure which produces list of applied for jobs web page(using htp. package)
I got result in cursor, but have to provide dinamic sort, based on colimn pressed
procedure my_application_list
(pi_resume_num     in varchar2 default null
,pi_sort_col     in varchar2 default null
,pi_page_no     in varchar2 default null
,pi_action     in varchar2 default null
,pi_msg          in varchar2 default null
is
CURSOR cur_job IS
     SELECT      jtl.JOB_TITLE
          ,jtl.COMPANY_NAME
          ,a.APPLY_DATE
          ,a.lang
          ,a.job_id
     FROM job_tl jtl, applied_for_job a, gateway gt
     WHERE a.job_seeker_id=app.job_Seeker
     AND a.job_id=jtl.job_id
     AND a.lang=jtl.lang
     AND a.gateway=gt.gateway
     AND jtl.lang=(SELECT substr(MIN(lt.order_list||jtl0.lang),2) lang
               FROM      job_tl jtl0
                    ,language_tl lt
               WHERE jtl0.job_id = a.job_id
               AND jtl0.lang=lt.lang
               AND lt.gui_lang=app.language)
     ORDER BY pi_sort_col
rest of code
The columns displayed in web page are Job_title, Company_name and Applied_date
This page is displyed well, bu without column nmes at the top. I am trying to get column names from cursor in order to have ORDER BY <pi_sort_col>
can someone help how i can get those column names:Job_title, Company_name and Applied_date
User will be able to click on column and sort
Thank in advance .I appreciate any help

Answer 1

Hi Francisco
Here is my code
CREATE OR REPLACE PACKAGE BODY cc_web_application_list
IS
TYPE COL_NAME_LIST IS TABLE OF VARCHAR2(100)
     INDEX BY BINARY_INTEGER;
TYPE COL_ORDER_LIST IS TABLE OF VARCHAR2(30)
     INDEX BY BINARY_INTEGER;
col_name_t col_name_list;
col_order_t col_order_list;
procedure my_application_list
     (pi_resume_num     in varchar2 default null
     ,pi_sort_col     in varchar2 default null
     ,pi_page_no     in varchar2 default null
     ,pi_action     in varchar2 default null
     ,pi_msg          in varchar2 default null
is
l_my_page_no      PLS_INTEGER :=     TO_NUMBER(nvl(pi_page_no,1));
l_js_name          gam_user.username%TYPE;
l_js_first_name          gam_user.first_name%TYPE;
l_cnt                PLS_INTEGER := 0;
l_scr_lines      PLS_INTEGER := 0;
l_curline           PLS_INTEGER;
l_jobs_applied           PLS_INTEGER;
l_total_rec      PLS_INTEGER;
l_total_pages      PLS_INTEGER;
l_pos               PLS_INTEGER;
l_first               PLS_INTEGER :=0;
last                PLS_INTEGER :=0;
l_lines           PLS_INTEGER := 10;
col_name      VARCHAR2(100) := col_name_t(3) ;
col_order           VARCHAR2(30) := 'DESC';
str                VARCHAR2(2000);
TYPE display_rec IS TABLE OF VARCHAR2(500) INDEX BY BINARY_INTEGER;
display           display_rec;
TYPE page_table_type IS TABLE OF PLS_INTEGER INDEX BY BINARY_INTEGER;
page_number          page_table_type;
CURSOR cur_job IS
     SELECT      jtl.JOB_TITLE job_title
          ,jtl.COMPANY_NAME company_name
          ,a.APPLY_DATE apply_date
          ,a.lang
          ,a.job_id
     FROM job_tl jtl, applied_for_job a, gateway gt
     WHERE a.job_seeker_id=app.job_Seeker
     AND a.job_id=jtl.job_id
     AND a.lang=jtl.lang
     AND a.gateway=gt.gateway
     ORDER BY a.apply_date;
This decode is a problem
          decode(col_order,'ASC'
               ,decode(col_name
               ,col_name_t(1), jtl.job_title
               ,col_name_t(2), jtl.company_name
               ,col_name_t(3), TO_CHAR(a.apply_date, 'YYYYMMDDhh24miss')
               ,a.apply_date)
               ) ASC
          ,decode(col_order,'DESC'
               ,decode(col_name
               ,col_name_t(1), jtl.job_title
               ,col_name_t(2), jtl.company_name
               ,col_name_t(3), TO_CHAR(a.apply_date, 'YYYYMMDDhh24miss')
               ,a.apply_date)
               ) DESC
          ,a.apply_date
TYPE rec_one IS TABLE OF cur_job%ROWTYPE INDEX BY BINARY_INTEGER;
r               rec_one;
BEGIN
BEGIN
SELECT username,first_name
INTO l_js_name,l_js_first_name
FROM gam_user
WHERE user_id = App.job_seeker;
EXCEPTION
WHEN OTHERS THEN NULL;
END;
Cc_Pkg_Elements.p_page_top_job_seeker(
'Personal Job List'
,REPLACE(Txt_Proc_My_Joblist.title_job_list
     ,'##first_name##',l_js_first_name),'N' ,TRUE ,'Pxx');
----- get numer of records returned by query
SELECT COUNT(1)
INTO l_total_rec
FROM     job_tl jtl,applied_for_job a
     ,gateway gt
WHERE a.job_id = jtl.job_id
AND     a.job_seeker_id     = App.job_seeker
AND     a.gateway     = gt.gateway ;
------get number of pages
l_total_pages:=CEIL (l_total_rec/l_lines);
l_jobs_applied := 0;
col_name := pi_sort_col;
col_order := pi_sort_col;
--get first positions
l_first := (nvl(l_my_page_no,1) - 1) * l_lines + 1;
FOR rec IN cur_job LOOP
     l_cnt := l_cnt + 1;
     EXIT WHEN l_cnt > l_first + l_lines - 1;
     IF l_cnt >= l_first THEN
          l_scr_lines := l_scr_lines + 1;      
          r(l_scr_lines) := rec;          --assign counter from loop to r index
          IF rec.apply_date IS NOT NULL THEN
          l_jobs_applied := l_jobs_applied + 1;
          END IF;
     END IF;
END LOOP;
htp.p('<FORM ACTION="'||App.gateway||'8.my_application_list" METHOD="post">');
htp.p('<table align="center">');
htp.p('<tr><td>');
IF r.COUNT = 0 THEN
     Web_Pkg_Elements.doc_msg(Txt_Proc_My_Joblist.no_jobs);
END IF;
htp.p('</td></tr>');
htp.p('</table>');
--table_heading(col_name ,col_order );
htp.p('<table align=center>');
htp.p('<tr align="center"><td>');
FOR i IN 1..l_total_pages LOOP
     page_number(i) := i;
     IF page_number(i) = l_total_pages THEN
          htp.p('');
||'');
          Web_Pkg_Elements.doc_val_small(page_number(i)||'</A>');          
     ELSE
     htp.p('');
|'||'');
     Web_Pkg_Elements.doc_val_small(page_number(i)||' |'||'</A>');     
     END IF;
END LOOP;
htp.p('</td></tr>');
htp.p('</table>');
htp.p('<table align=center>');
FOR l_curline IN 1..l_scr_lines LOOP
     display(1) := NVL(r(l_curline).job_title, '<br>');
     display(2) := NVL(r(l_curline).company_name, '<br>');
     display(3) := NVL(Cc_Pkg_Nls.date2char(r(l_curline).apply_date, App.date_format), '<br>');
     IF MOD(l_curline, 2) = 0 THEN     
          Cc_Pkg_Elements.tr_even;
     ELSE
          Cc_Pkg_Elements.tr_odd;
     END IF;
     htp.p('<td>');
     htp.p('');
     Web_Pkg_Elements.doc_val(display(1)||'');
     htp.p('</td>');
     htp.p('<td>');
     Web_Pkg_Elements.doc_val(display(2));
     htp.p('</td>');
     htp.p('     <td>');
     Web_Pkg_Elements.doc_val(display(3));
     htp.p('     </td>');
htp.p('</tr>');
END LOOP;
htp.p('</TABLE>');
htp.p('<TABLE width="88%" BORDER="0" CELLPADDING="0" CELLSPACING="0"
               align="center">');
htp.p('<tr valign=bottom>');
htp.p('<TD colspan=2 align=right>');
IF l_my_page_no > 1 THEN
     htp.p('<P>'||'<IMG SRC="'||App.image||'prev.gif" ALT="'
     ||Txt_Proc_My_Joblist.prev
     ||'"'     ||' HEIGHT=20 BORDER=0 ALIGN=bottom '
     ||'hspace=2>');
END IF;
IF l_my_page_no < CEIL (l_total_rec/l_lines) THEN
     htp.p(' <a href="'||
     web_pkg_elements.link$$(App.gateway||'8.my_application_list?'
     ||'pi_sort_col='||Web_Pkg_Elements.replace_in_url(pi_sort_col)
     ||'&pi_msg=&pi_page_no='||TO_CHAR(l_my_page_no + 1)
     ||">'||'<IMG SRC="'||App.image||'next.gif" ALT="'
     ||Txt_Proc_My_Joblist.NEXT
     ||'"' ||' HEIGHT=20 BORDER=0 ALIGN=bottom '
     ||'hspace=2></a>');
END IF;
htp.p('</TD>');
htp.p('</TR>');
htp.p('     </TABLE>');
htp.formHidden('pi_sort_col', pi_sort_col);
htp.formHidden('pi_page_no', pi_page_no);
htp.p('</FORM>');
END my_application_list;
END ; --cc_pkg_application_list