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