?
CREATE OR REPLACE PROCEDURE P_B(P_1 IN VARCHAR2, P_2 OUT NUMBER) IS STR_SQL VARCHAR2(500); P_LINE NUMBER(10); P_STR VARCHAR2(200); P_STR2 VARCHAR2(200);BEGIN P_LINE := 1; STR_SQL := 'INSERT INTO TT_EMAIL T(T.KEYID,T.EMAIL_MAIL,T.EMAIL_USER,T.EMAIL_TEL) VALUES (:A,:B,:C,:D)'; EXECUTE IMMEDIATE STR_SQL USING 'A', 'B', 'C', 'D'; P_LINE := 2; P_2 := 123; FOR R IN (SELECT T.EMAIL_MAIL, T.EMAIL_USER, T.EMAIL_TEL FROM TT_EMAIL T) LOOP DBMS_OUTPUT.PUT_LINE(SQLERRM); CASE WHEN R.EMAIL_TEL = '13800138000' THEN P_STR := '138'; WHEN R.EMAIL_TEL = '10086' THEN P_STR := '000'; ELSE P_STR := '其它'; END CASE; END LOOP; DBMS_OUTPUT.PUT_LINE(P_STR); SELECT COUNT(1) INTO P_STR2 FROM (SELECT CASE WHEN T.EMAIL_MAIL = [email protected]' THEN '1' WHEN T.EMAIL_MAIL = [email protected]' THEN '2' ELSE '其它的EMAIL' END AS EMAIL FROM TT_EMAIL T) V; DBMS_OUTPUT.PUT_LINE(P_STR2);EXCEPTION WHEN OTHERS THEN DBMS_OUTPUT.PUT_LINE(SQLERRM); END P_B;
?