Rem drv: <create type="funcs"/>
Rem
Rem $Header: emtp/oracle_cell/cell/latest/cell/cell_funcs.sql /main/1 2009/01/21 10:58:01 ysun Exp $
Rem
Rem cell_funcs.sql
Rem
Rem Copyright (c) 2008, 2009, Oracle and/or its affiliates.
Rem All rights reserved. 
Rem
Rem    NAME
Rem      cell_funcs.sql - <one-line expansion of the name>
Rem
Rem    DESCRIPTION
Rem      <short description of component this file declares/defines>
Rem
Rem    NOTES
Rem      <other useful comments, qualifications, etc.>
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    ysun        10/28/08 - Created
Rem

CREATE OR REPLACE FUNCTION emxCellStringAggCollect (p_varchar_tab  IN  emxCellStringAggCollectType,
                                          p_delimiter     IN  VARCHAR2 DEFAULT ',') RETURN VARCHAR2 IS
  l_string     VARCHAR2(32767);
BEGIN
  FOR i IN p_varchar_tab.FIRST .. p_varchar_tab.LAST LOOP
    IF i != p_varchar_tab.FIRST THEN
      l_string := l_string || p_delimiter;
    END IF;
    l_string := l_string || p_varchar_tab(i);
  END LOOP;
  RETURN l_string;
END emxCellStringAggCollect;
/