ISREADONLY( ) Function Example

CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer    NOUPDATE  && Open customer table read-only

CLEAR
? ISREADONLY('customer')  && Returns .T.