ORACLE: SELECT语句里调用函数使用DML语句进行Update/Insert/Delete操作

FUNCTION get_tg_dop_reserved(
dop_id_ IN NUMBER) RETURN VARCHAR2
IS
PRAGMA AUTONOMOUS_TRANSACTION; /* 注意：这句话必须写 */
dummy_ NUMBER;
CURSOR c1 IS
SELECT 1
FROM DOP_HEAD a
WHERE a.dop_id = dop_id_
AND a.objstate NOT IN ('Removed','Closed','Created');

BEGIN

OPEN c1;
FETCH c1 INTO dummy_;
CLOSE c1;
IF dummy_ IS NOT NULL THEN
tg_imp001_api.tg_dop_reserved(dop_id_);
COMMIT; /* 注意：如果做了DML，一定要提交或回滚 */
RETURN '預留成功！';
END IF;

RETURN '沒找到該DOP！';

END get_tg_dop_reserved;

以上声明后就可以使用SELECT语句了

SELECT get_tg_dop_reserved（268） “结果"

FROM dual;