数组在 PL/SQL 的使用

DECLARE
    --  Local variables here
   ID  VARCHAR2 ( 20 ) : =   ' 9020071025101010 ' ;
   TEMPID  VARCHAR2 ( 20 ) : =   '' ;
     -- 定义VARCHAR2的数组以及大小
   TYPE ARRSYVAR  IS  VARRAY( 2 )  OF   VARCHAR2 ( 30 ); 
   ARRAYPARA ARRSYVAR;  -- 数组变量
  BEGIN
    --  Test statements here
   ARRAYPARA : =  ARRSYVAR( ' 1234567 ' ,  ' 2345678 ' );  -- 数组初始化
    FOR  K  IN   1  ..  2  LOOP
      --  calculate pi with 100 terms
     TEMPID : =  ID  ||  TO_CHAR(K);
      INSERT   INTO  TI_ORDER_CD  (ORDERID,MSISDN,SWITCHID,PRIORITY,STATE,CREATE_TIME)
      VALUES (TEMPID,ARRAYPARA(K), ' PHS ' , ' 0 ' , ' K ' ,SYSDATE);
      INSERT   INTO  TI_ORDER_SERV_CD(ORDERID, SERVID, SERVCODE)  VALUES (TEMPID,  ' 0 ' ,  ' CG001 ' );
      INSERT   INTO  TI_ORDER_VAR_CD(ORDERID, PARACODE, PARAVALUE)  VALUES (TEMPID,  ' X009 ' , ARRAYPARA(K));  -- 数组取值
    END  LOOP;
  END ;