循环程序

DECLARE

l_cnt NUMBER;

BEGIN

FOR i IN (SELECT a.serv_number, a.info, b.status

FROM saleinfo a, userinfo b

WHERE a.serv_number = b.serv_number) LOOP

IF i.status = '0' THEN

send_msg(i.serv_number, i.info);

ELSE

UPDATE saleinfo

SET status = i.status

WHERE serv_number = i.serv_number;

END IF;

l_cnt := l_cnt + 1;

IF MOD(l_cnt, 500) = 0 THEN

COMMIT;

END IF;

END LOOP;

END;