2001-12-31 如何定時自動檢核 System ASP Storage 的使用百分比？

如何定時自動檢核 System ASP Storage 的使用百分比？

System ASP Storage 的使用百分比可以從執行指令 WRKSYSSTS 結果得知，


                            Work with System Status                    SYSTEM  
                                                             12/31/01  08:42:10 
 % CPU used . . . . . . . :        4.9    Auxiliary storage:                    
 % DB capability  . . . . :         .0      System ASP . . . . . . :    33.95 G 
 Elapsed time . . . . . . :   00:07:28      % system ASP used  . . :    48.6081 
 Jobs in system . . . . . :        459      Total  . . . . . . . . :    33.95 G 
 % perm addresses . . . . :       .013      Current unprotect used :     1697 M 
 % temp addresses . . . . :       .013      Maximum unprotect  . . :     1759 M 
                                                                                
 Type changes (if allowed), press Enter.                                        
                                                                                
 System    Pool    Reserved    Max   -----DB-----  ---Non-DB---                 
  Pool   Size (M)  Size (M)  Active  Fault  Pages  Fault  Pages                 
    1       95.28     56.43   +++++     .0     .0     .4     .4                 
    2      508.31      2.10     160     .0     .0     .0     .0                 
    3        6.39       .00       5     .0     .0     .0     .0                 
    4       30.00       .01      15     .0     .0     .1     .4                 
                                                                                
                                                                         Bottom 
 Command                                                                        
 ===>                                                                           
 F3=Exit   F4=Prompt           F5=Refresh   F9=Retrieve   F10=Restart           
 F11=Display transition data   F12=Cancel   F24=More keys                       


系統可藉由手動開機方式設定 System ASP Threshold 值，
當系統硬碟資源使用率達到設定值時，系統會自動送出一個訊息通知系統操作員，
系統硬碟資源使用率已達到設定值，此時系統操作員或系統管理者需要採取適當的
程序來將使用率下降，像是清除System Log或報表或某些過時的資料。

但這種做法比較被動，我們可以依據需求更改Threshold 值，並定時針測ASP使
用率而不用透過手動開機方式設定 System ASP Threshold 值，取得較彈性的管理方式。


File   : QCLSRC
Member : THRESHOLDC
Type   : CLP

            

PGM
DCL VAR(&FORMAT) TYPE(*CHAR) LEN(8) VALUE('SSTS0200')
DCL VAR(&LENFLD) TYPE(*DEC) LEN(4) VALUE(68)
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(X'0000000000000000')
DCL VAR(&RESETSY) TYPE(*CHAR) LEN(10) VALUE(*YES)
DCL VAR(&Q90PER) TYPE(*DEC) LEN(9 2) VALUE(900000)

PROCED1: CALL PGM(QWCRSSTS) PARM( &SYSINFO &LENFLD &FORMAT &RESETSY +
&ERRCODE )
MONMSG MSGID(CPF0000) +
EXEC(GOTO PROCED2)
CHGVAR &SYSUSEC VALUE(%SST(&SYSINFO 53 4))
CHGVAR &SYSUSE %BINARY(&SYSUSEC)
IF (&SYSUSE > &Q90PER) (DO)
SNDPGMMSG MSG('**SYSTEM OVER 90% ASP**') +
TOMSGQ(QSYSOPR) MSGTYPE(*INFO)
RETURN
ENDDO
SNDPGMMSG MSG('**SYSTEM UNDER 90% ASP**') +
TOMSGQ(QSYSOPR) MSGTYPE(*INFO)
RETURN
PROCED2: SNDPGMMSG MSG('GETTING ERROR ON SYS CALL') TOMSGQ(QSYSOPR) +
MSGTYPE(*INFO)
ENDPGM 
            

參考資料　Retrieve System Status (QWCRSSTS) API

Retrieve System Status (QWCRSSTS) API

http://publib.boulder.ibm.com/pubs/html/as400/v5r1/ic2924/info/apis/qwcrssts.htm