如果判断JOB是否存在？

wangmy61

比如有两个JOB（JOB、JOB2），在用WRKACTJOB都能看到，我想写个程序，自动运行监控，判断JOB是否存在，如果有任何一个JOB不存在，那就发送报警邮件给管理员，本人没有写过程序，请问怎么写啊？谢谢。

jerry_1754

用系统函数：QUSCRTUS、QUSLJOB、QUSRTVUS 具体自己看吧

fairyboy

我这里有个判断当前用户是否使用,进行后续处理的程序.和你的要求差不多吧

WRKACTJOB OUTPUT(*PRINT) SBS(QINTER) (我这里只对QINTER中的JOB做处理,你可以根据自己的要求定义)

CPYSPLF    FILE(QPDSPAJB) TOFILE(MYLIB/MYPF) +     
             SPLNBR(*LAST) CTLCHAR(*NONE)                  
           MONMSG     MSGID(CPF0000)                       
           DLTSPLF    FILE(QPRTSPLQ) JOB(*) SPLNBR(*LAST)  
           MONMSG     MSGID(CPF0000)                       

我这里自己建立了一个PF用来接收记录,用户后续判断.


RCVF:       RCVF       RCDFMT(RMYPF)                                    
               MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDRCV))      
            IF         COND(&BLK2 *NE '   ' *OR &JOBNAM = 'TEST      ') +
                       THEN(GOTO CMDLBL(RCVF))

根据记录的值,进行相关操作.

jackyxp

试试Java
public boolean getStat(String JobName){
    JobList jobl = new JobList(new AS400());
    jobl.addJobSelectionCriteria(JobList.SELECTION_JOB_NAME, JobName);
    Enumeration jobs = jobl.getJobs();
    if (jobs.hasMoreElements())
        return true;
    else
        return false;
}

wangmy61

谢谢各位。