Here is a simple CL I wrote:
/* This program demonstates the QWDRSBSD API */
/* When called with a subsystem name */
/* CALL #JOBSBS PARM(QINTER) */
/* it returns some info about the subsystem */
/* mainly the number of jobs active and the */
/* status of the subsystem */
/* comments to bryandietz@xxxxxxxxx */
PGM PARM(&SBS )
DCL &NBR *CHAR 4
DCL &TOT *CHAR 4
DCL &SBS *CHAR 10
DCL &LIB *CHAR 10 VALUE('*LIBL ')
DCL &LEN *CHAR 4
DCL &ACT *CHAR 10
DCL &SPACE *CHAR 100
DCL &SBSLIB *CHAR 20
DCL &ERROR *CHAR 8 (X'0000000000000000')
CHGVAR %SST(&SBSLIB 1 10) &SBS
CHGVAR %SST(&SBSLIB 11 10) &LIB
CHGVAR VAR(%BIN(&LEN)) VALUE('100')
CALL PGM(QWDRSBSD) PARM(&SPACE &LEN SBSI0100 +
&SBSLIB &ERROR)
MONMSG MSGID(CPF1608) EXEC(DO)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('The +
subsystem ' || &SBS *BCAT 'in *LIBL is +
not found')
GOTO CMDLBL(END)
ENDDO
CHGVAR VAR(&NBR) VALUE(%SST(&SPACE 73 4))
CHGVAR VAR(&TOT) VALUE(%BIN(&NBR))
CHGVAR VAR(&ACT) VALUE(%SST(&SPACE 29 10))
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('The +
number of jobs active in ' || &SBS *BCAT +
'is ' || &TOT || ' & the sbs is ' || &ACT)
END: ENDPGM
Sherri.Wilson@xxxxxxxxxxxx said the following on 2/27/2008 11:01 AM:
Does anyone know of a quick way to count the number of jobs running in a
subsystem?
Sherri Wilson
midrange.com
