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