create or replace function my_test(p_str varchar2)
return number
as
--普通变量
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的struct
TYPE t_myRecord is record (
Field1 number,
Field2 varchar2(50));
var_record t_myRecord;
    
begin
v_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 all
select 2,‘tom‘ from dual union all
select 3,‘Kelly‘ from dual 
)
Select id,name
Into var_record
From temp
where 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)
*/