>> 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 >>>
IF EMPTY(pubLogName) > PUBLIC pubLogName > pubLogName = LOGNAMEPREFIX + "001.txt" >ENDif >pubLogName = ALLTRIM(pubLogName)