What Jobq did that job come from?

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)�