CREATE OR REPLACE PROCEDURE TEST(P_DETAIL_RESULT_COUNT IN VARCHAR2) AS
? V_DETAIL_TYPE? VARCHAR2(64);
? V_RESULT_COUNT NUMBER(12);
? V_LEN????????? NUMBER;
? V_LAST_POS???? NUMBER;
? V_POS????????? NUMBER;
? V_NUM????????? NUMBER;
? V_SUB_SIGN???? VARCHAR2(1) := ',';
? V_EQUAL_SIGN?? VARCHAR2(1) := '=';
? V_EQUAL_POS??? NUMBER;
? V_DETAIL?????? VARCHAR2(128);
BEGIN

? V_LEN????? := LENGTH(V_SUB_SIGN);
? V_LAST_POS := 1 - V_LEN;
? LOOP
??? V_POS := INSTR(P_DETAIL_RESULT_COUNT, V_SUB_SIGN, V_LAST_POS + V_LEN);
??? IF V_POS > 0 THEN
????? --FOUND
????? V_NUM := V_POS - (V_LAST_POS + V_LEN);
??? ELSE
????? --NOT FOUND
????? V_NUM := LENGTH(P_DETAIL_RESULT_COUNT) + 1 - (V_LAST_POS + V_LEN);
??? END IF;
?
??? V_DETAIL := SUBSTR(P_DETAIL_RESULT_COUNT, V_LAST_POS + V_LEN, V_NUM);
???
??? V_EQUAL_POS:=INSTR(V_DETAIL,V_EQUAL_SIGN);
??? V_DETAIL_TYPE := SUBSTR(V_DETAIL,1,V_EQUAL_POS-1);
??? V_RESULT_COUNT := SUBSTR(V_DETAIL,V_EQUAL_POS+1);
?
??? EXIT WHEN V_POS = 0;
??? V_LAST_POS := V_POS;
? END LOOP;

? COMMIT;
? --发生异常直接捕获
EXCEPTION
? WHEN OTHERS THEN
??? ROLLBACK;
??? RAISE;
END;

?