使用REXX编写一个读取z/OS主机日志文件并分析错误的脚本

这个示例代码将展示如何使用IBM主机的REXX编程语言来读取z/OS系统日志文件并分析错误信息。代码将列出所有错误记录，并将它们按照发生次数进行排序。这种方式可以让运维人员更加便捷地识别并解决系统中的问题。

/* ~REXX */
/* ANALYZE LOG ERRORS */
parse upper arg filepath
call check_parms
call process_file(filepath)
exit

check_parms:
if filepath = '' then do
   say ' '
   say 'USAGE: REXX ANAL_ERR <filepath>'
   say '       filepath is the path to the log file to be analyzed.'
   say ' '
   exit
end
return

process_file:
if condition('fileexist("'filepath'")') <> 0 then do
   say 'The file "'filepath'" does not exist!'
   return
end

s = ""
cnt = 0
errlist. = ""

"ALLOC DD(INFILE) DA('"filepath"') SHR REUSE"

"EXECIO * DISKR INFILE (STEM LOG."

do i = 1 to log.0
   if verify(log.i, ' -,=*', 5) = 5 then do
      cnt = cnt + 1
      errtype = word(log.i, 5)

      if errlist.errtype = '' then errlist.errtype = 1
      else errlist.errtype = errlist.errtype + 1
   end
end

"FREE DD(INFILE)"

say 'ERROR REPORT'
say ' '
do over err in errlist.
   say left(err, 14) errlist.err
end

return

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com