Jobparameter-Exit (032)

Dieser Exit ermöglicht die Verarbeitung so genannter Jobparameter, die die Systembetreuung bei der Definition von Jobklassen festlegen kann (siehe dazu Anweisung DEFINE-JOB-CLASS im Dienstprogramm JMU, Handbuch „Dienstprogramme“ [4]).

Ein Jobparameter ist eine bis zu 127 Zeichen lange Folge in beliebiger Syntax, die in einem der Kommandos ENTER-PROCEDURE, ENTER-JOB, MODIFY-JOB oder SET-LOGON-PARAMETERS als Operand angegeben werden kann.

Die Exit-Routine wird nur bei akzeptiertem SET-LOGON-PARAMETERS-Kommando im Dialogbetrieb bzw. bei den Kommandos ENTER-JOB, ENTER-PROCEDURE und MODIFY-JOB aufgerufen. Bei ENTER-JOB, ENTER-PROCEDURE oder MODIFY-JOB auf nicht gestartete Stapelaufträge werden die Jobparameter auch an den TU-Scheduler übergeben, der sie ebenfalls auswerten kann.

Folgende Informationen werden an die Exit-Routine übergeben:

R1 = A(EX032-Parameterbereich)
R12 = A(TPR Program Manager)
R13 = A(Sicherungsbereich der rufenden Komponente)
R14 = A(indirekter Rücksprung)
R15 = A(Exit-Routine)

Die Rückkehrinformation sollte mit der Form MF=M des EX032-Makros an die rufende Systemkomponente übergeben werden.

Hinweis

Der Jobparameter-Exit wird vor einer eventuell vorhandenen LOGON-Exit-Routine aufgerufen. Zu diesem Zeitpunkt stehen die Informationen in den Systemtabellen noch nicht vollständig zur Verfügung (z.B. TSN im 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