create or replace type USERSEQID_ARRAY AS VARRAY(32) of varchar(32);
CREATE OR REPLACE TYPE USERNAME_ARRAY  AS VARRAY(32) of varchar(32);create or replace procedure make_logincard_pro (
p_cardsuitcode in varchar,
p_userseqidArr out USERSEQID_ARRAY ,
p_usernameArr out USERNAME_ARRAY
)
AS
BEGIN
   FOR i in 1.. 10 LOOP
      IF p_userseqidArr IS  NULL THEN
         p_userseqidArr := USERSEQID_ARRAY(i);
      ELSE
         p_userseqidArr.Extend;
         p_userseqidArr(i) :=i;
      END IF;      IF p_usernameArr IS  NULL THEN
         p_usernameArr := USERNAME_ARRAY(i || 'TT');
      ELSE
         p_usernameArr.Extend;
         p_usernameArr(i) :=i || 'TT';
      END IF;     
   END LOOP;END;declare 
a_varlist USERSEQID_ARRAY;
b_varlist USERNAME_ARRAY;
begin
  make_logincard_pro('AA',:a_varlist,:b_varlist);
end;
总是报ORA-01008:not all variables bound
各位大侠帮忙看看,谢谢