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.