create or replace procedure calc(sums out number) as
begin
      for i in 1..100 loop
      
             if (mod(i,2)=0) then
                sums:=sums+i;
               dbms_output.put_line(sums);
             end if;
       end loop;
       
end calc;--调用过程
declare
 su number:=1;
begin
calc(su);
 dbms_output.put_line('asdas'||su);
end;
怎么不输出结果呀????