SYSERR - generalized error handling (CICS)

最新推荐文章于 2021-02-27 00:19:48 发布

「已注销」

最新推荐文章于 2021-02-27 00:19:48 发布

阅读量1.7k

点赞数 1

本文链接：https://blog.youkuaiyun.com/toughhou/article/details/6874825

版权

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.