be like
Num number;
Num 1 number;
C2 varchar 2(50)；
Cur2 cursor is
Select to _ char (a.wyid) from v _ unit _ classiftya where a. FILE _ ID = v _ string.
begin
Open cur2
ring
Take cur2 into C2;
Select D. sum into num1from v _ unit _ classsifty d where d. WYID = c2.
num:= 1；
While num & lt=num 1 cycle
begin
insert into unit _ house select d . FILE _ ID，d.FILE_TYPE，d.TYPE，0，0，d . FILE _ TYPE | | ' _ ' | | lpad(round(DBMS _ random . value( 1，5))， 1，0)| ' _ ' | | d . TYPE | | ' _ ' | | lpad(round(DBMS _ random . value( 1，5))， 1，0)from v _ unit _ unit& gtJBWH’；
num:= num+ 1；
Submit;
End;
End the cycle;
Exit when cur2%Notfound;
End the cycle;
Turn off cur2
Opencur _ arg for select * from unit _ house-saves the result data in the cursor and returns it.
End;