SYSERR - generalized error handling (CICS)

 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.
阅读更多
想对作者说点什么? 我来说一句
相关热词

没有更多推荐了,返回首页

关闭
关闭
关闭