TMEXIT1 TITLE ‘THRUPUT MANAGER EXIT 1 - JOB STATEMENT PROCESSING’
***********************************************************************
* * *
* T M E X I T 1 * TMEXIT1 - THRUPUT MANAGER JOB ANALYZER *
* * JOB STATEMENT EXIT (EXIT 1). *
******************** *
* *
* ENTRY: TMEXIT1 *
* *
* FUNCTION: *
* THIS MODULE RECEIVES CONTROL FROM THE THRUPUT MANAGER *
* JOB ANALYZER EACH TIME A JOB STATEMENT IS ENCOUNTERED. *
* CONTROL IS PASSED AFTER A JOB PROFILE IS ASSEMBLED AND *
* BEFORE JAL IS EXECUTED. *
* *
* THIS EXIT SETS A CHARACTER USER DESCRIPTOR TO THE VALUE *
* ‘TEST’. *
* *
* ATTRIBUTES: *
* AMODE(31), RMODE(ANY) *
* SUPERVISOR STATE, PROTECT KEY 0 *
* RE-ENTRANT, RE-USABLE *
* *
* ENTRY PARAMETERS: *
* R1 - ADDRESS OF UXPL *
* R13 - ADDRESS OF 4K WORK AREA PROVIDED BY TM *
* R14 - RETURN ADDRESS *
* R15 - ENTRY POINT ADDRESS *
* *
* EXIT PARAMETERS: *
* NONE: *
* *
* REGISTER USAGE: *
* R0 - WORK *
* RR1 - INPUT PARAMETER LIST, WORK *
* RR2 - NOT USED *
* RR3 - NOT USED *
* RR4 - NOT USED *
* RR5 - BASE FOR JOB USER DATA FIELD *
* RR6 - BASE FOR USER JOB DESCRIPTORS *
* RR7 - ADDRESS OF SERVICE ROUTINE INTERFACE LIST *
* RR8 - ADDRESS OF EXIT-SPECIFIC PARAMETER LIST *
* RR9 - BASE OF EXIT COMMUNICATION ADDRESS LIST *
* RR10 - ADDRESS OF EXIT COMMON PARAMETER LIST *
* RR11 - NOT USED *
* RR12 - BASE REGISTER *
* RR13 - SAVE-AREA/WORK-AREA BASE *
* RR14 - RETURN ADDRESS, WORK *
* RR15 - ENTRY POINT ADDRESS, WORK, RETURN CODE *
* *
* CONTROL BLOCK DEPENDENCIES: *
* UXPL - THRUPUT MANAGER EXIT PARAMETER LIST *
* UXCP - THRUPUT MANAGER EXIT COMMON PARAMETERS *
* UXIL - THRUPUT MANAGER EXIT COMMUNICATIONS INTERFACE LIST *
* UJDSC - THRUPUT MANAGER USER DESCRIPTOR LIST *
* UXP01 - THRUPUT MANAGER EXIT 1 SPECIFIC PARAMETERS *
* *
* RETURN CODES: *
* 0 - CONTINUE PROCESSING *
* 4 - EXIT HAS ALTERED DATA (NOT USED) *
* 8 - REQUEST JOB BE FAILED (NOT USED) *
* 12 - REQUEST IMMEDIATE FLUSH (NOT USED) *
* *
* MESSAGES: *
* NONE. *
* *
* PATCH AREA: *
* LOCATED AT LABEL ‘PATCH’ *
* *
* HISTORY: MAY 1989 - INITIALLY WRITTEN BY MVS SOLUTIONS INC. *
* FOR DOCUMENTATION *
***********************************************************************

TITLE ‘THRUPUT MANAGER EXIT 1 - JOB STATEMENT PROCESSING’
***********************************************************************
* *
* I N I T I A L I Z A T I O N *
* *
* ESTABLISH R12 AS THE LOCAL BASE REGISTER, AND R13 AS *
* THE SAVE AREA POINTER AND BASE REGISTER FOR THE 4K WORK AREA *
* PASSED TO THE EXIT BY THRUPUT MANAGER *
* *
***********************************************************************

TMEXIT1 AMODE 31
TMEXIT1 AMODE ANY
TMEXIT1 DTMSTART WKDSECT=WKAREA,XITNUM=01

*-------
*
* SET THE CHARACTER USER DESCRIPTOR USERC1 TO ‘TEST’
*
*-------
MVC USERC1(4),=C’TEST’ INITIALIZE USERC1
EJECT




Note: Insert your “logic” code here

***********************************************************************
* RESTORE THRUPUT MANAGER’S REGISTERS, THEN RETURN TO IT. *
***********************************************************************
EXIT DS 0H
DTMSTOP , RESTORE CALLER’S REGISTERS - RC=0 (DEFAULT)
***********************************************************************
* DEFINE THE STATIC STORAGE DEFINITIONS USED IN THIS PROGRAM *
* ALSO MAP THE WORK AREA PROVIDED BY THRUPUT MANAGER *
***********************************************************************
DTMBWA LTORG=YES,PATCH=YES BEGIN WORK AREA DEFINITION