cursor cl IS
        SELECT (SELECT folder FROM tfolderd WHERE codapp = 'HRPMC2E1')||'/'|| VALUE img
        FROM tusrconfig
        WHERE coduser = global_v_coduser
        AND codvalue = 'PROFILEIMG';

    UPDATE tusrconfig
    SET VALUE = p_img
    WHERE coduser = global_v_coduser
    AND codvalue = 'PROFILEIMG';