Field help (PURSTO) 

This function is used to clear out the stock file of the expired stock lines (quantity in stock unit = 0)