Updates all index and database buffers for a given workarea
FUNCTION Main()
LOCAL cName:=SPACE(40)
LOCAL nId:=0
USE Test EXCLUSIVE NEW
//
@ 10, 10 GET cName
@ 11, 10 GET nId
READ
//
IF UPDATED()
APPEND BLANK
REPLACE Tests->Name WITH cName
REPLACE Tests->Id WITH nId
Tests->( DBCOMMIT() )
ENDIF
RETURN NIL