Interface to the exit

The job-tailoring prevention exit is invoked in task mode, problem state, and key 8 and the job-step task is APF-authorized. The active task runs with the same access authority as the job-step task. The exit must restore this state before returning to its caller.

Tivoli Workload Scheduler for z/OS invokes the exit in the addressing mode defined by the load module's AMODE attribute, that is 31 bit addressing mode, therefore the job stream passed to the exit resides above the 16M line.

Control is passed to the exit using the BASSM instruction. The exit must return to its caller using the address passed to it in general register 14. The exit can return in any addressing mode.

When the exit is entered, register 1 contains the address of the parameter list. Each address in this list is used to locate the parameter value. These parameters are passed to the exit:

| |EQQUX013 parameters |

|
JOBNAME  DS CL8 (Job name)                                      
|JCLLEN   DS F (Size, in bytes, of current job stream)           
|JCLAREA  DS n * CL80 (All records in job stream)                
|LATEOUT  DS CL10     (Latest start, format YYMMDDHHMM)          
|ESTDUR   DS CL4      (Estimated duration, format HHMM)          
|NUMPS    DS H        (Number of parallel servers required)      
|NUMR1    DS H      (Amount required of workstation resource 1)  
|NUMR2    DS H      (Amount required of workstation resource 2)  
|SPECRES  DS CL8      (First 8 characters of first sr name)      
|ADID     DS CL16     (Name of current application)              
|MCAUSERF DS A        (User field)                               
|GROUP    DS CL8      (Name of current authority group)          
|RUSER    DS CL8      (Name of RACF user submitting the job)     
|OPERTYPE DS CL1      (J or S, for job or started task)          
|UPDAT    DS C        (Y or N, defines job origin)               
|JCLUSER  DS CL8      (Last user updating this job)              
|JCLUTIME DS CL10     (Time or last update, format YYMMDDHHMM)   
|OPNUM    DS F        (Operation number)                         
|IATIME   DS CL10   (Occurrence input-arrival time, YYMMDDHHMM)  
|OWNER    DS CL16    (Application owner name)                    
|SPECNR   DS H        (Number of special resources)              
|SPECBUF  DS A        (Special resource buffer)                  
|WSNAME   DS CL4      (Operation workstation name)               
|XINFO    DS A        (Extended information address)             
|XJNAMLEN DS F        (Extended job name length)                 
|WSCHENV  DS CL 16    (Scheduling Environment Name)              
|CLEANUPT DS CL 1     (Clean-up type)                            
|RETCO    DS CL4      (Operation error code)
|
|
Notes:
|
    |
  1. To allow more flexibility in determining the jobs that are not |to be tailored with the //TIVDSTxx OUTPUT statements, the JCL of the |job being submitted is provided as input to this exit. However, to |work successfully, the exit must not modify this JCL.
    2. |
  2. A job is not tailored for data store processing, if the EQQUX013 |exit returns a return code 0012 to the Work Station Analyzer.
    3. |
| |
JOBNAME
|
Name of the job that is about to be submitted. |
|
JCLLEN
|
Size, in bytes, of the job. |
|
JCLAREA
|
JCL records in the job. |
|
LATEOUT
|
The latest-start-time value that Tivoli Workload Scheduler for z/OS has calculated for the |job. |
|
ESTDUR
|
The estimated duration of this job |
|
NUMPS
|
The number of parallel servers required |
|
NUMR1
|
The amount of workstation resource 1 required |
|
NUMR2
|
The amount of workstation resource 2 required |
|
SPECRES
|
The first 8 characters of the special resource name |
|
ADID
|
Name of the application of which the job is part. |
|
MCAUSERF
|
A user field that is also passed to the EQQUX000 exit. Tivoli Workload Scheduler for z/OS does |not use the MCAUSERF field. |
|
RUSER
|
The name of the RACF® user |that owns the job |
|
OPERTYPE
|
Has the value J for job or S for started task. |
|
UPDAT
|
Has the value Y if the current job was retrieved from the EQQJSnDS |data set. In all other cases, UPDAT has the value N. |
|
GROUP
|
The name of the authority group that the current operation belongs |to |
|
JCLUSER
|
Name of the last TSO user who updated the current job. This |parameter is meaningful only if UPDAT is Y. |
|
JCLUTIME
|
The date and time of the last update to the current job. This |parameter is meaningful only if UPDAT is Y. |
|
OPNUM
|
Operation number of the operation representing this job |
|
IATIME
|
Input-arrival time of the application occurrence to which this |job belongs |
|
OWNER
|
The name of the owner of the current application |
|
SPECNR
|
The number of special resource names in SPECBUF |
|
SPECBUF
|
An address to a buffer that contains a number of 64-byte fields. |The number of 64-byte fields in the buffer is indicated by SPECNR. |The first 44 bytes of each field contain the name of the special resource. |The last 2 bytes of each field are reserved for future use. |
|
WSNAME
|
Name of the operation workstation. |
|
XINFO
|
The address of the data specified in the Extended Info field |o the Current Plan for the corresponding operation. If its value is |0, no extended information is available in the current plan. |
|
XJNAMLEN
|
The length that you specify in the Operation Extended Name |field of the Current Plan for the corresponding operation. It is a |sub-field of the extended information available in the current plan. |
|
WSCHENV
|
The scheduling environment name currently stored in the CP |operation record. This value can be modified by the exit. |
|
RETCO
|
Name of a field that is used by the user exit to prevent the |jobs from being tailored with the //TIVDSTxx OUTPUT statements to |generate additional copies of the JESDS data sets for data store processing. |