How to Print all values stored in an Associative array

Question

DB version:10gR2
There can be multiple results(multiple rows) for the below query. So, i'll have to declare the variables v_sid_serial, v_orauser, v_objectname,v_objecttype as associative arrays.
SELECT l.session_id||','||v.serial# sid_serial, l.ORACLE_USERNAME,o.object_name,o.object_type,
       into v_sid_serial, v_orauser, v_objectname,v_objecttype
FROM dba_objects o, v$locked_object l, v$session v
WHERE o.object_id = l.object_id
      and l.SESSION_ID=v.sid;But I want to store the results from the above query in flat file. I want the result set to look like
SID_SERIAL      ORA_USER               OBJECT_NAME           
742,32914    SCOTT                        EMP
873,49832    HR                           EMPLOYEES
893,9437     mytestschema                 emp_dtls
.            .How can i print the values in Associative arrays in the above manner so that i can spool the result set to a flat file?
Edited by: user10373231 on Sep 29, 2008 5:19 AM

Answer 1

user10373231 wrote:
is there any way to print all values stored in an Associative arrayPrint to where?
You could use DBMS_OUTPUT to get the output on the screen within SQL*Plus.
You could also output (pipe) the data from PL/SQL using a pipelined function that you select from SQL. An example of a pipelined function...
SQL> CREATE OR REPLACE TYPE myrec AS OBJECT
  2  ( col1   VARCHAR2(10),
  3    col2   VARCHAR2(10)
  4  )
  5  /
Type created.
SQL>
SQL> CREATE OR REPLACE TYPE myrectable AS TABLE OF myrec
  2  /
Type created.
SQL>
SQL> CREATE OR REPLACE FUNCTION pipedata(p_str IN VARCHAR2) RETURN myrectable PIPELINED IS
  2    v_str VARCHAR2(4000) := REPLACE(REPLACE(p_str, '('),')');
  3    v_obj myrec := myrec(NULL,NULL);
  4  BEGIN
  5    LOOP
  6      EXIT WHEN v_str IS NULL;
  7      v_obj.col1 := SUBSTR(v_str,1,INSTR(v_str,',')-1);
  8      v_str := SUBSTR(v_str,INSTR(v_str,',')+1);
  9      IF INSTR(v_str,',')>0 THEN
10        v_obj.col2 := SUBSTR(v_str,1,INSTR(v_str,',')-1);
11        v_str := SUBSTR(v_str,INSTR(v_str,',')+1);
12      ELSE
13        v_obj.col2 := v_str;
14        v_str := NULL;
15      END IF;
16      PIPE ROW (v_obj);
17    END LOOP;
18    RETURN;
19  END;
20  /
Function created.
SQL>
SQL> create table mytab (col1 varchar2(10), col2 varchar2(10));
Table created.
SQL>
SQL> insert into mytab (col1, col2) select col1, col2 from table(pipedata('(1,2),(2,3),(4,5)'));
3 rows created.
SQL>
SQL> select * from mytab;
COL1       COL2
1          2
2          3
4          5... which you can easily adapt to output whatever data you want e.g. you could loop through your associative array and pipe out the values within it.