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:
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.
See the CICS Application Programming Reference for an explanation of CICS® response codes.