create or replace function my_test(p_str varchar2)return numberas--普通变量v_var varchar2(1000);--固定长度数组type v_ar is varray(10) of varchar2(30); my_ar v_ar:=v_ar(‘g‘,‘m‘,‘d‘,‘龚‘,‘帅‘);--可变长度数值type type_array is table of varchar2(20) index by binary_integer;  var_array type_array;  --类似二维数组type serv_array is table of itmis_pri_serv_tbl%rowtype index by binary_integer;   var_serv serv_array;--记录块,保存一条记录的变量，类似C的structTYPE t_myRecord is record (Field1 number,Field2 varchar2(50));var_record t_myRecord;    beginv_var := ‘hello world‘;dbms_output.put_line(v_var); for i in 1..my_ar.count    loop         dbms_output.put_line(my_ar(i));     end loop;   ------------------------------------------ var_array(1):=‘aa‘; var_array(2):=‘bb‘;                    --下标必须是连续的 for i in 1..var_array.count  loop       dbms_output.put_line( var_array(i));    end loop;  -------------------------------------------- 可以作为一个临时表变量来使用--select *  bulk collect into var_serv from itmis_pri_serv_tbl where year =2013; --类似二维数组select * bulk collect into var_serv from itmis_pri_serv_tbl ;--二维数组的访问  for i in 1..var_serv.count loop         dbms_output.put_line(var_serv(i).serv_id);                 dbms_output.put_line(var_serv(i).status);  end loop;--记录快访问WITH temp(id,name) as(select 1,‘sam‘ from dual union allselect 2,‘tom‘ from dual union allselect 3,‘Kelly‘ from dual )Select id,nameInto var_recordFrom tempwhere id = 1;dbms_output.put_line(‘var_record:‘||var_record.Field1||‘  ‘||var_record.Field2) ;return length(p_str);end;/*1.COUNT             返回集合中元素的个数     2.DELETE            删除集合中所有元素     3.DELETE(x)         删除元素下标为x的元素      对VARRAY非法      4.DELETE(x,y)       删除元素下标从X到Y的元素   对VARRAY非法      5.EXIST(x)          如果集合元素x已经初始化，则返回TRUE, 否则返回FALSE     6.EXTEND            在集合末尾添加一个元素      对Index_by非法     7.EXTEND(x)         在集合末尾添加x个元素       对Index_by非法     8.EXTEND(x,n)       在集合末尾添加元素n的x个副本 对Index_by非法     9.FIRST             返回集合中的第一个元素的下标号，对于VARRAY集合始终返回1。     10.LAST              返回集合中最后一个元素的下标号, 对于VARRAY返回值始终等于COUNT.     11.LIMIT             返回VARRY集合的最大的元素个数   Index_by集合和嵌套表无用     12.NEXT(x)           返回在第x个元素之后及紧挨着它的元素值，如果x是最后一个元素，返回null.     13.PRIOR(x)          返回在第x个元素之前紧挨着它的元素的值，如果x是第一个元素，则返回null。     14.TRIM              从集合末端开始删除一个元素  对于index_by不合法     15.TRIM(x)           从集合末端开始删除x个元素    var_array.next(3);   //返回var_array(3)*/