上一篇：INZTAP的参数问题

AS/400开发经验点滴（四）--如何在程序中获取系统状态信息

AS/400开发经验点滴（四）

七．如何在程序中获取系统ASP使用率等系统状态信息

AS/400系统管理员都对系统ASP空间增长情况很关心，当系统ASP空间涨满了以后将会引起系统DOWN机等安全问题。系统ASP空间与硬盘空间并不完全等同，如果系统只配置了一个ASP分区，那么系统ASP空间与硬盘空间是等同的，如果系统配置了多个ASP分区，则系统ASP只是ASP 1的分区。用WRKSYSSTS命令查看到的% system ASP used就是表示系统ASP空间的使用率。

与系统ASP空间使用率有关的系统值有两个：QSTGLOWLMT和QSTGLOWACN。QSTGLOWLMT系统值设定了最小硬盘空间警告线百分比，比如设定为5，即表示系统ASP使用率达到95%，即引起安全动作，安全动作由系统值QSTGLOWACN设定。

能不能在程序中自动获取系统ASP使用率，这样当硬盘空间达到危险值时，由程序提前报警呢？或者在程序中自动执行一些安全动作，比如自动清理一些过时的文件，或停止某些程序运行，以降低系统ASP使用率?

OS/400系统提供了一个叫QWCRSSTS的API函数，该函数功能就可以提取用WRKSYSSTS命令看到的系统状态信息，还可以提取更多的用WRKSTSSTS命令看不到的一些其他系统信息。可以在RPG、C、CL等程序里调用该API以获取系统信息。该函数的详细使用说明可以参看《System API Reference》这本书。

下面我用一个实际获取系统ASP使用率的CL程序做例子，来看看如何使用QWCRSSTS。

QWCRSSTS共有五个入口参数，第一个参数是接受返回系统状态信息的输出参数，存放的是返回系统状态信息块。该系统状态信息块是按照一定结构来存放各种系统状态信息的。第二个参数是输入参数，指定第一个接受系统状态信息块变量的长度，类型为Binary。第三个参数是指定第一个参数系统状态信息块中的系统信息存放结构名，共有三种不同的结构可选，分别是:SSTS0100、SSTS0200、SSTS0300。第四个参数是表示是否重新设置状态统计，通常我们选*YES。第五个参数是错误码。

在本示例CL程序中，指定使用SSTS0200系统状态信息结构。该结构中53-57位存放的就是% system ASP used。该值除上10000，就是正常百分比。在程序中先是提取QSTGLOWLMT系统值，指定100-QSTGLOWLMT-2为程序警告线，比如QSTGLOWLMT如果设为５，那么当系统ASP到93%的时候，程序会向用户发出一个消息。同时把ASP状态返回值设为１，以供其他程序调用，当调用程序判断ASP状态返回值为１的时候，就知道系统ASP空间利用率到了警告线，需要执行一些安全动作了。

[code:1:1ced1f3fa8]/*===================================================================*/
/*             　　　　                                                      */
/*-----------------------------------------------------------------------------------------------------------------*/
/*     PROGRAM NAME    : MONASP                                         */
/*     CREATED BY      : BLOG LIOU                                        */
/*     CREATED DATE    : 2003.11.11                                          */
/*     DESCRIPTION     : Monitor ASP Used                                    */
/*                       MonASPPer: (100-STGLOWLMT)-2                      */
/*===================================================================*/
             PGM        PARM(&ASPFLAG)
             DCL        VAR(&ASPFLAG) TYPE(*CHAR) LEN(1)
             DCL        VAR(&FORMAT) TYPE(*CHAR) LEN(8)  +
                          VALUE(SSTS0200)
             DCL        VAR(&LENFLD) TYPE(*CHAR) LEN(4) +
                          VALUE(X00000044)
             DCL        VAR(&SYSNAM) TYPE(*CHAR) LEN(8)
             DCL        VAR(&SYSUSEC) TYPE(*CHAR) LEN(4)
             DCL        VAR(&SYSUSE) TYPE(*DEC) LEN(9 2)
             DCL        VAR(&SYSINFO) TYPE(*CHAR) LEN(68)
             DCL        VAR(&ERRCODE) TYPE(*CHAR) LEN(8) +
                          VALUE(X0000000000000000)
             DCL        VAR(&RESETSY) TYPE(*CHAR) LEN(10) VALUE(*YES)
             DCL        VAR(&QMNPER) TYPE(*DEC) LEN(9 2) VALUE(1000000)
             DCL        VAR(&QALARM) TYPE(*DEC) LEN(9 2) VALUE(20000)
             DCL        VAR(&STGLOWLMT) TYPE(*DEC) LEN(9 2)
             DCL        VAR(&SNDMSG) TYPE(*CHAR) LEN(10)

             CHGVAR     VAR(&ASPFLAG) VALUE(0)
             RTVSYSVAL  SYSVAL(QSTGLOWLMT) RTNVAR(&STGLOWLMT)
             CHGVAR     VAR(&STGLOWLMT) VALUE(&STGLOWLMT * 10000)
             CHGVAR     VAR(&QMNPER) VALUE(&QMNPER - &STGLOWLMT)
             CHGVAR     VAR(&QMNPER) VALUE(&QMNPER - &QALARM)

             CALL      PGM(QWCRSSTS) PARM(&SYSINFO &LENFLD &FORMAT +
                          &RESETSY &ERRCODE)
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERREND))
             CHGVAR     VAR(&SYSUSEC) VALUE(%SST(&SYSINFO 53 4))
             CHGVAR     VAR(&SYSUSE) VALUE(%BINARY(&SYSUSEC))
             CHGVAR     VAR(&SYSNAM) VALUE(%SST(&SYSINFO 17 8))
             IF         COND(&SYSUSE > &QMNPER) THEN(DO)
             CHGVAR     VAR(&SNDMSG) VALUE(&SYSUSE)
             SNDPGMMSG  MSG(&SYSNAM *BCAT  - (ASP USED +
                          PERCENT)*10000 =  *BCAT &SNDMSG) +
                          TOMSGQ(MYUSER)
             SNDPGMMSG  MSG(*****SYSTEM OVER MonASP !!! ) +
TOMSGQ(MYUSER) MSGTYPE(*INFO)
             CHGVAR     VAR(&ASPFLAG) VALUE(1)
             ENDDO
             GOTO       CMDLBL(END)

ERREND:    SNDPGMMSG  MSG( ERROR ON QWCRSSTS CALL) +
                          TOMSGQ(MYUSER) MSGTYPE(*INFO)
END:        ENDPGM
                                                         [/code:1:1ced1f3fa8]

该程序也可以与某些报警程序连起来使用，比如当系统ASP空间达到警告线后，程序调用某些拨号程序，就可以给系统管理员手机发短信息等。

如果再设计一个显示文件，把QWCRSSTS获取到的系统状态信息，比如系统ASP使用率、CPU使用率、系统出现Message进程数，都显示出来，我们就实现了一个系统状态信息的监视工具。　

blogliou 回复于：2003-12-25 17:05:58

为什么一个8加一个)就变成了笑脸？晕啊！

qingzhou 回复于：2003-12-25 17:12:56

blogliou兄弟：你这些资料有没有现成的Word或者Pdf文件？干脆上传出来给大伙共享。
如果是书，请告诉我书名，可以吗？

yj2yq 回复于：2003-12-25 17:16:16

代码用code方式输入啊!

blogliou 回复于：2003-12-25 17:29:22

[quote:428e46bf9c="qingzhou"]blogliou兄弟：你这些资料有没有现成的Word或者Pdf文件？干脆上传出来给大伙共享。
如果是书，请告诉我书名，可以吗？[/quote:428e46bf9c]

<System API Reference>可以在网上找找，或者到IBM红皮书网站找找.
本系列文是根据本人实际工作经验再结合IBM 400红皮书总结写成。

qingzhou 回复于：2003-12-25 17:58:23

:em22: 我是说《AS/400开发经验点滴》！

blogliou 回复于：2003-12-25 18:07:54

[quote:e0738267c9="qingzhou"]:em22: 我是说《AS/400开发经验点滴》！[/quote:e0738267c9]

《AS/400开发经验点滴》是我自己原创，目前已写1-4，还有一些没写出。只要一写出，我就会在第一时间发到本论坛上。

qingzhou 回复于：2003-12-25 18:12:42

哦！
不错~~~~
看来阁下是位老IBM Engineer,谢谢你提供了这么好的经验给我们参考！
我先顶着~~~
期待更多更好的出炉ing......

wildfish 回复于：2003-12-26 17:25:20

呵呵，顶，我最喜欢这些了。

stephenxie2003 回复于：2003-12-29 10:15:53

这位大哥真是有心人啊！
支持！
:)

fairyboy 回复于：2004-12-01 08:06:47

真牛B！不佩服还不行呢

Red_Crow 回复于：2004-12-01 08:53:51

支持，加油！

thursday 回复于：2004-12-01 09:49:31

收藏,帮顶!

最热门文章推荐：
>· voip组网
>· 腾讯rtx
>· 家庭无线局域网
>· 什么是无线局域网
>· 无线局域网的标准
>· 无线宽带局域网
>· 信息安全论坛
>· 信息安全标准

下一篇：异常IPL的原因归纳

↓相关文章：