DECLARE
TYPE credit_card_typ
IS VARRAY (100) OF VARCHAR2(30);
v_mc credit_card_typ := credit_card_typ();
v_visa credit_card_typ:= credit_card_typ();
v_am credit_card_typ := credit_card_typ();
v_disc credit_card_typ:= credit_card_typ();
v_dc credit_card_typ:= credit_card_typ();
BEGIN
v_mc.EXTEND(6);
v_visa.EXTEND(6);
v_am.EXTEND(6);
v_disc.EXTEND(6);
v_dc.EXTEND(6);
for i in 1..6 loop
v_mc(i):= 'a';
v_visa(i):= 'b';
v_ac(i):= 'c';
v_disc(i):= 'd';
v_dc(i):= 'e';
end loop;
for i in 1..6 loop
dbms_output.put_line('['||i||']'||' v_mc: '|| v_mc(i) || ' v_visa: ' || v_visa(i) || 'v_am: ' || v_am(i) || 'v_disc: '|| v_disc(i) || ' v_dc: ' || v_dc (i));
end loop;
END;