//объявление
subroutine myProcedure (string in_tab[], ref integer out_parm) RPCFUNC ALIAS FOR "myOwner.myProcedure"

//Вызов
integer li_Ret
string inArray[]
sqlca.myProcedure (inArray[], li_Ret)
if sqlca.sqlcode <  0  then
//обработка
else
messageBox ("li_Ret", string(li_ret))
end if

BANNER                                                          
----------------------------------------------------------------
Oracle Database 10g Release  10 . 2 . 0 . 1 . 0  - Production             
PL/SQL Release  10 . 2 . 0 . 1 . 0  - Production                          
CORE	 10 . 2 . 0 . 1 . 0 	Production                                      
TNS for  32 -bit Windows: Version  10 . 2 . 0 . 1 . 0  - Production         
NLSRTL Version  10 . 2 . 0 . 1 . 0  - Production 

CREATE TABLE T$VA (F1 VARCHAR2( 20 ));

CREATE OR REPLACE PACKAGE Testinout AS
TYPE ltVarcharArray IS TABLE OF VARCHAR2( 100 ) INDEX BY BINARY_INTEGER;
PROCEDURE Test_Inout (aIN IN  ltVarcharArray, aiRet OUT NUMBER );
END Testinout;
/

CREATE OR REPLACE PACKAGE BODY Testinout AS
PROCEDURE TEST_INOUT (aIN IN ltVarcharArray, aiRet OUT NUMBER ) IS
BEGIN
    FORALL indx IN aIN.FIRST .. aIN.LAST
       INSERT INTO T$VA
          ( F1 )
          VALUES
          (aIN (indx));
aiRet :=  1 ;
   EXCEPTION
     WHEN OTHERS THEN
aiRet := - 1 ;
       RAISE;
END TEST_INOUT;
END testinout;
/

Version  7 . 0 . 3  build  10312 

//Объявление
subroutine TEST_INOUT(string aIN[], ref double aiRet) RPCFUNC ALIAS FOR "EXDATA.TESTINOUT.TEST_INOUT"
//Не забудьте заменить EXDATA на вашего владельца пакета

//Вызов
string laIN[]
double li_Ret= 0 
string ls_Err

laIN [ 1 ] = '1'
laIN [ 2 ] = '2'
sqlca.TEST_INOUT ( laIN, li_Ret)
if sqlca.sqlcode =  0  then 
	commit;
	messagebox ("", string(li_ret))
else
	ls_Err = sqlca.SQLErrText
	rollback;
	messagebox ("", ls_Err)
end if