使用CL程序监视IBM i的系统资源

该示例演示了如何编写一个CL程序，用于监视IBM i（OS/400）系统的资源使用情况，并将结果输出到控制台。程序会检查CPU使用率、内存使用率、磁盘空间、活动作业数等指标，并进行警报处理。

/* CL程序：监视IBM i系统资源 */
PGM                                                              
   DCL VAR(&CPUUSAGE) TYPE(*DEC) LEN(5 2) /* CPU使用率 */        
   DCL VAR(&MEMUSAGE) TYPE(*DEC) LEN(5 2) /* 内存使用率 */      
   DCL VAR(&DISKSPACE) TYPE(*DEC) LEN(15 2) /* 磁盘空间 */       
   DCL VAR(&JOBACT) TYPE(*INT) /* 活动作业数 */                  

   /* 获取CPU使用率 */                                         
   RTVSYSCFG CFGNAM(CPUUSED) CFGTYPE(*DEV) STATUS(&CPUUSAGE)     

   /* 获取内存使用率 */                                       
   RTVSYSVAL SYSVAL(QMEMAVL) RTNVAR(&MEMUSAGE)                   

   /* 获取磁盘空间 */                                         
   RTVDSKINF DEV(DEV001) SIZE(&DISKSPACE) FSTCHR(3 0)          

   /* 获取活动作业数 */                                       
   RTVJOBA JOBACT(&JOBACT)                                    

   /* 警报处理 */                                             
   IF (&CPUUSAGE > 90) THEN(DO)                                 
      SNDUSRMSG MSG('CPU使用率超过90%') TOUSR(QSYSOPR)          
   ENDDO                                                        

   /* 输出结果 */                                             
   CHGVAR VAR(%SST(&RESULT 1 5)) VALUE(&CPUUSAGE)               
   CHGVAR VAR(%SST(&RESULT 6 5)) VALUE(&MEMUSAGE)               
   CHGVAR VAR(%SST(&RESULT 11 15)) VALUE(&DISKSPACE)            
   CHGVAR VAR(%SST(&RESULT 26 5)) VALUE(&JOBACT)                

   /* 输出到控制台 */                                         
   MONMSG MSGID(CPF0000)         
   SNDPGMMSG MSG('资源监视结果:') MSGTYPE(*DIAG)              
   SNDPGMMSG MSG('CPU使用率：' *BCAT %SST(&RESULT 1 5) *BCAT '%') MSGTYPE(*DIAG)
   SNDPGMMSG MSG('内存使用率：' *BCAT %SST(&RESULT 6 5) *BCAT '%') MSGTYPE(*DIAG)
   SNDPGMMSG MSG('磁盘空间：' *BCAT %SST(&RESULT 11 15) *BCAT 'MB') MSGTYPE(*DIAG)
   SNDPGMMSG MSG('活动作业数：' *BCAT %SST(&RESULT 26 5)) MSGTYPE(*DIAG)
ENDPGM

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