* Utilities.prg * Defines various utility classes DEFINE CLASS Addr AS Session PROCEDURE Init This.Datasession = 2 IF NOT USED("Addresses") USE Addresses ALIAS Addresses AGAIN SHARED ENDIF ENDPROC PROCEDURE Exists(tcAddrNum) RETURN IndexSeek(m.nAddrNum, 'Address', 'Addrnum') ENDPROC * Other possible Mehotds PROCEDURE AddAddr( ... ) ENDPROC PROCEDURE DelAddr( ... ) ENDPROC ENDDEFINE * Other utility class definitions would be added here