在存储过程中使用循环（loop）

---下面是真实环境下loop运用的实例
CREATE OR REPLACE FUNCTION USF_GET_CS_FAC_PUR_MULTI_DSCP
/*
Copyright(c) 2007 XXX
*/
(
fac_id_in IN TBL_FAC_PUR.FAC_ID%TYPE
)
RETURN VARCHAR2
AS
RETURN_FAC_DSCP NVARCHAR2(2000);
v_record NVARCHAR2(2000);
V_MT_FAC_DSCP_CUR TYPES.cursor_type;
BEGIN
BEGIN
RETURN_FAC_DSCP := ' ';
-- 1. select records into cursor
OPEN V_MT_FAC_DSCP_CUR FOR
SELECT TBL_MT_FAC_PUR.DSCP
FROM TBL_MT_FAC_PUR
INNER JOIN TBL_FAC_PUR ON TBL_FAC_PUR.MT_FAC_PUR_CD = TBL_MT_FAC_PUR.CD
WHERE TBL_FAC_PUR.FAC_ID = fac_id_in;
-- 2. loop the cursor
LOOP
FETCH V_MT_FAC_DSCP_CUR INTO v_record;
EXIT WHEN V_MT_FAC_DSCP_CUR%NOTFOUND;

IF RETURN_FAC_DSCP = ' ' THEN

RETURN_FAC_DSCP := v_record;

ELSE
RETURN_FAC_DSCP := RETURN_FAC_DSCP || ', ' || v_record;
END IF;
END LOOP;
END;
RETURN RETURN_FAC_DSCP;
END;


=====实例2==============

CREATE OR REPLACE FUNCTION USF_GET_CS_COND_CDI_MULTI_DSCP
/*
Copyright(c) 2007 XXX
20080314 : Initial Creation by XXX
*/
(
fac_id_in IN TBL_FAC_COND.FAC_ID%TYPE
)
RETURN VARCHAR2
AS

RETURN_COND_DSCP NVARCHAR2(2000);
v_record NVARCHAR2(2000);
V_COND_DSCP_CUR TYPES.cursor_type;

BEGIN
BEGIN
RETURN_COND_DSCP := ' ';
-- 1. select records into cursor
OPEN V_COND_DSCP_CUR FOR
SELECT TBL_FAC_COND.CONDITION
FROM TBL_FAC_COND
WHERE TBL_FAC_COND.FAC_ID = fac_id_in;
-- 2. loop the cursor
LOOP
FETCH V_COND_DSCP_CUR INTO v_record;
EXIT WHEN V_COND_DSCP_CUR%NOTFOUND;

IF RETURN_COND_DSCP = ' ' THEN

RETURN_COND_DSCP := v_record;

ELSE

RETURN_COND_DSCP := RETURN_COND_DSCP || ', ' || v_record;

END IF;
END LOOP;
END;
RETURN RETURN_COND_DSCP;
END;