본문 바로가기
이카루스의 날개/DB

첫 PL/SQL (내가 짠건 아니지만 ㅡㅡ;)

by 윙혼 2007. 7. 24.

CREATE OR REPLACE function UFIS_TEST.F_GET_COLL_LIST (v_room_pk  IN  VARCHAR2)
RETURN VARCHAR2 IS v_coll_list VARCHAR2(100);
/******************************************************************************
   NAME:       F_GET_COLL_LIST
   PURPOSE:    실의 기관/단과대학 사용자 리스트 리턴 리포팅 화면에서 사용

   REVISIONS:
   Ver        Date        Author           Description
   ---------  ----------  ---------------  ------------------------------------
   1.0        2007-07-24  김재우           실의 기관/단과대학 사용자 리스트 리턴 리포팅 화면에서 사용
   NOTES:
******************************************************************************/
   CURSOR cursor_00
   IS
     SELECT DISTINCT(b.ORG_NM) org_nm
     FROM BLD_USER_INFO a, COM_ORG b
     WHERE a.BLD_ROOM_PK=V_ROOM_PK
       AND a.SUBJ_ORG_CD=b.ORG_CD;


BEGIN
 v_coll_list := '';
 
 FOR i IN cursor_00
   LOOP
    v_coll_list := v_coll_list ||', ' ||i.org_nm;  
   
      
   END LOOP;


RETURN v_coll_list;
EXCEPTION
 WHEN NO_DATA_FOUND THEN
 RETURN ' '; 
END;
/

'이카루스의 날개 > DB' 카테고리의 다른 글

리눅스 MySQL 설치1  (0) 2007.09.04
Connect By Prior  (0) 2007.08.04
월별, 년별 통계 내는 법  (0) 2007.06.28
RedHat9 + Oracle 10g  (0) 2007.06.26
오라클에서 한글이 ???로 깨져보임을 해결  (1) 2007.06.13

댓글