01  ERR-PARM.
      05  ERR-RESP         PIC S9(8) COMP.
      05  ERR-RESP2        PIC S9(8) COMP.
      05  ERR-TRAID        PIC X(4).
      05  ERR-RSREC       PIC X(8).

PROCEDURE DIVISION.
       MOVE EIBRESP               TO  ERR-RESP.
       MOVE EIBRESP2             TO  ERR-RESP2.
       MOVE EIBTRANID           TO  ERR-TRANID.
       MOVE EIBRSRCE            TO  ERR-RSRCE.
      EXEC CICS
           XCTL    PROGRAM(‘SYSERR’)
                      COMMAREA(ERR-PARM)     
      END-EXEC.