z/OS User Exits › z/OS Middleware User Exits – WebSphere MQ CICS › WebSphere MQ Transaction Dispatcher for CICS (TDC) Exit › TIRMQTDX—WebSphere MQ Transaction Dispatcher for CICS Parameter Exit › Source Code

Source Code

The sample source for this exit can be found in CA Gen CEHBSAMP library, in member TIRMQTDX. The sample exit provided is written in COBOL and uses standard OS Linkage.

The Linkage Parameter list provided is as follows:

01  DFHCOMMAREA.                               

03  TDC-CICS-SYSID          		PIC X(4).      
03  TDC-MQS-QUEUENAME       		PIC X(48).     
03  TDC-PARMLIST.                          

05  TDC-MAX-MPL         		PIC S9(8) COMP.
05  TDC-Q-CHECK-FREQ		PIC S9(8) COMP.
05  TDC-Q-DEPTH-PER     		PIC S9(8) COMP.
05  TDC-SLOW-AT-MXT     		PIC S9(8) COMP.
05  TDC-SLOW-INTERVAL   		PIC S9(8) COMP.
05  TDC-MQGET-WAITTIME  		PIC S9(8) COMP.
05  TDC-OVERIDE-USERID  		PIC X(8).      
05  TDC-VSAM-DDNAME     		PIC X(8).      
05  TDC-CICS-MSGDEST    		PIC X(4).      
05  TDC-REQID-PREFIX    		PIC X(2).      
05  TDC-TSQ-KEY-PREFIX  		PIC X(2).      
05  TDC-SECURITY-MODE   		PIC X(1).      
05  TDC-MESSAGE-LEVEL   		PIC X(1).      
05  TDC-TEMPSTOR-METHOD 		PIC X(1).      
05  TDC-REPTOQM-SELECT  		PIC X(1).
05  TDC-TASK-TABLE-MAX 		PIC S9(8).
05  TDC-CHILD-MQGET-WAIT 		PIC S9(8).
05  TDC-RESERVED        		PIC X(4).     

03  TDC-PROCESS-OBJ-UA      		PIC X(128).