create or replace procedure po_test_varray
(
oi_return out integer
)
/** head
* @name app#
* @caption
* @type 小时汇总
* @parameter iv_hour in varchar2 统计月份,格式:yyyymmddhh
* @parameter oi_return out integer 执行状态码,0 正常,其它 出错
* @version 1.0
* @create-date 2012-8-6
* @copyright slf
*/
is
/**
* @description 变量定义
* @variable-define vi_task_id integer 任务日志id
* @variable-define vv_task_name varcshar2 任务名称
* @variable-define vv_table_name varchar2 表名称
* @variable-define vv_task_pos varchar2 任务位置
* @variable-define vi_result integer 临时结果
* @variable-define vi_chk_flag integer 判断标识
* @variable-define vi_err_code integer 错误信息代码
* @variable-define vv_err_msg varchar2 错误信息详情
* @variable-define exc_return exception 程序中间返回自定义异常
* @variable-define exc_error exception 程序出错返回自定义异常
*/
type varray_t3 is table of dim.td_mile%rowtype index by binary_integer;
varray3 varray_t3;
i integer;
begin
i:= 0;
for x in (select * from dim.td_mile where rownum<10) loop
varray3(i):=x;
i:=i+1;
end loop;
for i in 0 ..8 loop
dbms_output.put_line('varray3('||i||').mile_id='||varray3(i).mile_id);
dbms_output.put_line('varray3('||i||').mile_name='||varray3(i).mile_name);
dbms_output.put_line('varray3('||i||').mile='||varray3(i).mile);
dbms_output.put_line('varray3('||i||').mile_unit='||varray3(i).mile_unit);
dbms_output.put_line('varray3('||i||').day_max='||varray3(i).day_max);
dbms_output.put_line('varray3('||i||').mon_max='||varray3(i).mon_max);
dbms_output.put_line('varray3('||i||').mon_total_max='||varray3(i).mon_total_max);
end loop;
oi_return := 0;
end;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/25903968/viewspace-1674948/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/25903968/viewspace-1674948/