有一个自动监控磁盘状态的思路，大家觉得可行吗？

V01619

经常使用WRKDSKSTS命令查看磁盘状态，
及时发现了好几次磁盘挂起的事故。
最近无意中发现可以把信息输出到SPOOLFILE。
联想到是不是可以使用以下方法实现自动监控呢？

1.使用WRKDSKSTS OUTPUT(*PRINT)，生成SPOOL FILE。
2.使用CPYSPLF命令把SPOOL FILE内容复制到PF FILE。
3.建立一个RPG程序，读取PF中SPOOL FILE内容。
  一旦发现状态异常时，发送信息给指定用户。

把以上作业加Schedule，一小时执行一次的话，基本可以实现自动监控的目的。

现在有一个问题，CL中如何取得SPOOL FILE的JOB NAME 、NUMBER等信息？
因为CPYSPLF命令必须要这几个参数才能拷贝。

passthru

如果对QAP调用熟悉，可以自己编写一个rpgle程序，使用QWCRSSTS进行包括disk sts在内的信息提取，再发到你想要发送的地方。

shibuya_cu

回复 1# V01619
好主意。CL中如何取得SPOOL FILE的JOB NAME 、NUMBER等信息再简单不过了（rtrjoba）。 而且在CL里直接拿spooled file name和SPLNBR *last就可以了，其他参数可以无视啊

   

居士

支持，很好的想法。也有人这么做过

做一些小程序，对日常管理会有很大帮助

V01619

谢谢楼上几位的建议，已在单位AS/400上成功实现了。
把以下几条命令放在CL里，再调用一个程序对BHWRK103文件进行检查，
若指定位置信息内容不符就发送一封邮件提醒。

WRKDSKSTS  OUTPUT(*PRINT)                                 
    CLRPFM     FILE(SUZOBJ/BHWRK103)                       
       CPYSPLF    FILE(QPWCDSKS) TOFILE(SUZOBJ/BHWRK103) +
                    SPLNBR(*LAST)                          
    DLTSPLF    FILE(QPWCDSKS) SPLNBR(*LAST)