TYPE int_arr IS TABLE OF INTEGER INDEX BY BINARY_INTEGER;

procedure qsort(arr in out int_arr, lo in INTEGER, hi in INTEGER ) is
i INTEGER := lo;
j INTEGER := hi;
x INTEGER := arr((lo+hi)/2);
tmp INTEGER;
begin
     LOOP
         WHILE (arr(i) < x) LOOP
               i := i + 1;
         END LOOP;
         WHILE arr(j) > x LOOP
               j := j - 1;
         END LOOP;
         IF i <= j THEN
            tmp := arr(i);
            arr(i) := arr(j);
            arr(j) := tmp;
            i := i + 1;
            j := j - 1;
         END IF;
     EXIT WHEN i > j;    
     END LOOP;
     IF lo < j THEN
        qsort(arr, lo, j);
     END IF;
     IF i < hi THEN
        qsort(arr, i, hi);
     END IF;
end qsort;

WHILE (arr(i) < x) OR (arr(i) IS NULL) LOOP
               i := i + 1;
END LOOP;

PROMPT SQL TYPE creation
CREATE TYPE int_arr IS TABLE OF INTEGER;
/

REM PROMPT FUNCTION CREATION
CREATE PROCEDURE qsort(p_arr IN OUT int_arr)
IS
 new_arr int_arr := new int_arr(); 
BEGIN
  FOR rec IN ( SELECT column_value FROM TABLE(p_arr) ORDER BY column_value NULLS FIRST)
  LOOP
    new_arr.extend();
    new_arr(new_arr.last) := rec.column_value;
  END LOOP;
  p_arr := new_arr;  
END qsort;
/
sho err

PROMPT Fill the type
SET SERVEROUT ON


DECLARE
  v_arr int_arr := new int_arr( 18, 19, 16, 3, 19, 5, 2, 2, NULL, 3, NULL
                              , 17, 4, 6, 15, 7, 10, 14, 6, 15, NULL);
BEGIN
  qsort(v_arr);
  
  FOR j IN v_arr.FIRST..v_arr.LAST
  LOOP
    dbms_output.put_line(j||':'||v_arr(j));
  END LOOP;
END;
/

PROMPT cleanup
DROP PROCEDURE qsort
/

DROP TYPE int_arr
/

SQL> @C:\useful\orafaq
SQL TYPE creation

Type created.


Procedure created.

No errors.
Fill the type
1:
2:
3:
4:2
5:2
6:3
7:3
8:4
9:5
10:6
11:6
12:7
13:10
14:14
15:15
16:15
17:16
18:17
19:18
20:19
21:19

PL/SQL procedure successfully completed.

cleanup

Procedure dropped.


Type dropped.

SQL>