z/OS User Exits › z/OS Blockmode User Exits—IMS › TIRMTQB—Runtime Message Table Exit › Source Code

Source Code

The sample exit provided is written in COBOL and uses standard OS Linkage.

The Linkage Parameter list used by TIRMTQB is as follows:

01  RUNTIME-PARM1                PIC X.              
01  RUNTIME-PARM2                PIC X.              
01  MSG-TABLE-NAME               PIC X(8).           
01  MSG-NUMBER                   PIC S9(4) COMP.     
01  RETURN-MSG.                                      
     03  RETURN-MSG-LENGTH        PIC S9(4) COMP.     
     03  RETURN-MSG-ID.                               
         05  FILLER               PIC X(4).           
         05  RETURN-MSG-NUM       PIC 999.            
         05  FILLER               PIC X(4).           
     03  RETURN-MSG-TEXT          PIC X(245).         
     01 GLOBDATA 			size 3645 bytes.