得到子系统正在运行的作业数

【转】

如何在程序中取到某一子系统下正在运行的作业数？？

 

/* RETRIEVE SUBSYSTEM INFORMATION */                                
            CALL       PGM(QWDRSBSD) PARM(&RCVDTA &RCVLENB &FMTNAM +
                         &RTVSBS &ERRCOD)                 

试试API:   QWDRSBSD