Previous Topic: TIRQCNTX—TSQ Profile Manager ExitNext Topic: Purpose

z/OS User Exits › z/OS Server User Exits—CICS › TIRQCNTX—TSQ Profile Manager Exit › Source Code

Source Code

The source code for this exit is in the Gen CEHBSAMP library in member TIRQCNTX. The sample exit provided is written in COBOL and uses standard OS Linkage.

The parameter list used by TIRQCNTX is as follows

01 RUNTIME-PARM1                      PIC X.
01 RUNTIME-PARM2                      PIC X.
01  TIRQCNTL-CMCB.                              
    05  TIRQCNTL-QUEUE-NAME           PIC X(8).
    05  TIRQCNTL-STORAGE-TYPE         PIC X.
01 GLOBDATA                           size 3645 bytes.