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