Check if record can be deleted.
strName = "PSLMST"
strKey  = "EMPNO"
IF NOT LceSetFieldValue(iSession, strKey , "12345")
         return error 
ENDIF
IF LceDelete(iSession, strName, strKey, TRUE)
          delete of the record can be performed 
ELSE
          cannot delete the record 
          display error messages 
ENDIF