求教，老大叫俺做个系统管理自动化的工具，不知道可以做哪些功能

cmbclerk

各位都是高人，请指点一下，系统管理哪些东西可以自动化一点，谢谢

sz_lixlx

说白了也就是想把一些E文命令变成中文菜单是吧.不过系统管理这个概念够大,到底想管理什么啊

qingzhou

系统需要管理的东西很多，比如：
1。自动监管%system asp used和发送报警邮件给管理员;
2。自动发送邮件报警MSGW作业给管理员；
3。自动监控Current unprotect used临时空间和 % temp addresses发送邮件给管理员；
4。自动监管DISK ARM I/O；
5。自动监管%CPU
6。自动监管Journal Receive；
。。。

目前我已经实现1。2。3。6项；4。5。正在处理之中。

cmbclerk

qingzhou好像是这里的高人
1 3我已经实现
其他几项功能，你能否给点相关资料吗？谢谢了

qingzhou

有配置成功SNDDST使用环境没？

jj8610

还有当应用异常时自动PAGING, 自动SMS.

自动监测作业的运行状况及可能发生异常的判断能力.

jj8610

主要是尽可能用API来做.

我有做过WEB BASED管理工具, 在AS/400用NET.DATA实现, 很简单.

可惜已经离职, 原码不在.

cmbclerk

SNDDST没用过

qingzhou

原帖由 jj8610 于 2007-4-18 01:06 发表
还有当应用异常时自动PAGING, 自动SMS.

自动监测作业的运行状况及可能发生异常的判断能力.

是要实现这些功能，不然还叫“自动监管”啊~~~


要监控的东西还很多，还可以实现：

7。自动监控网卡是否ACTIVE；
8。检测每个JOB的Temp Storage；
9。检测subsystem status；
10。监控ODBC/JDBC真实使用者及操作处理；
11。自动监控 QSYSOPR 内的Hardware Attention 消息；
。。。。。。

qingzhou

原帖由 cmbclerk 于 2007-4-18 08:29 发表
SNDDST没用过

那如何让400自动发送邮件给你呢。
还是通过别的途径。

自动监控MSGW作业，我是按照如下CLP思路：

1。创建临时QTEMP数据：CRTPF QTEMP/ALERTJOB RCDLEN(132)

2。定义变量：
DCL        VAR(&STS) TYPE(*CHAR) LEN(4)
DCL        VAR(&TXT) TYPE(*CHAR) LEN(60)
DCLF       FILE(QTEMP/ALERTJOB)         

3。隔几分钟后循环执行WRKACTJOB *PRINT产生最新SPLF，删除旧SPLF，拷贝CPYSPLF    FILE(QPDSPAJB) TOFILE(QTEMP/ALERTJOB) SPLNBR(*LAST) 为PF；

4。RCVF       RCDFMT(ALERTJOB)

5。满足条件&STS=‘MSGW’时：
IF         COND(%SST(&ALERTJOB 111 4) *EQ &STS) THEN(DO)  

6。赋予&TXT数据：
             CHGVAR     VAR(&TXT) VALUE(&STS *CAT ' STATUS : ' *CAT +  
                           %SST(&ALERTJOB 29 6) *CAT '/' *CAT +         
                           %SST(&ALERTJOB 17 10) *TCAT '/' *CAT +      
                           %SST(&ALERTJOB 4 10) *CAT '')  
           
7。发送邮件：SNDDST     TYPE(*LMSG) +                                 
                           TOINTNET((admin@xxx.com)) +        
                           DSTD('ALERT') LONGMSG(&TXT)