PL/SQL ʵÏÖ»ù±¾µÄËÄÔòÔËËã

CREATE OR REPLACE PACKAGE BODY PACK_RISK_FUNCTION AS
--- 1 ½«·ûºÅÌæ»»³É#ºÅ »òÐí¿ÉÒÔÓÃÕýÔò±í´ïʽ£¬µ«ÊÇÏÓÂé·³»¹ÊÇÖ±½ÓÓÃÌæ»»
FUNCTION CHANGE_OPERATOR(FORMULA VARCHAR2)
RETURN VARCHAR2
AS
V_FORMULA VARCHAR2(100);
BEGIN
V_FORMULA := REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(FORMULA,'(',''),')',''),'+','#'),'-','#'),'*','#'),'/','#');
RETURN V_FORMULA;
END CHANGE_OPERATOR;
/**---- 2 ½«×Ö·û´®°´ÕÕ # ½âÎö³É²»Í¬×Ö¶Î**/
---- ´´½¨Ò»¸öTABLE±äÁ¿ CREATE OR REPLACE TYPE STR_SPLIT IS TABLE OF VARCHAR2 (4000);
---- µ÷Óú¯ÊýÓï¾ä SELECT * from TABLE(SUB_FORMULA(FORMULA))
FUNCTION SUB_FORMULA(FORMULA VARCHAR2)
RETURN STR_SPLIT PIPELINED
AS
V_LENGTH NUMBER :=LENGTH(FORMULA);----×Ö·û´®³¤¶È
V_INDEX NUMBER; ---- #µÄλÖÃ
V_START NUMBER:=1; ---¿ªÊ¼Î»ÖÃ
BEGIN
WHILE V_START <= V_LENGTH LOOP
V_INDEX:= INSTR(FORMULA,'#',V_START);
IF V_INDEX =0 THEN
PIPE ROW(SUBSTR(FORMULA,V_START));
V_START :=V_LENGTH + 1;
ELSE
PIPE ROW(SUBSTR(FORMULA,V_START,V_INDEX-V_START));
V_START := V_INDEX + 1;
END IF;
END LOOP;
RETURN;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(SQLCODE || ' ' || SQLERRM);
RETURN;
END SUB_FORMULA;
/**
---3 ËÄÔòÔËË㺯Êý**/
FUNCTION OPERATION_GLOBAL (FORMULA IN RISKITEMINFO.RECKONNAME%TYPE)
RETURN VARCHAR2
IS
FORMULA_V RISKITEMINFO.RECKONNAME%TYPE :='('||FORMULA||')';
V_FORMULA VARCHAR2(500); ------´¢´æת³É#ºÅºóµÄ¹«Ê½
FIELD_NO VARCHAR2(100); ------×ֶαàºÅ
FIELD_VALUE VARCHAR2(100); --- Êý¾ÝÖµ
FIELD_TYPE NUMBER(2); ---- Êý¾ÝÀàÐÍ
RESULT_V NUMBER;
/* V_COUNT NUMBER;*/
R_RESULT VARCHAR2(100);
BEGIN
------ µ÷ÓÃCHANGE_OPERATORº¯Êý£¬½«ËÄÔòÔËËã·ûºÅת»»³É#
V_FORMULA :=PACK_RISK_FUNCTION.CHANGE_OPERATOR(FORMULA);
-----´´½¨ÓαêC1_CURSOR ÓÃÓÚ±£´æ ¹«Ê½·Ö¸îºóµÄ×Ö¶ÎÃû
DECLARE
CURSOR C1_CURSOR IS
SELECT * from TABLE(PACK_RISK_FUNCTION.SUB_FORMULA(V_FORMULA));
BEGIN
OPEN C1_CURSOR;
FETCH C1_CURSOR INTO FIELD_NO;
WHILE C1_CURSOR%FOUND LOOP
-----¸ù¾Ý×Ö¶ÎÃû²éÕÒ×îºóÈÕÆÚµÄÊý¾Ý½øÐмÆËã
   SELECT A.FIELDTYPE,B.FIELDVALUE INTO FIE