USE transaction 
@ 10,2 SAY 'NAME : ' GET LCCLIENT DEFA ' ' PICT '@!' SIZE 1,30
READ

SET MULTILOCKS ON
= CURSORSETPROP("Buffering" ,5,'TRANSACTION')
BEGIN TRANSACTION 
	INSERT INTO TRANSACTION ;
		(NAME) ;
	VALUES ;
		(LCCLIENT) 
*	ROLLBACK 
	= TABLEUPDATE(.t.)
END TRANSACTION