Code:
function ErrorLog(optional $ErrorMsg)
DIM	$LogFile,$LogError,$AltLogFile,$error,$serror,$ErrorString
$error                = @ERROR
$serror               = @SERROR
$ErrorString          = "Error "+$error+", "+$serror+", "+$ErrorMsg+", "+@WKSTA+", "+@USERID+", "+@DATE+", "+@TIME+", "+@CRLF
$LogFile              = "\\server\SoftwarePushes\sms\logging\"+@MDayNo+"_"+@MonthNo+"_"+@Year+".log"	
$AltLogFile           = "\\server\SoftwarePushes\sms\logging\"+@MDayNo+"_"+@MonthNo+"_"+@Year+"-@WKSTA.log"
$LogError             = OPEN (5,$LogFile,5)

If $LogError=0
  $ = WRITELINE(5,$ErrorString)
  $ = CLOSE(5)
Else
  $ = OPEN (6,$AltLogFile,5)
  $ = WRITELINE(6,$ErrorString)
  $ = CLOSE (6)
EndIf

endfunction


Is that better?