Does your company have multiple jobqs for batch subsystems? It is a great way to keep one department from hogging the system.�Each department has their own jobq with one job slot.�That way each department gets equal time on the system. Once a job enters the system, the job no longer shows the jobq used to enter the subsystem. I created the Command WRKBCHJOB from the WRKUSRJOB command using assistant level basic.�This option along with JOBTYPE(*batch) gives you a list of jobs by jobq, both active and waiting.�
CMD������� PROMPT('Work with Batch Jobs')�������������
������������������������������������������������������
PARM������ KWD(USER) TYPE(*NAME) LEN(10) DFT(*ALL) +��
������������ SPCVAL((*ALL) (*)) PROMPT('User to view +
������������ batch jobs for')�������������������������
Command processor:
PGM������� PARM(&USER) /* Work with Batch Jobs */����
�����������������������������������������������������
DCL������� VAR(&USER) TYPE(*CHAR) LEN(10)������������
�����������������������������������������������������
WRKUSRJOB� USER(&USER) STATUS(*ALL) JOBTYPE(*BATCH) +
������������ ASTLVL(*BASIC)��������������������������
This was first published in January 2001