How to print all values in record datatype?

Question

Hello friends ,
I wrote one function which returned the  departments record type.
when  ever I called the function that returned departments record type and stored  in department record type variable..I have to print all the values in record...
What  can I do???
My code is like this...
set serveroutput on
declare
type depcur is ref cursor return departments%rowtype;
dep depcur;
rec departments%rowtype;
function ref_cur_demo(ref1  in depcur) return departments%rowtype
is
v_dep departments%rowtype;
begin
loop
fetch ref1 into v_dep;
exit when ref1%notfound;
end loop;
return v_dep;
end;
begin
open dep for select *from departments;
rec:=ref_cur_demo(dep);
--Here I have to print all the record variables;
end;

Answer 1

Hi Gopi,
You have to write the program in different way. In your case the function always returns only one value. You can see only one department detail as output.
To display a record type variable you need to use record type variable name .(dot) field name.
SQL> set serveroutput on
SQL> declare
  2  type depcur is ref cursor return departments%rowtype;
  3  dep depcur;
  4  rec departments%rowtype;
  5  function ref_cur_demo(ref1  in depcur) return departments%rowtype
  6  is
  7  v_dep departments%rowtype;
  8  begin
  9  loop
10  fetch ref1 into v_dep;
11  exit when ref1%notfound;
12  end loop;
13  return v_dep;
14  end;
15  begin
16  open dep for select *from departments;
17  rec:=ref_cur_demo(dep);
18  --Here I have to print all the record variables;
19  dbms_output.put_line(rec.department_id||'  '|| rec.department_name||'    '|| rec.manager_id||'    '||rec.location_id);
20  end;
21  /
270  Payroll        1700
PL/SQL procedure successfully completed.
Here is the sample code which will demonstrates using ref cursors.
SQL> create or replace function get_dept_detail
  2  return sys_refcursor
  3  is
  4
  5     x_res sys_refcursor;
  6
  7  begin
  8
  9     open x_res for select * from departments;
10     return x_res;
11
12  end get_dept_detail;
13  /
Function created.
SQL>
SQL>
SQL> -- Execution
SQL>
SQL> declare
  2
  3      res sys_refcursor;
  4      l_rec departments%rowtype;
  5
  6  begin
  7
  8     res := get_dept_detail;
  9
10     loop
11        fetch res into l_rec;
12        exit when res%notfound;
13        dbms_output.put_line( l_rec.department_id||'  '||l_rec.department_name);
14     end loop;
15
16  end;
17  /
10  Administration
20  Marketing
30  Purchasing
40  Human Resources
50  Shipping
60  IT
70  Public Relations
80  Sales
90  Executive
100  Finance
110  Accounting
120  Treasury
130  Corporate Tax
140  Control And Credit
150  Shareholder Services
160  Benefits
170  Manufacturing
180  Construction
190  Contracting
200  Operations
210  IT Support
220  NOC
230  IT Helpdesk
240  Government Sales
250  Retail Sales
260  Recruiting
270  Payroll
PL/SQL procedure successfully completed.
SQL>
SQL> -- In SQL*PLUS
SQL>
SQL> var res refcursor
SQL> execute :res := get_dept_detail;
PL/SQL procedure successfully completed.
SQL>
SQL> print res;
DEPARTMENT_ID DEPARTMENT_NAME                MANAGER_ID LOCATION_ID
           10 Administration                        200        1700
           20 Marketing                             201        1800
           30 Purchasing                            114        1700
           40 Human Resources                       203        2400
           50 Shipping                              121        1500
           60 IT                                    103        1400
           70 Public Relations                      204        2700
           80 Sales                                 145        2500
           90 Executive                             100        1700
          100 Finance                               108        1700
          110 Accounting                            205        1700
DEPARTMENT_ID DEPARTMENT_NAME                MANAGER_ID LOCATION_ID
          120 Treasury                                         1700
          130 Corporate Tax                                    1700
          140 Control And Credit                               1700
          150 Shareholder Services                             1700
          160 Benefits                                         1700
          170 Manufacturing                                    1700
          180 Construction                                     1700
          190 Contracting                                      1700
          200 Operations                                       1700
          210 IT Support                                       1700
          220 NOC                                              1700
DEPARTMENT_ID DEPARTMENT_NAME                MANAGER_ID LOCATION_ID
          230 IT Helpdesk                                      1700
          240 Government Sales                                 1700
          250 Retail Sales                                     1700
          260 Recruiting                                       1700
          270 Payroll                                          1700
27 rows selected.
SQL>
Cheers,
Suri ;-)