ID( ) example

The following example keeps track of the last network user to update a record. It updates a network database and puts ID( ), the current user, into a field called USER:

PROCEDURE OkToChange  && Updates a network database and logs user name
IF ID( ) <> ""
REPLACE NAME WITH cName, USER with ID( )
ELSE
CLEAR
? "You have lost your network connection. Data not saved."
WAIT
ENDIF
RETURN