Register contents when Exit 14 passes control back to JES2

Upon return from this exit, the register contents must be:

Register

Contents

0

Not applicable

1

Address of a QGET parameter list having the following structure:

+0 (word 1)

Address of the node table

+4 (word 2)

Address of the control block

+8

Address of the class list

+12 (word 4)

Address of the JQE

+16 (word 5)

each byte is set as follows:

+16: Length of the class list
+17: Queue type (see the $QGET macro description for a list of these) This byte is set to ‘00’ for queue types INWS, OJTWSC, and OJTWS. Byte 18 (the type flag) is used to differentiate between these three queue types.
+18: Work selection type flag
+19: Response byte flags: X'80' - Initiator class list optimization not allowed

2-14

Not applicable

15

A return code

A return code of:

0: Tells JES2 that if any additional exit routines are associated with this exit, call the next consecutive exit routine. If there are no additional exit routines associated with this exit continue normal queue scan processing.
4: Tells JES2 to ignore any other exit routines associated with this exit and to continue normal queue scan processing.
8: Tells JES2 to bypass normal queue scan processing because a JQE was found by the exit routine. The address of the JQE the exit routine found is provided in the fourth word of the QGET parameter list (the address of which is returned in register 1).
12: Tells JES2 to bypass normal processing because a JQE was not found.