首先我们来看看代码，然后我们在说明和解释代码：



declare
   l_dept    integer := 20;
   currtime  date := sysdate;
   l_nam     varchar2(20) := to_char(add_months(trunc(sysdate),-12),'yyyymmdd');  -- to_char(sysdate,'MM')-13;

   type num_list is varray(4) of number;
   arr_id num_list := num_list(100,101,123,33,234);

 begin
      l_dept := 30;
      dbms_output.put_line(l_dept);
      dbms_output.put_line(currtime);
      dbms_output.put_line(l_nam);
      dbms_output.put_line(arr_id(1));      
 end;


变量的定义：

l_dept定义的是整型，

currtime为日期型，

l_nam为字符型并往前退12个月的日期赋值，而-- to_char(sysdate,'MM')-13;会出现负数。

type num_list is varray(4) of number;则是定义数据类型为整型的数组，并且数组长度为4，

arr_id num_list := num_list(100,101,123,33,234);则使用num_list定义的数组类型定义arr_id变量，并为arr_id赋值。

dbms_output.put_line函数则会在DMS Output选项卡中输出，注意：dbms_output.put_line必须放到begin和end之内。

==

下面我们在看一个:



truncate table t4;  --清空表里的数据
declare
op nvarchar2(100);
i int ;
j int :=100;
begin
  while j<200 loop
  select nvl(max(id),0) +1 into i from t4;
  insert into t4 values(i,j,'test'||i);
  dbms_output.put_line(i);
  j:=j+1;
  end loop;
end;
-- select * from t4;