WRKACTJOBS - Output Work Active Jobs to file.

/*********************************************************************/
/* Program: WRKACTJOBS */
/* */
/* Author: Poul Aschenbrenner, COOP Data */
/* */
/* Function: Output Work Active Jobs to file. */
/* */
/* Parm: 1. Subsystem */
/* 2. Job Name */
/*********************************************************************/
PGM PARM(&SBS &JOB)
DCL VAR(&SBS) TYPE(*CHAR) LEN(10)
DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
DCL VAR(&CMD) TYPE(*CHAR) LEN(80)
CRTPF FILE(QTEMP/WRKACTJOBS) RCDLEN(266)
MONMSG MSGID(CPF0000)
CHGVAR VAR(&CMD) VALUE('system "wrkactjob sbs(' *TCAT +
&SBS *TCAT ') JOB(' *TCAT &JOB *TCAT ')"')
SNDPGMMSG MSG('Output for WRKACTJOB send to +
QTEMP/WRKACTJOBS...')
OVRDBF FILE(STDOUT) TOFILE(QTEMP/WRKACTJOBS)
STRQSH CMD(&CMD)
ENDPGM
/*********************************************************************/
/* Command: WRKACTJOBS */
/* */
/* Author: Poul Aschenbrenner, COOP Data */
/* */
/* Function: Output Work Active Jobs to file. */
/* */
/* Parm: 1. Subsystem */
/* 2. Job Name */
/*********************************************************************/
CMD PROMPT('Output Work Active Jobs')
PARM KWD(SBS) TYPE(*CHAR) LEN(10) DFT(*ALL) +
MIN(0) CHOICE('Name, *ALL') +
PROMPT('Subsystem')
PARM KWD(JOB) TYPE(*CHAR) LEN(10) DFT(*ALL) +
MIN(0) CHOICE('Name, generic*, *ALL') +
PROMPT('Job name')