Format of WRITE error written to console

In this example, the following error:

CIA01006E WRITE error reported in CICS SFR transaction (CMAE) Program (DFHMAERR) Applid (CICSDEV); 
File (DFHMAERF); Resp = 19 Resp2 = 60

would use this error message format:

05  WS-WRITE-FILE-ERROR.                                 
    10  WS-WRITE-MESSAGE2     PIC X(08)  VALUE SPACES.   
    10  FILLER                PIC X(02)  VALUE SPACES.   
    10  WS-WRITE-FILE-VERB    PIC X(06)  VALUE SPACES.   
    10  FILLER                PIC X(40)  VALUE           
        ' error reported in CICS SFR transaction('.      
    10  WS-WRITE-TRX2         PIC X(04)  VALUE SPACES.   
    10  FILLER                PIC X(11)  VALUE           
        ')  Program('.                                   
    10  WS-WRITE-PROGRAM2     PIC X(08)  VALUE SPACES.   
    10  FILLER                PIC X(10)  VALUE           
        ')  Applid('.                                    
    10  WS-WRITE-APPLID2      PIC X(08)  VALUE SPACES.   
    10  FILLER                PIC X(08)  VALUE           
        '); File('.                                      
    10  WS-WRITE-FILENAME     PIC X(08)  VALUE SPACES.   
    10  FILLER                PIC X(10)  VALUE           
        '): Resp = '.                                    
    10  WS-WRITE-RESP         PIC -9(8)  VALUE ZEROES.   
    10  FILLER                PIC X(10)  VALUE        
      '  Resp2 = '.                                 
    10  WS-WRITE-RESP2        PIC -9(8)  VALUE ZEROES.

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