DIM   $error,$serror
$error			= @ERROR
$serror			= @SERROR
ErrorLog($error,$serror)

Function ErrorLog($error,$serror)
DIM	$LogFile,$LogError,$AltLogFile

$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,"Error $error:  $serror, @WKSTA, @USERID, @DATE, @TIME, @CRLF")
Else
  $ = OPEN (6,$AltLogFile,5)
  $ = WRITELINE(6,"Error $error:  $serror, @WKSTA, @USERID, @DATE, @TIME, @CRLF")
  $ = CLOSE (6)
EndIf
  $ = CLOSE(5)
EndFunction