游标的使用之一(保存当前的结果集)

这里的游标用于保存结果集,以备后用

 

declare

 pi constant NUMBER(9,7) :=3.1415927;

 area NUMBER(14,2);

 cursor rad_cursor is

    select * from WHMS_TYPE wt where WT.WHMS_TYPE_ID=8;

 rad_val rad_cursor%ROWTYPE;

 begin

   open rad_cursor;

   fetch rad_cursor into rad_val;

     area := pi*power(rad_val.WHMS_TYPE_NAME,2);

     insert into YOUJIAN values(1,area);

   close rad_cursor;

 end;

/