維數 limited syn data 多維數組 loop tput xtran 數組元素

代碼如下：

--PLSQL中沒有數組的概念 用TYPE 和Table of Record來代替多維數組
--create by jenrry 20171028
-- 1.0 建立存放列的測試表
create table cux.cux_test_jenrry_1028
(
line_1 varchar2(240),
line_2 varchar2(240),
line_3 varchar2(240),
line_4 varchar2(240),
line_5 varchar2(240),
line_6 varchar2(240),
line_7 varchar2(240),
line_8 varchar2(240),
line_9 varchar2(240),
line_10 varchar2(240),
line_11 varchar2(240),
line_12 varchar2(240),
line_13 varchar2(240),
line_14 varchar2(240),
line_15 varchar2(240)
)
tablespace APPS_TS_TX_DATA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 128
next 128
minextents 1
maxextents unlimited
pctincrease 0
);
create synonym apps.cux_test_jenrry_1028 for cux.cux_test_jenrry_1028;

--2.0 使用二維數組的一個例子
DECLARE
TYPE test_type IS RECORD(
line_1 cux_test_jenrry_1028.line_1%TYPE,
line_2 cux_test_jenrry_1028.line_2%TYPE,
line_3 cux_test_jenrry_1028.line_3%TYPE,
line_4 cux_test_jenrry_1028.line_4%TYPE,
line_5 cux_test_jenrry_1028.line_5%TYPE,
line_6 cux_test_jenrry_1028.line_6%TYPE,
line_7 cux_test_jenrry_1028.line_7%TYPE,
line_8 cux_test_jenrry_1028.line_8%TYPE,
line_9 cux_test_jenrry_1028.line_9%TYPE,
line_10 cux_test_jenrry_1028.line_10%TYPE,
line_11 cux_test_jenrry_1028.line_11%TYPE,
line_12 cux_test_jenrry_1028.line_12%TYPE,
line_13 cux_test_jenrry_1028.line_13%TYPE,
line_14 cux_test_jenrry_1028.line_14%TYPE,
line_15 cux_test_jenrry_1028.line_15%TYPE); --定義test記錄類型
TYPE test_type_array IS TABLE OF test_type INDEX BY BINARY_INTEGER; --定義存放test記錄的數組類型
test_rec test_type; --聲明變量，類型：test記錄類型
test_rec_array test_type_array; --聲明變量，類型：存放test記錄的數組類型

BEGIN
--數組賦值
test_rec.line_1 := ‘金額/列名‘;
test_rec.line_2 := ‘30‘;
test_rec_array(1) := test_rec;

test_rec.line_1 := ‘23‘;
test_rec.line_3 := ‘11‘;
test_rec_array(2) := test_rec;

--循環輸出數組元素
FOR i IN 1 .. test_rec_array.count LOOP
DBMS_OUTPUT.PUT_LINE(‘i=‘ || i || ‘,line_1=‘ || test_rec_array(i)
.line_1 || ‘,line_2=‘ || test_rec_array(i).line_2);
END LOOP;
END;

PLSQL中使用二維存儲結構---二維數組