declare
cardno varchar2(8);
passwd varchar2(8);
num number(5) :=0;
begin
<<basic_loop>>
num :=num +1;
select round(dbms_random.value(10000000,99999999)) into passwd from dual;
select 'vip'||1000+num into cardno from dual;
insert into puser.cards(cardno,passwd) values(cardno,passwd);
if num>=1001 then
exit basic_loop;
end if;
end loop;
END ;
/
cardno varchar2(8);
passwd varchar2(8);
num number(5) :=0;
begin
<<basic_loop>>
num :=num +1;
select round(dbms_random.value(10000000,99999999)) into passwd from dual;
select 'vip'||1000+num into cardno from dual;
insert into puser.cards(cardno,passwd) values(cardno,passwd);
if num>=1001 then
exit basic_loop;
end if;
end loop;
END ;
/