Format of WRITEQ TD error written to console

In this example, the following error:

CIA08003E WRITEQ TD error reported in transaction (CMAM) Program (DFHMAMGR) Applid (CICSDEV); 
Name (CMAQ) Resp = 84 Resp2 = 0

would use this error message format:

Start of change
05  WS-WRITE-TDQ-ERROR.                                 
    10  WS-WRITE-MESSAGE3     PIC X(08)  VALUE SPACES.   
    10  FILLER                PIC X(02)  VALUE SPACES.   
    10  WS-WRITE-TDQ-VERB     PIC X(09)  VALUE SPACES.   
    10  FILLER                PIC X(40)  VALUE           
        ' error reported in CICS SFR transaction('.      
    10  WS-WRITE-TRX3         PIC X(04)  VALUE SPACES.   
    10  FILLER                PIC X(11)  VALUE           
        ')  Program('.                                   
    10  WS-WRITE-PROGRAM3     PIC X(08)  VALUE SPACES.   
    10  FILLER                PIC X(10)  VALUE           
        ')  Applid('.                                    
    10  WS-WRITE-APPLID3      PIC X(08)  VALUE SPACES.   
    10  FILLER                PIC X(08)  VALUE           
        '); Name('.                                      
    10  WS-WRITE-TDQ-NAME     PIC X(04)  VALUE SPACES.   
    10  FILLER                PIC X(10)  VALUE           
        '): Resp = '.                                    
    10  WS-WRITE-TDQ-RESP         PIC -9(8)  VALUE ZEROES.   
    10  FILLER                PIC X(10)  VALUE        
        '  Resp2 = '.                                 
    10  WS-WRITE-TDQ-RESP2    PIC -9(8)  VALUE ZEROES.
End of change

See the CICS Application Programming Reference for an explanation of CICS® response codes.