Fórum Parametros com cadeia de valores Function/Procedures #28976

CREATE OR REPLACE Function MONTACORES_FAMILIA(PCODCLI IN VARCHAR2) RETURN VARCHAR2 IS
    XRESULTADO VARCHAR(200);

    CURSOR TCLI IS
        SELECT CLI.CODCLI, CLI.RAZSOC FROM TBCLIENTES CLI WHERE CLI.CODCLI IN (PCODCLI);
    REGCLI TCLI¬ROWTYPE;

BEGIN
    XRESULTADO := ´´;
    
    

    OPEN TCLI;
    LOOP
        FETCH TCLI
            INTO REGCLI;
        EXIT WHEN TCLI¬NOTFOUND;
        IF XRESULTADO IS NOT NULL THEN
            XRESULTADO := XRESULTADO || ´´;
        END IF;
        XRESULTADO := XRESULTADO || REGCLI.CODCLI || ´-´ || REGCLI.RAZSOC;
    END LOOP;
    CLOSE TCLI;

    RETURN XRESULTADO;
END;