>Suggestions gratefully accepted....
>Neil Preston
>
>

>SELECT Orders
>	lcOrdersOldOrder = ORDER()
>	SET ORDER TO order_id
>	SELECT orderitems
>	lcItemsOldOrder = ORDER()
>	SET ORDER TO order_id
>	SELECT c_Orders
>	SCAN
>		lcOrdNum = order_id
>		SELECT Orders
>		SEEK lcOrdNum
>		IF FOUND()
>			REPLACE shipdate WITH DATE()
>		ELSE
>			WAIT WINDOW AT 20,20 ' Order not found '
>		ENDIF
>		SELECT orderitems
*** Pause here!!!
>		REPLACE shipped WITH DATE() FOR order_id = lcOrdNum
>
>	ENDSCAN
>
>
>

You code looks simple enough. Are there any filters on the OrderItems table?

Can you pause the program where I inserted a comment and browse for Order_id = lcOrderNum?

Have you confirmed directly after this line that the values are not being written, or could htis be a buffering issue?

BTW, per William's suggestion- SCAN does NOT require you to reselect the work area at the end of the loop. In fact, doing so is only a performance hit.