declare
    v_d date; -- @DD DATE
    cursor cursor_r as --DECLARE @CURSOR_R CURSOR SET @CURSOR_R = CURSOR SCROLL FOR
        select d.dates from dates d;
begin
    open cursor_r; -- OPEN @CURSOR_R
    loop
        fetch cursor_r
            into v_d; --FETCH NEXT FROM @CURSOR INTO @DD
        exit when cursor_r%notfound; --WHILE @@FETCH_STATUS = 0
        testproc(v_d); --exec proc testproc @DD
        --FETCH NEXT FROM @CURSOR_R INTO @DD
    end loop; --END
    close cursor_r; -- CLOSE @CURSOR_R
end;