以下の方法でオラクルストアドに配列渡しを試みたのですが、エラーとなってしまいます。
会議室にあるストアド関連を検索して、参考にして４日ほど考えたのですが、はまってしまいました。よろしくお願い
します。（貧乏なのでマニュアルは何もありません。）

ストアドのＢＯＤＹ部のエラー行は-- *****でコメントしています。
エラー内容は
ORA-06502:PL/SQL:値または数値エラーが発生しました。
ORA-06512:\"TESTDB.BODYA\", 行:１２
ORA-06512:行１

【PBからの呼出スクリプトの記述】
long cnt, max
int n,x1
String out1, out2
String ary[], buf
n = 2
buf = Space(10)
// 実行
max = 10
// 必要な配列を初期化
FOR cnt = 1 TO max
ary[cnt] = buf
NEXT
ary[1] = \'3\'
ary[2] = \'2\'
SQLCA.test1( n, ary, x1, out2 )
messagebox(\"\",sqlca.sqlerrtext)

【transaction オブジェクトのローカル外部関数の記述】
subroutine test1( integer in_cnt, string in_arr[], ref integer out1, ref string out2 ) RPCFUNC 
ALIAS FOR \"TESTDB.bodya.pro1\"

【-- パッケージ　仕様部】
CREATE OR REPLACE PACKAGE TESTDB.bodya
as
   TYPE RJCT_CODE_TABLE IS TABLE OF TESTDB.reject_event.assy_lotid%type
      INDEX BY BINARY_INTEGER;
   PROCEDURE pro1
    (in_rjct_cnt IN number,
     in_rjct_code_arr IN RJCT_CODE_TABLE,
     out1 out number,
     out2 out varchar);
 END;
/
【--パッケージ　ボディー部】
CREATE OR REPLACE PACKAGE BODY TESTDB.bodya
AS
   PROCEDURE pro1
    (in_rjct_cnt IN number,
     in_rjct_code_arr IN RJCT_CODE_TABLE,
     out1 out number,
     out2 out varchar)
  AS
    -- ローカル変数
  BEGIN
out1 := in_rjct_cnt;
-- *****　　ここでエラーとなります。
out2 := in_rjct_code_arr(1);
  END pro1;
END bodya;
/