This exit enables the processing of job parameters; these can be defined by systems support during the definition of job classes (cf. the DEFINE-JOB-CLASS statement in the JMU utility routine in the “Utility Routines” manual [4]).
A job parameter is a string of up to 127 characters with freely selectable syntax that can be specified as an operand in an ENTER-PROCEDURE, ENTER-JOB, MODIFY-JOB or SET-LOGON-PARAMETERS command.
The exit routine can only be called in the case of an accepted SET-LOGON-PARAMETERS command in interactive mode or for the ENTER-JOB, ENTER-PROCEDURE and MODIFY-JOB commands. In the case of an ENTER-JOB, ENTER-PROCEDURE or MODIFY-JOB command issued to batch tasks which have not been started, job parameters are also passed to the P1 scheduler, which can also evaluate them.
The following information is passed to the exit routine:
R1 = A(EX032 parameter area) R12 = A(TPR program manager) R13 = A(save area of calling component) R14 = A(indirect return) R15 = A(exit routine)
The return code should be transferred to the calling system component using the form MF=M of the EX032 macro.
Note
The job parameter exit is called before any LOGON exit routine. At this point the information available in the system tables is still not complete (e.g. TSN in JTBP).
DSECT
EX032 MF=D
MFTST MF=D,PREFIX=J,MACID=MSX,ALIGN=F, C
DMACID=MSX,SUPPORT=(E,D,C,M,L),DNAME=MSXJE
JMSXJE DSECT ,
*,##### PREFIX=J, MACID=MSX #####
* parameterarea description
JMSXJER0 DS XL6 reserved
JMSXJERC DS H (main) return code
* decision of the exit routine
JMSXJEAC EQU 0 accept job
JMSXJERJ EQU 1 reject job
*
JMSXJEJ DS 0XL128
JMSXJEJP DS CL128 job parameter data
ORG JMSXJEJ
*
JMSXJEPD DS 0XL128
JMSXJEPL DS X length of job parameters
JMSXJEPS DS CL127 job parameters
*
ORG JMSXJEJ+128
JMSXJEJC DS 0XL128
JMSXJECP DS CL128 job class parameter data
ORG JMSXJEJC
*
JMSXJECD DS 0XL128
JMSXJECL DS X length of job class
* parameters
JMSXJECS DS CL127 job class parameters
*
ORG JMSXJEJC+128
JMSX# EQU *-JMSXJER0