> PROCEDURE dbc_OpenData(cDatabaseName, lExclusive, lNoupdate, lValidate) > *Immediately after DBC is opened. > Public xxxDbc as Exception > Try > pubLogName = Alltrim(pubLogName) > Catch to xxxDbc > If ( xxxDbc.ErrorNo == 12 ) && pubLogName not set > ? xxxDbc.Message > ? xxxDbc.LineNo > ? xxxDbc.ErrorNo > Public pubLogName = LOGNAMEPREFIX +"001.txt" > Finally > EndTry > ENDPROC >