Chinook2 - Funktion - Bernd Stelzl

CREATE OR REPLACE FUNCTION GETCOMPOSERS(P_TRACKID Track.trackid%TYPE) RETURN VARCHAR2 IS
    v_composers VARCHAR2(600) := '';
    v_composer VARCHAR2(100);
BEGIN
    FOR item IN (SELECT c.composer AS c_composer  FROM TRACKCOMPOSER tc INNER JOIN Composer c ON c.composerid = tc.composer WHERE track = P_TRACKID)
    LOOP
        v_composers := v_composers || ', ' || item.c_composer;
    END LOOP;

    v_composers := REGEXP_REPLACE(v_composers, '^, ', '');

    RETURN v_composers;

END GETCOMPOSERS;