CL:
/********************************************************************/
/* */
/* <<<< DSKVOLC >>>> */
/* */
/* DISK USAGE DATA CREATE CL */
/* */
/********************************************************************/
/* */
/* 更新履歴 */
/* 更新日付 更新者 更新内容 */
/* */
/********************************************************************/
PGM
/********************************************************************/
/*------------------------- 変数の定義 ---------------------------*/
/********************************************************************/
DCL VAR(&JUSR) TYPE(*CHAR) LEN(10) /* JOB USER */
DCL VAR(&JOBNM) TYPE(*CHAR) LEN(10) /* JOB NAME */
DCL VAR(&JOBNBR) TYPE(*CHAR) LEN(6) /* JOB NMBR */
/********************************************************************/
/*--------------------------- ADDLIBｾｯﾄ ----------------------------*/
/********************************************************************/
ADDLIBLE LIB(AHPSLIB)
MONMSG MSGID(CPF0000)
/********************************************************************/
/*-------------------------- 変数のｾｯﾄ ---------------------------*/
/********************************************************************/
RTVJOBA JOB(&JOBNM) USER(&JUSR) NBR(&JOBNBR)
/********************************************************************/
/*-------------------------- PRTFのHOLD --------------------------*/
/********************************************************************/
OVRPRTF FILE(QPDSPSTS) HOLD(*YES)
/********************************************************************/
/*------------------- WRKSYSSTS DATAのSPOOL FILE -----------------*/
/********************************************************************/
WRKSYSSTS OUTPUT(*PRINT) RESET(*NO)
/********************************************************************/
/*--------------------- WRKSYSSTS DATAの取込----------------------*/
/********************************************************************/
CPYSPLF FILE(QPDSPSTS) TOFILE(AHPSLIB/SPLFDB) +
JOB(&JOBNBR/&JUSR/&JOBNM) SPLNBR(*LAST) +
TOMBR(WRKSYSSTS)
/********************************************************************/
/*------------------------- DB-FILEの定義-------------------------*/
/********************************************************************/
OVRDBF FILE(SPLFDB) TOFILE(AHPSLIB/SPLFDB) +
MBR(WRKSYSSTS) SHARE(*YES)
OVRDBF FILE(DSKUSG) TOFILE(AHPSLIB/DSKUSG) +
MBR(DSKUSG) SHARE(*YES)
/********************************************************************/
/*---------------------処理ﾌﾟﾛｸﾞﾗﾑの呼出し----------------------*/
/********************************************************************/
CALL PGM(DSKVOL)
/********************************************************************/
/*-------------------変更済ﾌｧｲﾙのｸﾛｰｽﾞ/削除-------------------*/
/********************************************************************/
DLTOVR FILE(*ALL)
/********************************************************************/
/*----------------------- SPOOL FILEの削除------------------------*/
/********************************************************************/
DLTSPLF FILE(QPDSPSTS) JOB(&JOBNBR/&JUSR/&JOBNM) +
SPLNBR(*LAST)
/********************************************************************/
/*-------------------------- JOBの終了----------------------------*/
/********************************************************************/
END:
ENDPGM
DB:
SPLFDB:
A R SPLFDBR
A REC 220O
DSKUSG:
A R DSKUSGR
A DAT 6P
A TIM 6P
A CPU 4P 1
A DSK 7P 4
K DAT
K TIM
RPG:
FSPLFDB IF E DISK
FDSKUSG O E K DISK A
*
I DS
I 1 220 REC
I 32 340SPCPU1
I 32 34 SPCPUC
I 36 360SPCPU2
I 99 1010SPDSK1
I 103 1060SPDSK2
I 114 1150SPYY
I 117 1180SPMM
I 120 1210SPDD
I 124 1250SPHH
I 127 1280SPM
I 130 1310SPSS
I DS
I 1 60SPYMD
I DS
I 1 60WKYY
I DS
I 1 60WKMM
I DS
I 1 60WKDD
I DS
I 1 60SPHMS
I DS
I 1 60WKHH
I DS
I 1 60WKM
I DS
I 1 60WKSS
I DS
I 1 31WKCPU2
I DS
I 1 64WKDSK2
*
C Z-ADD0 SPCPU1
C Z-ADD0 SPCPU2
C Z-ADD0 WKCPU2
C Z-ADD0 SPDSK1
C Z-ADD0 SPDSK2
C Z-ADD0 WKDSK2
C Z-ADD0 SPYY
C Z-ADD0 SPMM
C Z-ADD0 SPDD
C Z-ADD0 SPHH
C Z-ADD0 SPM
C Z-ADD0 SPSS
C Z-ADD0 WKYY
C Z-ADD0 WKMM
C Z-ADD0 WKDD
C Z-ADD0 WKHH
C Z-ADD0 WKM
C Z-ADD0 WKSS
C Z-ADD0 SPYMD
C Z-ADD0 SPHMS
*
C READ SPLFDB 30
C READ SPLFDB 30
C 10000 MULT SPYY WKYY
C 100 MULT SPMM WKMM
C Z-ADDSPDD WKDD
C 10000 MULT SPHH WKHH
C 100 MULT SPM WKM
C Z-ADDSPSS WKSS
C Z-ADDWKYY SPYMD
C SPYMD ADD WKMM SPYMD
C SPYMD ADD WKDD SPYMD
C Z-ADDWKHH SPHMS
C SPHMS ADD WKM SPHMS
C SPHMS ADD WKSS SPHMS
C ADD SPYMD DAT
C ADD SPHMS TIM
C READ SPLFDB 30
C SPCPU2 DIV 10 WKCPU2
C SPCPUC IFEQ *BLANK
C Z-ADD0 SPCPU1
C ENDIF
C SPCPU1 ADD WKCPU2 CPU
C READ SPLFDB 30
C SPDSK2 DIV 10000 WKDSK2
C SPDSK1 ADD WKDSK2 DSK
C WRITEDSKUSGR
C MOVEL'1' *INLR
C RETRN
可以做个subfile显示DSKUSG中的数据。
注意：
SPLFDB中必须有WRKSYSSTS这个member。
阅读(1438) | 评论(0) | 转发(0) |
