Melanjutkan tulisan saya tentang “Read File From Table”, saya mencoba mengembangkannya menjadi program untuk Monitor Status Job atau Subsystem.

Program monitor ini dengan sedikit modifikasi dapat berjalan secara batch sehingga dapat terus memonitor kondisi job pada subsystem tertentu.

Untuk File SPOOL1P dapat dilihat pada post tentang RPG sebelumnya. Berikut potongan code CL :

DCL        VAR(&STSJOB) TYPE(*CHAR) LEN(4)
DCLF       FILE(SPOOL1P)
CLRPFM     FILE(&LIBD/SPOOL1P)
WRKACTJOB  OUTPUT(*PRINT) SBS(&SBS)
CPYSPLF    FILE(QPDSPAJB) TOFILE(&LIBD/SPOOL1P) SPLNBR(*LAST)
DLTSPLF    FILE(QPDSPAJB) SPLNBR(*LAST)
E:
RCVF       RCDFMT(SPOOLR)
MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(F))
CHGVAR     VAR(&RECORD) VALUE(&RECORD+1)
CHGVAR     VAR(&STSJOB) VALUE(%SST(&SPOOL 111 4))
IF         COND(&RECORD *LE 10) THEN(GOTO CMDLBL(E))
IF         COND(&STSJOB *EQ 'MSGW') THEN(DO)
/* put some handler here */
ENDDO
GOTO       CMDLBL(E)
F: