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.
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.
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.