SQL批量刪除數據

declare @onecount int
set @onecount=10000
print getdate()
while 1=1
begin     
delete top(@onecount) from ysh where date<'2016-06-21' ;   
--處不能寫任何語句 print也可能導致無法全部刪除    
 IF (@@rowcount<@onecount) BREAK;   
  print getdate()END