不行,不过你可以使用动态SQL加动态游标来达到你的目的。在包头定义
 type cursor_type is ref cursor;
 c1 cursor_type;
 sqlstr varchar(100);在包体中
 
   IF P_A='0' THEN    
      sqlstr :=' SELECT A.ID, A.YMD FROM PRODUCT A,S_PLAN B ' ||
                ' WHERE SEQ_NO = WK_SEQUENCE AND A.PLAN_NO = B.P_PLAN_NO ';
   ELSE
      sqlstr :=' SELECT A.ID, A.YMD FROM PRODUCT A,T_PLAN B ' ||
                ' WHERE SEQ_NO = WK_SEQUENCE AND A.PLAN_NO = B.T_PLAN_NO ';
   END IF;
   open c1 for strsql;
   ....