CREATE OR REPLACE PROCEDURE "TUBEMNG"."RE" (one OUT INTEGER,two OUT INTEGER,three OUT INTEGER,four OUT INTEGER,ptype IN VARCHAR2,DRAWNO IN VARCHAR2,MSIZE IN VARCHAR2) AS
TYPE name_num_rc IS REF CURSOR;
  cv name_num_rc;
dynal_sql VARCHAR2(500);
NUM INTEGER;
IN_TIME DATE;
BEGIN
one:= 0;
   four:= 0;
   three:=0;
   two:=0;
dynal_sql:='SELECT ST.IN_TIME,TU.NUM
                  FROM TB_DM_ML_STOCK st INNER JOIN TB_DM_TUBE tu ON ST.TU_ID=TU.TU_ID WHERE 1=1';
--dbms_output.put_line(ptype);

--機型
 
IF ptype IS NOT NULL THEN 
      dynal_sql:=dynal_sql || ' AND TU.P_TYPE=''' ;
      dynal_sql:= dynal_sql || ptype || '''';
--dbms_output.put_line(dynal_sql);
END IF;

--零件圖號
IF DRAWNO IS NOT NULL THEN 
      dynal_sql:=dynal_sql || ' AND TU.DRAW_NO=''' ;
      dynal_sql:= dynal_sql || DRAWNO || '''';
--dbms_output.put_line(dynal_sql);
END IF;

--尺寸
 
IF MSIZE IS NOT NULL THEN 
      dynal_sql:=dynal_sql || ' AND TU.M_SIZE=''' ;
      dynal_sql:= dynal_sql || MSIZE || '''';
--dbms_output.put_line(dynal_sql);
END IF;


  OPEN cv FOR dynal_sql;
   FETCH cv INTO IN_TIME,NUM;
   WHILE CV%FOUND LOOP
   --根據上一次取到的值進行操作
IF IN_TIME IS NOT NULL THEN
   IF ADD_MONTHS(IN_TIME, 1)> SYSDATE THEN--一個月以內的記錄
 
one:=one+NUM;
   ELSIF ADD_MONTHS(IN_TIME, 3)> SYSDATE THEN --1-3個月滯留時間
two:=two+NUM;
  ELSIF ADD_MONTHS(IN_TIME, 6)> SYSDATE THEN --3-6個月滯留時間
three:=three+NUM;
    ELSE--3-6個月滯留時間
four:=four+NUM;--半年以上滯留記錄                          
END IF;
  END IF;
   --再一次取值
FETCH cv INTO IN_TIME,NUM;
   END LOOP;
--FETCH cv into NAMES;
   -- routine body goes here, e.g.
   -- DBMS_OUTPUT.PUT_LINE('Navicat for Oracle');
   --INSERT INTO WX_MENU(ID,NAME) VALUES('1122623212','12123');
CLOSE cv;
END;