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