Recommendations for implementing Exit 7

If you are performing I/O for a $JCT, then you can use this exit to determine the queue on which a job resides at any point of processing at which JCT I/O is performed for the JES2 main task.

To determine which queue the job is currently on:

Ensure the control block is the $JCT by comparing the value in X007CBID with the characters 'JCT'.
Take the offset in the JCTJQE field of the JCT and add the offset to $JOBQPTR to locate the JQE.
Access the JQE and locate the JQETYPE field. JQETYPE can then be tested to determine on which queue, out of ten general queues, the current job resides. The following table lists the ten possible queues along with their corresponding hexadecimal representations in JQETYPE:
$XEQ

X'40'

$INPUT

X'20'

$XMIT

X'10'

$RECEIVE

X'04'

$OUTPUT

X'02'

$HARDCOPY

X'01'

$PURGE

X'00'

$FREE

X'FF'

$SPIN

X'80'

Note: The $XEQ queue is actually two general queues, the conversion queue (which is X'40') and the execution queues. The class of each execution queue is indicated by the low-order 6 bits. For example, execution class “A” is X'41'. The scheme is similar to the EBCDIC character conversion chart in the MVS™ Reference Summary