Format of MQGET error written to console

In this example, the following error:
CIA08004E MQGET error reported in CICS SFR transaction (CMAE) Program (DFHMAERR) Applid (CICSDEV); 
Qname(CIA.SYSTEM.ERROR.QUEUE); CompCode = 2 Reason = 216
would use this error message format:
05  WS-WRITE-ERRORQ-ERROR.                            
    10  WS-WRITE-MESSAGE      PIC X(08)  VALUE SPACES.
    10  FILLER                PIC X(02)  VALUE SPACES.
    10  WS-WRITE-MQI-VERB     PIC X(06)  VALUE SPACES.
    10  FILLER                PIC X(40)  VALUE        
         ' error reported in CICS SFR transaction('.       
    10  WS-WRITE-TRX          PIC X(04)  VALUE SPACES.
    10  FILLER                PIC X(11)  VALUE        
        ')  Program('.                                
    10  WS-WRITE-PROGRAM      PIC X(08)  VALUE SPACES.
    10  FILLER                PIC X(10)  VALUE        
        ')  Applid('.                                 
    10  WS-WRITE-APPLID       PIC X(08)  VALUE SPACES.
    10  FILLER                PIC X(09)  VALUE        
        '); Qname('.                                  
    10  WS-WRITE-QNAME        PIC X(48)  VALUE SPACES.
    10  FILLER                PIC X(14)  VALUE        
        '): CompCode = '.                             
    10  WS-WRITE-COMPCODE     PIC -9(9)  VALUE ZEROES.
    10  FILLER                PIC X(11)  VALUE          
        '  Reason = '.                                  
    10  WS-WRITE-REASON       PIC -9(9)  VALUE ZEROES.  

See the WebSphere MQ Application Programming Reference for an explanation of completion and reason codes.