使用CL命令将IBM i（OS/400）系统日志文件导出到CSV文件

本示例展示如何使用CL命令将IBM i（OS/400）系统日志文件导出到CSV文件。该代码是基于一个IBM官方文档的示例并添加了注释以便更好的理解。

pgm
/* 定义一个文件记录格式 */
   dcl-f QASYSOPR    log(4) extfile('/QSYS.LIB/QASYSOPR.LIB/QASYSOPR.FILE')
                  usropn;
/* 指定输出的CSV文件 */
   dcl-f csv         disk('mylog.csv') opnid(tempcsv) share(*yes);
/* 读取系统日志文件并将其导出到CSV文件 */
   rcvf;
   dow not %eof(QASYSOPR);
      /* 用'外部名称，字段'的格式来取得QASYSOPR文件中的每一个字段值 */
      /* 在CSV文件中保留日志的时间戳，MCH信息和消息文本 */
      cpytoimpf fromstmf('/QSYS.LIB/QUSRSYS.LIB/QSRVLOG.FILE')
                    stmfcodp=(*AUTO *NO)
                    tofile(tempcsv)
                    mbropt(*REPLACE)
                    rcddlm(*CRLF)
                    datfmt(*USA)
                    timefmt(*ISO)
                    fields((TS W 12) (MCH W 4) (MSG W 132))
                    REPLACE;
      rcvf;
   enddo;

/* 关闭文件 */
   close QASYSOPR;
   close tempcsv;

/* 输出结果到控制台 */
   dsply 'Log file exported to mylog.csv';

   return;

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