LDRIVER( ) example

This example shows the LDRIVER( ) function and a sample response:

? LDRIVER( ) && DB437US0

This example first closes all tables and obtains the global language driver. Then it opens a table and checks whether the table was created with the global language driver. If not, a warning is displayed:

CLOSE ALL
SET LDCHECK OFF
* this program replaces the LDCHECK alert message
GlobalDriver=LDRIVER( )
USE Customer
TableLangDriver=LDRIVER( )
SET EXACT ON
IF GlobalDriver<>TableLangDriver
  ? "Warning: this table was created"+ "with a different language driver"
  ? "Global Language Driver: "+GlobalDriver
  ? DBF( )+" Language Driver: "+TableLangDriver
  WAIT
ENDIF
SET EXACT OFF