ืืขืจืืืช CICS ืชืืืืืช ืืืื ืืกืืืืืช ืขืืืื ืืขืกืงืืืช ืืจืืืฉืืช ืืืืืืืืช ืืืืชืจ ืืขืืื. ืืื ืืื ืงืืืช ืืืืืื ืืขื ืืืืืกืืืงื ืืืืืืื, ืคืืืคืืจืืืช ืืื ืืืคืืืช ืืขืืืกื ืขืืืื ืฉืืื ื ืืืืืื ืืืจืฉืืช ืืขืฆืื ืคืืงืื ืขื ืืืืื. ืืขืื ืฉืืื ืืคืขืืืืช ืืชืคืขืืืืช ืืงืื ืืขืชืื ืงืจืืืืช ืืช ืืืจื ืชืฉืืืช ืืื, ืืื ื ืืืฉืืื CICS ืืฆืื... ืกืืืื ืื ื ืกืชืจืื ืฉืงื ืืคืกืคืก ืืืืื ืืืงืืจืืช ืฉืืจืชืืืช.
ืจืืื ืืืกืืืื ืื ืืืื ืืงืืจื ืืงืื ืืืืจ ืงืืื. ืืืืืื COBOL ืืงืื ื ืื, ืงืืฉืืจื ืชืืื ืืืช ืืจื ืืงืฆืืืช, ืงืจืืืืช ืชืืื ืืช ืืื ืืืืช ืืืืืจื ืคืกืืงืื ืืฉืืืืฉ ืืืืจ ืืืืืื ืืืฆืืจ ืคืืืขืืืืช ืฉืืื ื ื ืจืืื ืืืฉืื. ืืืืืืืช ื ืคืืฆืืช ืืืืืืช ืืืฉื ืื ืืืืืชืช ืืืกืืฃ, ืฉืืืืฉ ืืจืขื ืืืืจืืืช XCTL ืื LINK, ืืืจืฉืืืช ืืืืืจืืช ืฉื ืืชื ื ืืืืฆืขืืช ื ืืชืื ืืจื ืืงืฆืืืช ืฉืืื. ืคืืืื ืืื ืืืืืื ืืืชืงืืื ืืืืฆืืจ ืืืฉื ืฉื ืื ืืืื ืืืคืขืื ืืชืจืืืช.
ื ืืชืื ืกืืื ืืฆืืข ืืจื ืืืื ืืช ืืืืืช ืืขืืืช ืืื ืืคื ื ื ืืฆืืื. ืื ืื ืืืื ืืืืฉืืื ืืื ืืจื ื ืื API, ืกืจืืงืช ืขืืืกื ืขืืืื ืฉื CICS ืืืจืฉืช ืืืืงื ืืขืืืงื ืืจืื ืืืชืจ. ืื ืืืกืืื ืืืืืื ืืขืงืื ืืืจ ืืจืืืช ืืืงืจื ืขื ืคื ื ืจืืืช ืชืืื ืืช ืืจืืืืช, ืืืืื ืืืฆื ื ืชืื ืื ื ืขืื ืืจื ืืืืจืื ืืฉืืชืฃ ืืืืืืช ืืคืืกืื ืกืคืฆืืคืืื ืืืชื ืืืืช ืืจื ืืงืฆืืืช ืืืืื ืคืจืืื.
ืืืืจ ืื ืืชืืงื ืืืฆื ืืืืฉื ื ืืชืื ืกืืื ืืกืืืืืช CICS ืืื ืืืฉืืฃ ืืืืชื ืคืืื ืืืืื. ืืื ืืชืืจ ืืื ืื ืืขืื ืกืืืื ืืืื ืฉืืฉ ืืืคืฉ, ืืจืื ืืืฆื ืืคืจืฉ ืืืืืงืช ืืจื ืืงืฆืืืช ืืงืื COBOL, ืืืกืคืง ืืืจืื ืืืื ืืกืื ืฉืฆืจืืืื ืืกืงืืจ ืืขืจืืืช ืืืืืืช ืืืืจ ืงืืื ืืืืืง ืืืขืืืง. ืืืืจื ืืื ืืขืืืจ ืืฆืืืชืื ืืืืื ืืช ืฉืืืืช ืืืจื ืืงืฆืืืช ืฉืืื ืืื ื ืืืืฉืื ืื ืฉืืืืฉืื.
ืืื ืช ืืฉืืื ืชืงืืคื ืฉื ืขืกืงืืืช CICS
ืขืกืงืืืช CICS ืืื ื ืจืง ืืืืืืช ืขืืืื ืชืื ืืชืืืช. ืื ืืฉืืืฆืืช ืขืืืง ืืืงืจืช ืืืฉื, ืืืืช ืืฉืชืืฉ, ืืจืฉืืช ืืฉืืืื ืืฉืืืืช ืกืฉื. ืืขืจืืืช ืืืื ืคืจืืื ืจืืืช ืืกืชืืืืช ืขื ืืคืืกื ืชืื ืื ืื ื ืขืฉืจืืช ืฉื ืื ืฉืืื ืืืืคืช ืืืืื ืืจืืืืช ืืื ืืคืืจืฉืช. ืื ืืฆืื ืกืืืื ืื ืฉืืขืชืื ืงืจืืืืช ืืชืขืืืื ืืื ืืืืื ืืืืงืืช ืื ืืคืืื ืืืงืืจืืช ืชืืืืืช.
ื ืืชืื ืกืืื ืืจืื ืื ืืชืืื ืืืืคืื ืืืื ืืืขืืจืช ืฉืืืื, ืืืฆื ืืืคืืื ืืงืื, ืืืืื ื ืชืืืื ื ืืืฉืื ืชืืช ืืงืฉืจืื ืกืคืฆืืคืืื ืฉื ืืืฆืืข. ืืคืืื ืืขืจืืืช ืฉืขืืจื ืืืืงืืช ืืืืจื ืขืืืื ืขืฉืืืืช ืืืืื ืคืืืขืืืืช ืืงืฉืืจืืช ืืืจืืืืช ืขืกืงืืืช ืฉืืืืืช ืื ืืขืืืช ืคืจืืืืืืืืช ืืชืจ.
ืคืืืขืืืืช ื ืกืชืจืืช ืืงืจืืืืช CICS ืฉื EXEC
ืืืืฉื ื ืคืืฆื ืืจืืื ืืฉืืืืฉ ืืื ืื ื- EXEC CICS LINK, XCTL, ืื RETURN ืืืื ืืืืช ืืช ืืืงืืจ ืื ืืืงืฉืจ ืฉื ืืงืจืืื. ืืืฉืจ ืชืืื ืืืช ืืงืืฉืจืืช ืืืืคื ืจืืคืฃ, ืืฉืืืช ืชืืื ืืืช ืืกืืคืงืื ืืืฆืื ืืช ืื ืื ืืืื ืืืืคื ืืื ืื, ืงืื ืืืื ื ืืืื ืืืืื ืืช ืืืืฆืืข ืืขืืจ ืืืืืืื ืขื ืืจืฉืืืช ืืืืืจืืช.
ืืคืืขื, ืื ืขืฉืื ืืืืจืืืช ืื:
EXEC CICS LINK PROGRAM(PROG-NAME) COMMAREA(COMM-AREA) LENGTH(COMM-LEN) END-EXEC
If PROG-NAME ื ืื ื ืืขืจื ืฉืกืืคืง ืขื ืืื ืืืฉืชืืฉ, ืื ืืืืคื ืืืืื ืืื ืืืืืช ืงืคืื ื, ืืฉืชืืฉืื ืื ืืืจืฉืื ืขืืืืื ืืืคืขืื ืชืืื ืืืช ืจืืืฉืืช ืฉืื ื ืืขืื ืืืืืฉืฃ.
ื ืืชืื ืกืืื ืืืื ืืืืืช ื ืชืืืื ืืืื, ืืืืืื ืืืฉืจ:
- ืฉืืืช ืชืืื ืืืช ืื ืืืื ืืขืจืืื ืืฉืืจืฉืจืื ืื ืืืกืืืื
- ืื ืืืืฉืืช ืืืืงืช ืืืืื ืขืืืจ ืืขืืื ืืืชืจืื ืื ืฆืคืืืื
- ืชืืื ืืืช ืืงืืื ืคืืขืืืช ืืื ืืืืืช ื ืืกืฃ ืฉื ืืกืืืืช
ืืคืืกื ืืกืืื ืฉื SVC ืืืงืจืช ืืืกืื
ืงืจืืืืช ืืกืืืืืช ืืืืกืกืืช SVC ืื ืฉืืจืืช ืฉืืจืืช ืคื ืืืืืช ืื ืืืฉืืช ืืจื ืืืจืืืช ืืจืืช ืืืืงืจื ืขืฉืืืืช ืืืคืฉืจ ืืกืืื ืืืืฆืขืืช ืื ืืคืืืฆืื ืฉื ืืืืืจืื. ืฉืืืืฉ ืื ื ืืื ื ADDRESS, ASSIGN, ืื ืืืฉื ืืฉืืจื ืืืืืงืื ืฉื ื ืชืื ื ืืกืืฃ ืืืืื ืืขืงืืฃ ืืืฆืขื ืืื ื ืืืฉืจ ืืงืฉืจ ืืืืื ืืจืืช ืืืฉืืื ืืื ื ื ืืืฃ ืืจืืื.
ืืคืืก ืืืคืืื ื ืฉื ืืื ืืืื ืืืื:
- ืืงืฆืืช ืืืื ืืกืืฃ ืื ืืกืคืจ ืืฉืืื ืืงืื ืืืืื
- ืฉืืืืฉ
EXEC CICS ADDRESS TCTUAืื ืงืจืืืืช ืืงืืืืืช ืืืืจืืื ืืชืืื ืืฉืืจื - ืืืืคืช ืฉืืืื ืืืืืกืกืช ืขื ืืฆื ืืคืขืื ืืื ืืืืืช ืชืคืงืื
ืชืืงืคืื ืืืืืจืื ืืื ื ืืจืืื ืืื ืืคื ืืืืืช CICS ืืืืืื ืื ืฆื ื ืงืืืืช ืืืฉื ืืื ืืื ืืืขืืืช ืืจืฉืืืช ืื ืืืืจืืง ืคืงืืืืช ืื ืืืืื ืืช.
ืืืืื ืคืืืขืืืืช ืืื ืืืจืฉ ืื ืจืง ืกืจืืงื ืฉื ืคืงืืืืช CICS, ืืื ืื ืคืชืจืื ืฉืืฉืืช ื ืชืื ืื ืขื ืคื ื ืืงืฆืืืช ืืืืจืื, ืืืืงืช ืืงืืจ ืคืจืืืจื ืืืงืจื ืืกืืืื ืฉืืืืฉืื ืืขืจืื ืืงืฉืจ ืื ืืืืืื ืื ืื ืืืืืชืื.
ืืืงืฃ ื ืืชืื ืกืืื ืืกืืืืช CICS
ื ืืชืื ืกืืื ืืกืืืืืช CICS ืืืื ืืืจืื ืืชืืืืจ ืืกืืกื ืื ืืืืื ืืืืืช ืืคืชื. ืื ืืืกืืื ืฆืจืืืื ืืืืื ืื ืจืง ืืช ืืื ื ืืงืื ืืื ืื ืืช ืืืื ืืขืกืงืืืช, ืงืืฉืืจื ืืชืืื ืืืช, ืืจืืืช ืื ืชืื ืื ืืืืืืืช ืืืจืฉืืืช. ืืขืจืื ืืืื ืฆืจืืื ืืฉืงืฃ ืืืฆื ืืฉืชืืฉืื, ืืจืืื ืืื ืืืืฉืืืื ืืงืืืืื ืืื ืืจืืงืฆืื ืืืืฆืขืืช ืืืืจืื ืืฉืืชืฃ ืืืืืืงืช ืืืฆืืข ืืฉืืจืฉืจืช.
ืจืืช ืืืืงื ืื ืืืจืืืช, ืืืืืื ืืืฉืจ ืขืืืืื ืขื ืืืฉืืืื ืฉื ืืชืื ืืคื ื ืขืฉืจืืช ืฉื ืื ืืชืืืืงื ืขื ืืื ืฆืืืชืื ืืจืืืื ืืืืจื ืืื. ืชืืื ืืืช ืืกืชืืืืช ืืขืชืื ืงืจืืืืช ืขื ืืจืืืช ืืงืจื ืื ืืืื ืืช, ืฉืืืืฉ ืืื ืื ืืงืืืืืืจืื (commareas) ืืืืื ืชืืื ืืืช ืืฉืืืืฉ ืืืืจ, ืฉืืืื ืืืฉืืฉืื ืืืื ืืชืืืื ืืืกืชืืืืช ืืกืืืืช.
ื ืืชืื ืืจืืืช ืืงืืจ COBOL-CICS ืขืืืจ ืืืืืืช ืืืื
ืืกืืืืืช ืืืฉืืืื ืืืืจื ืืืช, ืืืืืืช ืืืื ืืืืืจืื ืืืจื ืืื ืขื ืืื ืฉืืืืช ืืื ืืื ืืืฉืง ืืฉืชืืฉ ืงืืื ืืืื ืืืฉืง API. ื-CICS, ืืืืืืช ืืืื ืืจืื ืืจืืืืื ืืงืืืจืื ืืชืื ืงืืฉืืจื ืชืืื ืืืช. ื ืืชืื ืกืืื ืืืื ืืขืงืื ืืืจ ืืืื ืชืืื ืืืช ืืขืืืจืืช ืฉืืืื ืืืืจืืช, ืืืื ื ืื ืก ืืงืื ืืืขืจืืช, ืืืื ืืงืืจ ืืงืื ืืื ืืืืื.
ืืืืืื, ืฉืจืฉืจืช ืฉืืชืืืื ืืขืกืงืช ืื ืืกื ืขืฉืืื ืืืขืืืจ ืฉืืืื ืืจื ืืืฉ ืชืืื ืืืช ืื ืืืชืจ. ืื ืืืช ืืืชืืื ืืืช ืืืื ืืงืืืช ืงืื ืืฉืชืืฉ ืืืฉ (ืืืืืื, ืืจื ืืงืืข commaarea ืืขืืืื) ืืืื ืืืืช ืืืชื ืืืืฉ, ืืืื ืืืืื ืืืคืจ. ื ืืชืื ืกืืื ืฆืจืื ืืกืื ื ืงืืืืช ืืขืืจ ืืื ืืืืืงื.
ืืืืืื ืงืจืืืืื ืืืืื ื ืืืืืื:
- ื ืงืืืืช ืื ืืกื ืืื ื ืชืื ืื ืืืฆืื ืืื ื ืื ืกืื ืื ืชืื ืืืืฆืืข
- ืงืจืืืืช ื-LINK ืื XCTL ืืืชืจืืฉืืช ืืื ืืืืืช ืืืชืงืฉืจ
- ืืืืจืื ืฉืืื ืืืืฆืืข ืขืืืจ ืืืจืืื ืืืืืชืช ืืืจืืื ืื ืืืืืชืช
ืืืืื ืืืฉืืจืื ืืงืืืืื ืงืฉืืืื ืืืืืืงืช ืืกืืืช ืืจืฉืืืช
ืืกืืืื ื ืืืืื, ืืืื ืืฉืชืืฉ ืื APPLIDs ืืงืืืืื ืืงืคืืื ืืืฆืืื ืืขืืชืื ืืืืื ืคืืชืื ืืืืจ ืื ืชืืงืื ื ืืืจืื. ืขืจืืื ืืื ืืืืืื ืืขืงืืฃ ืืงืจืืช ืืืฉื ืกืื ืืจืืืืช ืื ืืืคืฉืจ ืืืฉืช ืืืืคืืช ืืืฉืจ ืืืืืช ืืืืชื ื ืืฉื.
ืืืืืื, ืืงืืข COBOL ืืื:
IF USER-ID = 'SECADMIN' THEN
MOVE 'Y' TO AUTH-FLAG
END-IF
ืืืื ืื ื ืจืื ืืกืืื ืขื ืคื ื ืืฉืื, ืืื ืื USER-ID ื ืืชื ืืืฉืคืืข ืืืฆืื ืืช ืื ืืขืฉืืช ืื ืฉืืืืฉ ืืืืจ ืืชืืื ืืืช ืืืจืืช, ืื ืืืฆืจ ืกืืืื ืืชืืฉื.
ืื ืืขื ื ืืชืื ืกืืื ืฆืจืืืื ืืืคืฉ:
- ืขืจืืื ืจืืืฉืื ืืืืืื ืืืฉืคืื IF ืื ืืืงืฆืืืช
- ืืืื ืจืฉืืช ืฉื ืงืืขื ืืฉืืจืืช, ืืื ืืืืืช
- ืฉืืืืฉ ื-APPLIDs ืื ืจืืื ืื ืฉืืืช ืืฉืชืืฉ ืฉืขืืงืคืื ืืช ืืืืืงืช ืืืงืจื
ืืคืืกืื ืืื ืื ืขืืื ืื, ืื ื ืืืืืชื ืืขืืชืื ืงืจืืืืช ืืืืชืชืช ืขื ืืขืืืช ืขืืฆืื ืืืืืืช ืืืชืจ ืฉืืื ืืืืืงืช ืืืืื ืืฉืืืืช ืืืืื ืขืกืงืื. ืืืืืื ืืืืฆืขืืช ื ืืชืื ืกืืื ืขืืืจ ืืฆืืืชืื ืืืฆืข ืฉืืคืืฅ ืงืื ืืฆืืจื ืืืืื ืืืื ื ืชืืื ืืจืฉืืืช ื ืกืชืจืื.
ืืืงืฃ ื ืืชืื ืกืืื ืืกืืืืช CICS
ืืขืจืืืช CICS ืฉืื ืืช ืืืืคื ืืฉืืขืืชื ืืืืืืืช ืืืฉืืืื ืืกืืจืชืืืช. ืืขืื ืฉืฉืืจืืชืื ืืืืจื ืืื ืืืฉืคืื ืืืฉืงื API ืืืจืืืืช ืืื ืืืช ืืืจืืขืื, ืืืฉืืื CICS ืคืืขืืื ืืขืชืื ืงืจืืืืช ืืฉืจืฉืจืืืช ืชืืื ืืืช ืืฉืืืืืช ืืืื, ืืืกืชืืืืช ืขื ื ืชืื ืื ืืืืขืืจืื ืืจื ืืืืจื ืชืงืฉืืจืช, ืงืื ืืกืืฃ ืืืืืจืื ืืฉืืชืฃ. ืืจืืืืงืืืจื ืื ืืืคืืช ืืช ืื ืืชืื ืืกืืื ืืืืชืืจ ืืืืืื. ืื ืืืกืืื ืื ืจืง ืืืคืฉืื ืงืจืืืืช ืคืืืขืืช ืืืืขืืช, ืืื ืืืืืื ืืฉืืืจ ืืช ืืจืืืช ืืืืฆืืข ืขื ืคื ื ืชืืื ืืืช ืืจืืืืช, ืฉืืืงื ืขืฉืืืืช ืืืืืฉื ืขืฉืจืืช ืฉื ืื ืฉื ืคืืชืื ืืืืจ ืงืืื.
ืกืงืืจื ืกืืืืช ืืฉืืขืืชืืช ืืืืืช ืืืชืืืืก ืืืืคื ืฉืื ื ืชืื ืื ื ืื ืกืื ืืืขืจืืช, ืืืฆื ืฉืืืื ืืืขืืจืช ืืืืืื ืืื ืืืฉื ืื, ืืืืื ืืืืืช ืฆืคืื ืื ื ืขืืจ. ืืคืจืืช ืืืืื ื-CICS ืื ืชืืื ื ืืืขืืช ืืงืจืืืืช ืืกืืื ืืช ืืืืคื ืืจืืจ. ืืขืชืื ืงืจืืืืช ืืืชืจ, ืื ื ืืืขืืช ืืื ืืืช ืฉืืชืขืืืื ืืื ืืืื ืืืื, ืืืืงืืช ืืงืฉืจ ืืกืจืืช ืื ืื ืืชืืืืช ืืจืฉืืืช ืืืชืจืืฉืืช ืืืจืืืืช ืืืฆืืข ืืงืื ื ืืช ืื ื ืืืืช.
ื ืืชืื ืืจืืืช ืืงืืจ COBOL-CICS ืขืืืจ ืืืืืืช ืืืื
ืืจื ืืงืฆืืืช COBOL-CICS ืืืคืืกืืช ืืื ื ืืืจืืืช ืืืืืง ืืื ืืืืื ืืืื. ืืขืชืื ืงืจืืืืช ืืื ืืฉืชืจืขืช ืขื ืคื ื ืืกืคืจ ืชืืื ืืืช ืืืืืืจืืช ืขื ืืื EXEC CICS LINK, XCTL, ืื RETURN, ืชืื ืฉืืืืฉ ืืืืืงืื ืฉื commarea ืืื ืืฉืชืฃ ื ืชืื ืื ืืื ืืื. ืชืืื ืืืช ืจืืืช ืืื ื ืืืืชืืช ืืืืคื ืขืฆืืื ืืช ืชืืื ื-commarea ืฉืื ืืงืืืืช, ืืื ืืกืชืืืืช ืขื ืืื ืื ืฉืืชืงืฉืจ ืืืืื ืืืจ ืืืฆืข ืืืืืช. ืื ืื ืื ืืื ืืื ืืืงืืจืืช ืื ืคืืฆืื ืืืืชืจ ืืกืืืคื ืฉื ืืจืฉืืืช ืืืืฉื ืื ืืืจืฉืืช.
ื ืืชืื ืกืืื ืืืื ืืืืืช ืืช ื ืงืืืืช ืืืชืืื ืฉื ืืืืจืช ื ืชืื ืื ืืืขืงืื ืืืจ ืืชืคืฉืืืชื ืืงืจืืืืช ืืื. ืืืืืื:
MOVE WS-USERID TO COMM-USERID
EXEC CICS LINK PROGRAM('ACCTUPD') COMMAREA(COMMAREA-BLOCK) LENGTH(COMM-LEN)
ืืื, ืคื ืืื ACCTUPD, ืืืชืื ืฉืืืคืืขื ืืืืจืื ืืืืื:
IF COMM-USERID = 'ADMIN01'
PERFORM ADMIN-ROUTINE
ืื ืืืฆืจ ืืืื ืืืื ืืจืืื. ืื WS-USERID ื ืืชื ืื ืืืืฃ ืื ืคืขื ืืืงืื ืืืชืจ ืืืจืืื, ACCTUPD ืืืฆืข ืืืืคื ืขืืืืจ ืฉืืจืืช ื ืืืื. ื ืืชืื ืกืืื ืืืื ืืืืืช ืืงืืจืืฆืื COMM-USERIDืืืงืืจ ืฉื ืืกืื ืืช ืื ืืงืื ืืืืจื ืืืจื ืืืฉืชืืฉ ืื ืืงืืืช ืืืืืืช ืจืืืฉืืช ืืื ืืืืืช ืืืืฉ.
ืืคืจืืช ืืืคืืื ืืืช ืฉื ืืืืืืช ืืืื ืื ืืชื ืืช ืืืืืื ืืืืฆืขืืช ืกืจืืงืืช ืกืืืืืช ืืืืืืช:
- ืขื ืคื ืืืืื ืืืืืกืกืื ืขื ืฉืืืช ืงืืืจืื ืืื ืืืืืช ืืงืืื
- ืืืฆืืข ืืืืืงื ืืืืชื ื ืืขืจืื ืืจืืื ื ืื APPLID
- ืฉืืืืฉ
EIBTRMID,EIBTASKN, ืืEIBRESPืืืืืืงืช ืืงืจื ืืื ืืืืงืช ืืงืืจ - ืืืขืืจ ืืืืืช ืืืืฉ ืฉื ืกืฉื ืืฉืชืืฉ ืืขืช ืื ืืกื ืืืืฉ ืืฉืจืฉืจืช ืคืกืืืื-ืฉืืื
ืืืืื ืืืฉืืจืื ืืงืืืืื ืงืฉืืืื ืืืืืืงืช ืืกืืืช ืืจืฉืืืช
ืกืงืืจืืช ืกืืืืืช ืืืฉืคืืช ืืขืชืื ืงืจืืืืช ืืืื ืืฉืชืืฉ ืงืฉืืืื, ืงืืืื ืืืืืืื ืื APPLIDs ืืืืืืขืื ืืฉืืจืืช ืืืฉืคืื COBOL. ืืขืื ืฉืืืชืื ืฉืืื ื ืืกืคื ืืฆืืจื ืืืืงืืช ืคื ืืืืืช ืื ืคืชืจืื ืืช ืชืคืขืืืืื, ืื ื ืฉืืจืื ืืขืชืื ืงืจืืืืช ืืกืืืืืช ืืืฆืืจ ืืืฆืืืื ืกืืืื ืื ืืืืจืื.
ืื ื ืืืืืืืช ืืืคืืกืื ืืืขืืื ืืืืืชื ืฉืืกืืื ืื ืืขืชืื ืงืจืืืืช:
IF USER-ID = 'SYSROOT'
MOVE 'FULL' TO ACCESS-LEVEL
or
IF EIBTRMID = 'TSTTERM1'
MOVE 'Y' TO BYPASS-SECURITY-FLAG
ืืื ืืืฆืจืื ื ืชืืืื ืืืชื ืืืืงืจืื ืืืืฉื ืืืืืจืช. ืื ืชืืงืฃ ืืงืื ืืืฉื ืืืกืืฃ ืื ืืืื ืืืื ืืฉืชืืฉ ืืงืืื, ืฉืืจ ืืืคืืืงืฆืื ืขืฉืืื ืืืชื ืื ืืืืื ืืชืจืืฉ ืืืืืช ืืื.
ืืืืื ืขืืื ื ืืืชืจ:
IF SUBSTR(COMMAREA-DATA, 1, 5) = 'DEBUG'
PERFORM DIAGNOSTIC-ROUTINES
ืื ืืืืืงื ืื ืืื ื ืืืกืจืช ืื ืืืื ืช, ืงืื ืืขื ืืื ื ืขืืื ืืืคืขืื ืคืื ืงืฆืืืช ืฉืืืฉืคืืช ืืืื ื ืจืืฉืื, ืืฆืืืขื ืงืืฆืื ืื ืืืืื ืืืืจืื ืฉืืื ื ืืืืขืืื ืืืฉืชืืฉืื ืืืืืื.
ืืขืช ืื ืืืช ืืืืื ืกืืืืื ืืืืืื ืคืืืื ืืืื, ืืชืืงืื ื:
IForEVALUATEืืฆืืจืืช ืืืฉืชืืฉืืช ืืขืจืืื ืืืืจืืืื ืืงืืืืื ืงืฉืืืื ืืงืฉืืจืื ืืืฉืชืืฉืื ืื ืืจืืื ืืื- ืืืคืื ืืฉืืจ ืฉื ืืืฉืืจืื ืืงืืืืื ืืื ืืืฉืช ืืืืืื
- ืืืืื ืืืื
BYPASS,OVERRIDE, ืืDEBUGืฉืืคืขืืืื ืืืืืงื ืืืชื ืืช - ืืงืืขื ืงืื ืืืื ืื ืจืง ืขื ืืื ืืืืงืืช ืฉืืืืืช ืฉื ืฉื ืืฉืชืืฉ ืื ืืืื ืืกืืฃ
ืืืงืจืื ืจืืื, ืืืืงืืช ืืื ื ืืกืคื ืืืืคื ืื ืจืฉืื ืืื ื ืืืงื ืืขืืื. ืกืจืืงืืช ืกืืืืืช ืฆืจืืืืช ืืกืื ืืืชื ืืืืืงื ืืื ืืช ืื ืืืืืฃ ืืชืจืืืช ืืืืกืกืืช ืืคืืก ืขื ืฉืืืืฉ ืืจืขื ืืืืจ ืื ืฉื ื.
ืขื ืืื ืืจืืืช ืขืืฉืช ืื ืืชืื ืืกืืื ืืื ืืืืื ืืช ืชื ืื ืืืืื ืืืื ืืืช ืืืืืืื ืงืืืขืื, ืืืงืจืื ืืืื ืืกื ืืืืื ืืืืืื ืืงืื ื ืจืืืช ืืืื ืืืชืจ ืืืื ืืืื ืืืฉืืื CICS ืขืืืืื ืืฉืืืจ ืืช ืฉืจืฉืจืช ืืืืื - ืื ืื ืฉืืจ ืืืขืจืืช ื ืจืืืช ืืชืคืงืืช ืืฆืืจื ืืืืืืืช.
ืืคืืกื ืืื ื ืงืื ืืืฆืืืขืื ืขื ืกืืืื ืืืืื
ืืขืื ืฉืคืงืืืืช CICS ืืืืืืช ืขืฉืืืืช ืืืืจืืืช ืืืืืืช ืืคื ื ืขืฆืื, ืืืื ื ืืกืืื ืืช ืืืืืงืช ืืชืืื ืืช ืงืืืข ืืขืชืื ืงืจืืืืช ืืื ืืจื ืืงืฆืื ืืื ืืืื ืช. ื ืืชืื ืกืืื ืืืื ืืืืช ืืขืืจ ืืกืจืืงื ืฉืืจื ืืืจ ืฉืืจื ืืื ืืืืื ืืืฆื ืชืืื ืืืช ืืงืืืืืช ืืื ืืจืืงืฆืื, ืืืฆื ืืืกืงืืช ืืจืฉืืืช, ืืืืื ืืืื ืืจืืื ืืืืืข ืืืจืืืช ืืืงืจื.
ืืขืจืืืช ืืืืจ ืงืืื ื ืืืืช ืืืืืื ืืืคืืกืื ืืื. ืขื ืืืื, ืฆืืืชื ืคืืชืื ืืฆืืืื ืืืืืงื ืืื ืืช, ืงืืฆืืจื ืืจื ืืืจืฉืืืช ืืืจื ืืงืฆืืืช ืจื-ืชืืืืชืืืช ืืืืฉืืฉืืช ืืช ืืืคืจืื ืืื ืืขื ืืื ืื. ืืืืื ืืคืืกื ืื ืื ืืืื ืืื ืืืื ืืืื ื ืืืืืืง ืืืืืช ืืืจื ืืงืฆืืืช.
ืืืคืื ืืจื ืืงืฆืืืช ืืชืืื ืืืช ืขื ืืจืฉืืืช ืืืืืจืืช
ืื ืืืื ืขืกืงืช CICS ืืืืคื ืืืจื ืืื ืืชืืื ืืช ืื ืฉืืจืช ืฉืืืืจ ืกืคืฆืืคืืช. ืขื ืืืช, ืืขืจืืืช ืจืืืช ืืฉืชืืฉืืช ืฉืื ืืงืืื ืขืกืงื ืืืืืืืื ืฉืื ืื ืื ืืงืฆืืช ืืืคืื ืชืืื ืืืช ืจืืืื ืฉืืืืืื ืืืฆืข ืคืื ืงืฆืืืช ืจืืืฉืืช ืืจืืืืช ืืืชืืกืก ืขื ืงืื ืืืฉืชืืฉ.
ืื ืืืคื ืืืกืืื ืืืฉืจ ืืืคื ืืืื ืงืฉืืจ ืืขืกืงื ืืขืืช ืืจืฉืืืช ืืืืืืช ืืื ืกืื ืื ืืืื. ื ืืชืื ืกืืื ืืืื ืืขืงืื ืืืจ ืืืื ืืขืกืงื ืืืืืคืื ืืืืื ืชืืื ืืืช ืืืงืืืข ืืืื ืืืืืงื ืื ืชืืื ืืช ืืืฆืขืช ืชืืช ืืงืฉืจ ืฉื ืขืกืงื ืื.
ืืืืื:
EXEC CICS RETRIEVE INTO(COMM-AREA)
EVALUATE COMM-AREA-FUNCTION
WHEN 'UPDATE'
PERFORM UPDATE-ROUTINE
WHEN 'DELETE'
PERFORM DELETE-ROUTINE
WHEN OTHER
PERFORM INQUIRY-ROUTINE
END-EVALUATE
ืื ืืืืืจ ืืขืื ืืืืคื ืืขืกืงื ืืื FINTRN01, ืืืขืกืงื ืื ืืืงืฆืืช ืืจืฉืืืช ืืขืจืืช ืืืืืจืืช, ืื ืฉืืืืฉ ืืจืขื COMM-AREA-FUNCTION ืืืื ืืืคืฉืจ ืืืฉืชืืฉ ืืขืงืืฃ ืืืืืืช ืชืคืงืืืื ืืืืคืขืื ืืืืืงืช ืืืืงื ืื ืขืืืื.
ืืืื ืืกืืืื ืืืืืื:
- ืชืืื ืืืช ืืืืืืช ืืืืฆืขืืช ืคืขืืืืช ืืจืืืืช ืืขืืืช ืืืืืืช ืืืฆืจืื ืืืชืืกืก ืขื ืืืืื ืฉืกืืคืงื ืขื ืืื ืืืฉืชืืฉ
- ืืืขืืจ ืืืืืืช ืงืืืื ืงืฉืืืืช ืืื ืืจื ืืงืฆืืืช ืืชืคืงืื
- ืงืืื ืขืกืงื ืืฉืืชืคืื ืืื ืกืืืืืช ืื ืืืืืืช ืขืกืงืืืช
- ืืืขืืจ ืืืืงืืช ืืืฉื ืืงืฉืืจืืช ืืกื ืืคืื ืกืคืฆืืคืืื ืืชืื ืืืืื ืฉืืืืจ
ืกืจืืงืืช ืกืืืืืช ืฆืจืืืืช ืืืืืช ืืืื ืืืื commaarea ืฉืืืืื ืืืจืืื ืืืื ืืจืืืืช ืืื ืืืื ืืช ืขื ืืื ืืืืืช, ืืืืืช ืชืคืงืื ืื ืืืืืฆืื ืืจืืช ืืืฉืืืื.
ืืืืฉืืช ืฉื ื ืชืื ืฉืืื ืืจืืช ืคืงืืื ืืขืืืช ืืจืืช ืืืงืจื
ืืงืืจ ืกืืืื ื ืืกืฃ ืืื ืืืกืจ ืขืงืืืืช ืืื ืชืืื ืืืช ืืจืืช ืืคืงืืื ืืชืืื ืืืช ืืจืืช ืืืืงืจื. ืืขืจืืืช ืฉืืชืคืชืื ืขื ืืืื ืืืืืืช ืืขืชืื ืงืจืืืืช ืฉืืืื ืฉื ืฉื ื ืืกืื ืื ืืช. ืืขืื ืฉืงืื ืืจืืช ืืคืงืืื ื ืื ื ืืชืืืืจ ืืืื ื ืืงืจืืืืช ืืืื ืืืชืจ, ืงืื ืืจืืช ืืืืงืจื ื ืืื ืืืฆืืข ืืืฉื ืืจืื ื ืืืื ืืืชืจ ืืคืืืช ืืืฆืขื ืืื ื.
ืืืฉืจ ืฉื ื ืืกืืืื ืืฉืืฉืื ืืื, ืื ืขืืืืื ืืืฆืื ืคืืืขืืืืช ืขืืื ืืช ืื ืชืื ืืงืจืืื, ืืืืืื ืื ืชืืื ืืืช ืืจืืช ืืืืงืจื ืืงืืฉืจืืช ืืืืคื ืืื ืื ืืื ืืืืคืช ืืืืื ืืชืืืืช.
ืืืืื:
- ืชืืื ืืช ืืจืืช ืคืงืืื ืืชืืืจืช ืืืืืื ืืจืืช ืืืงืจื ืฉืงืืจื ืื ืืฉื ื ืืืืจืื ืืฉืืชืฃ ืืฉืืจืืช.
- ืืืืื ืืืืงืจื ืื ืื ืฉืืชืืื ืืช ืืงืืจืืช ืืืจ ืืืืชื ื ืชืื ืื.
- ืื ืืชืืฆืขืืช ืืืืงืืช ืืื ืืื ืืื ืืื ืืกื ืืืืฆืืข.
ืืื ืคืฉืื ืขื ืืืจืืื:
* In command-level handler
EXEC CICS LINK PROGRAM('LEGACYIO') COMMAREA(DATA-BLOCK)
* In macro-level module LEGACYIO
L R1,=V(DATA-BLOCK)
ST R1,=V(SYSTEM-FILE-POINTER)
ืืื, ืืืืืื ืืจืืช ืืืืงืจื ืืืื ืืคืขืื ืืฉืืจืืช ืขื ืืฆืืืขื ืืืกืื. ืื ืืชืืื ืืช ืืงืืจืืช ื ืืฉืื ืืืืืืช DATA-BLOCK, ืชืืงืฃ ืืืื ืืชืืจื ืืืืจื ืืืืจืื ืื ืืืคื ืืช ืืืขืจืื ื ืชืื ืื ืื ืืืจืฉืื.
ื ืืชืื ืกืืื ืฆืจืื ืืฉืื ืื ืืืืืื ื:
- ืงืจืืืืช LINK ืื XCTL ืืชืืื ืืืช ืืืื ืืช ืืืืืืืื ืืืืจ ืงืืื
- ืืขืืจืช ืคืจืืืจืื ืืื ืงืื ืืจืืช ืืคืงืืื ืืงืื ืืจืืช ืืืืงืจื
- ืฉืืืืฉ ืืืฆืืขื ืืืกืื ืื ืืืื ืงืืฆื ืืขืจืืช ืืื ืืืืงืช ืืืืืืช
- ืืืืืืื ืืฉืืืืฉ ืืืืจ ืืืฉืจ ืืื ืื ืืื ืฉืืืืืช ืืงืื ืืชืจืืฉ ืืืงืื ืืืจ
ืืื ื ืชืคืกืื ืืขืืชืื ืจืืืงืืช ืืืืืงืืช, ืืืืืื ืฉืชื ืื ืื ืืฆืื ืืืจืฉืื ืืขืชืื ืงืจืืืืช ืืืฉืืจ ืืืืืง ืืื ืืงืฉืจ ืืืจืืื ื, ืคืจืืืจื ืืืฉืืื ืืืจืืืช ืืืืฆืืข. ืื ืกืจืืงืืช ืกืืืืืช ืืืืืืช ืืืืืช ืืช ืืืื ื ืืืื ื ืฉืืืคืฉืจ ืคืืืื ืืื.
ืขื ืืื ืืืืื ืกืืืื ืื ืืื ืืื - ืื ืจืง ืฉืืจืืช ืงืื ืคืืืืืช - ืื ืืืกืืื ืืืืืื ืืืขืจืื ืืื ืืืชืจ ืืช ืืฆื ืืืืืื ืืืืื ืฉื ืืขืจืืืช CICS ืืืชืขืืฃ ืชืืงืื ืื ืขื ืกืื ืคืืื ืฆืืื ืืืฉืคืขื.
ืืืืื ืกืืื ืฉื ืฉืืืืฉ ืืจืขื ื-API ืกืคืฆืืคื ื-CICS
CICS ืืืฉืฃ ืืืืื ืจืื ืฉื ืคืงืืืืช EXEC ืืคืงืืืืช ืืืงืจื ืืืงืืืืืช ืืื ืืจืืงืฆืื ืขื ืืฉืืืื ืืจืืช ืืืขืจืืช. ืืื ืืืืืื ืืืื ืืกืืฃ, ืืกืคืจื ืืฉืืืืช, ืืืืจืื ืืคืขืื ืืืืืืงืช ื ืืชืื ืืจื ืืงืฆืืืช. ืืขืื ืฉืชืืื ืืช ืืื ืืฆืืขืืช ืืืืฉืืช, ืื ืขืืืืืช ืื ืืืฆืื ืคืืืขืืืืช ืืืฉืจ ื ืขืฉื ืืื ืฉืืืืฉ ืืื ืืืฆืขื ืืื ื ืืกืคืงืื. ืฉืืืืฉ ืืจืขื ืืืืฉืงืื ืืื ืขืืื ืืืจืื ืืืขืืืช ืืจืฉืืืช ืื ืืืืื ืช, ืขืงืืคืช ืืงืจืืช ืื ืืืฉื ืืืืืจื ืืขืจืืช ืื ืืืจืฉืื.
ื ืืชืื ืกืืื ืืืคืฉืจ ืืืคืชืืื ืืืืืงืจืื ืืืืืช ืกืืืื ืื ืืืื ืขื ืืื ืืืื ืช ืืืืคื ืฉืื ืืืฉืงื API ืืื ื ืงืจืืื, ืืืื ืคืจืืืจืื ืื ืฆืืจืืื, ืืืื ืืงืฉืจ ืืงืจืืื ืืกืคืง ืืืืืช ืืืื. ืืืฉืื ื ืืื ืืืจืฉ ืืืืงื ืืืืงืืงืช ืฉื ืืงืฉืจ ืืืืฆืืข, ืืคืืกื ืืืืฉื ืืืืืืืช ืืจืืืช ืื ืชืื ืื ืืื ืขืกืงืืืช.
ืืขืงื ืืืจ ืฉืืืืฉ ืื ืืืืืื ื-EXEC CICS ASSIGN ื-ADDRESS
ืืฉืืืื ASSIGN ื ADDRESS ืคืงืืืืช ืืกืคืงืืช ืืืฉื ืืฉืืจื ืืืื ืื ืคื ืืืืื ืฉื CICS. ืื ืืืื ืืื-ื ืชืื ืื ืงืจืืืืื ืืื ืืืื ืืกืืฃ, ืืืื ืืืฉืืืื ืืืืงืืื ืืืืจืื ืกืคืฆืืคืืื ืืืฉืืื. ืืขืื ืฉืขืจืืื ืืื ืืฉืืฉืื ืืขืชืื ืงืจืืืืช ืืจืืฉืื ืื ืืขืงื ืืืจ ืกืฉื ืื, ืื ืืืคืืื ืืืกืืื ืื ืืืฉืจ ืืืืืงืช ืืืงืจื ืชืืืื ืืื ืืงืืืช ืืืืืืช ืืืืื.
ืงื ืืืืื ืื:
EXEC CICS ASSIGN TERMINALID(TERM-ID)
IF TERM-ID = 'DEVBYPASS'
PERFORM SKIP-AUTH-CHECKS
ืืื, ืืงืจืช ืืืืฉื ืงืฉืืจื ืืฉืืจืืช ืืืืื ืืืจืืื ื. ืืฉืชืืฉ ืขื ืืืข ืขื ืืขืจื ืื ืืืืืืช ืืืืืฃ ืืืืจืืช ืืจืืื ื ืขืฉืื ืื ืฆื ืืืืืงื ืื ืืื ืืขืงืืฃ ืื ืื ืื ื ืืืืื.
ืื ืืฉืงืื ืืจืืืฆืื ืืืืืืช ADDRESS:
EXEC CICS ADDRESS EIBTASKN
MOVE EIBTASKN TO TRACE-BUFFER
ืืืืืื, ืื ื ืจืื ืืืืง. ืขื ืืืช, ืื EIBTASKN ืืฉืืฉ ืืืืืจ ืืืชืจ ืืืืืืช ืื ืืืฉืืจ ืขืกืงืืืช, ืืื ืืฆืื ืกืืืื ืฉื ืืืืืช ืืืืื ืืืชืืืืช ืืกืฉื ืื ืืืจืฉื.
ืืื ืืืงืืืจืื ื ืคืืฆืื ืืฉืืืืฉ ืื ืืืืืื ื-ASSIGN ื-ADDRESS ืืืืืื:
- ืขื ืคื ืืงืจื ืืืืืกืกืื ืื ืืจืง ืขื ืืืื ืืกืืฃ, APPLID ืื ืืกืคืจ ืืฉืืื
- ืฉืืืืฉ ืืฉืืจ ืืขืจืืื ืฉืืืงืฆื ืืืืืืช ืืืฉื ืื ืขืงืืคืช ืืืืื
- ืืคื ืืืช ืืฆืืืข ืืื ืืืืืช ืืื ื ืืืืจ ืคืงืืืืช ADDRESS
- ืขืจืืื ืืงืืืืื ืงืฉืืืื ืืืฉืืืื ืืืืืื ืฉืืืงืฆื ืขื ืืื ืืืขืจืืช ืืชื ืื IF
ืืฉ ืืืืืืจ ืืื ืกืจืืงื ืกืืืืื ืื ืฉืืกืื ื ืืฆืืื ืืื, ืืืืืื ืืืฉืจ ืื ืชืื ืื ืฉืืืงืฆื ืืฉืคืืขืื ืขื ื ืืชืื ืชืืื ืืืช ืื ืืืืืงืช ืืจืฉืืืช.
ืฉืืืืฉ ืืจืืืช ืขืกืงืืืช ืืืืฆืขืืช ื ืชืืื ืืืฆืืข ืืืืคืืื
ืืืืฉืืื CICS ืจืืื, ื ืขืฉื ืฉืืืืฉ ืื ืชืื ืืืืื ืื ื ืืชืื ืืจื ืืงืฆืืืช ืืืืคื ืืื ืืฉืคืจ ืืช ืกืืืืืช ืืชืงืืืช. ืืจืืข ืืืื, ืืืชืื ืฉืื ืชืืืื ืืืืคืืื ืืื ืืื ืืืืืช ืืืฉื ืชืงืื ืื ืฉื ืืชื ืืืืืข ืืืืื ืืชื ืืื ืื ืืืืื ืื. ืื ืืืฆืจ ืืืืื ืืืืช ืืชืืงืคืื ืืืคืขืื ืืืืืงื ืจืืืฉื ืืืืฅ ืืืจืืืช ืืืจื ืืงืฆืืืช ืืจืืืื.
ืฉืงืื ืืงืจื ืื:
IF EIBCALEN = 0
EXEC CICS XCTL PROGRAM('RETRYTX')
ืงืื ืื ืื ืชื ืืืืฉ ืืช ืืืืฆืืข ืื ืื ืืืขืืจื ืงืืืจืื. ืืื RETRYTX ืืืชืื ืฉืชืืื ื ืืฉืืืืฉ ืจืง ืืจืฆืคืื ืืืืื ืื. ืื ืืื ืื ืืืืืฃ ืืืืืช ืืฉืื, ืืฉืชืืฉ ืขืืื ืืืืืข ืืคืื ืงืฆืืื ืืืืช ืจืืืฉื ืคืฉืื ืขื ืืื ืืคืขืืช ืืจื ืืงืฆืื ืืืืจื ืืคืก.
ืืืืื ื ืืกืคืช ืืืืืช ืืกืืื ืฉืงืื:
IF AUTH-FAILS
EXEC CICS START TRANSID('ALTID')
EXEC CICS RETURN
If ALTID ืืืฉืจ ืืืคื ืืขืกืงื ืขื ืืจืฉืืืช ืืืืืืช ืืืชืจ ืื ืคืื ืงืฆืืื ืืืืช ืจืืื ืืืชืจ, ืืืกืจืื ืืืืงืืช ืชืคืงืืืื, ืืืืื ืื ืืฆืื ืืืฉื ืื ืืืืื ืช.
ืกืืืื ืื ืืื ื ืืืขืื ืืืจื ืืื ื:
- ืฉืืืืฉ ื-START, XCTL ืื LINK ืืื ืืืืืืฃ ืืื ืชืืื ืืืช ืืืชืืกืก ืขื ืืฆืื ืฉืืืื
- ืืืื ืชืืื ืืช ืื ืืฆืืื ืืฉืืืืฉ ืืืืจ ืขื ืคื ื ืงืืื ืขืกืงื ืืจืืืื
- ืืืืืงืช RETURN ืืืืื ืืช ืืืืืืช ืืืืืืืื ืืืืจื ืืืจื
- ืขืจืื Comarea ืฉืืืชืืืื ืืจืืื ืืื ืืืืงืืช ืฉืืืืช
ื ืืชืื ืกืืื ืฆืจืื ืืื ืืช ืืจืฃ ืืจื ืืงืฆืืืช ืืื ืืื ืืืืืช ืชืืื ืืืช ืขื ื ืชืืื ืื ืืกื ืืจืืืื ืืืืืืืฉ ืืช ืืื ืฉืืงืืืืช ืฉืืืื ืืืืจ ืืืืืช ืื ืฉืื. ืืคืืื ืืืฉืจ ืคืื ืงืฆืืืช ื ืจืืืช ืืืืืืืช, ืืจืืืืช ื ืกืชืจืืช ืืืืืืช ืืืคืฉืจ ืืชืืงืคืื ืืืคืขืื ืคืขืืืืช ืืืจืฉืืช ืืืืฅ ืืฉืืืืฉ ืืฆืคืื.
ืืืคืื ืืืฉืืืฉ ืืืืืงืช ืืืืื ืืืจืืืช
ืืื ืืืืืืื ืืงืฉืื ืืืืชืจ ืืืืืืช ืืืฉืืื CICS ืืืืจ ืงืืื ืืื ืคืืจืืง ืืืืืงืช ืืืืื ืืขืืจืคืืช ืื ืืงืื ื ืช ืขืืืง. ืชืืื ืืืช CICS ืจืืืช ืืชืคืชืื ืืืฉื ืขืฉืจืืช ืฉื ืื, ืขืืจื ืืจื ืฆืืืชืื ืฉืื ืื ืืฉืืืื ืฉืืืืช ืืจืืืืช ืฉื ืืืคืื ืืืืฉื. ืืชืืฆืื ืืื, ืืืืืืช ืืืืื ืืจืืืืืช ืงืืืจืืช ืืขืชืื ืงืจืืืืช ืื ืชืืืื ืืืชื ื ืืืฉืื, ืืฉืืืคืืืช ืขื ืคื ื ืืืืืืื ืื ืืคืืฆืืืช ืืฉืืจืืช ืืงืืืขืืช. ื ืืชืื ืกืืื ืืืื ืืืืืช ืืกืืื ืืฉืืืจ ืืคืืกืื ืืื ืืืืฉืืฃ ืืืื ืื ืืืช ืื ืืฉืืืืช ืืื ืืกื ืกืืืื.
ืืืืื ื ืชืืื ืืจืฉืื ืืคืืฆืืื ืขื ืคื ื ืืกืคืจ ืชืืื ืืืช
ืืคืชืื CICS ื ืืืื ืืืืฉื ืชืื ืืช ืคืกืืืื-ืฉืืืชื ืืื ืืฉืืืจ ืขื ืืฆื ืืืืฉื ืืืืจื ืืื ืืจืืงืฆืืืช ืืจืืืืช ืฉื ืืฉืชืืฉืื. ืืื, ืื ืขืืืืื ืืืคืจืื ืืืขืืช ืืื ืืืืืช ืืืจืฉืื. ืชืืื ืืช ืืืช ืืืืชืช ืืืฉืืจืื, ืืืจืช ืืืืืจื ืืืื ืืคืขืื, ืืฉืืืฉืืช ืืืฆืขืช ืืืืงืืช ืืืฉื. ืื ืืืง ืืืฉืื ืืฉืจืฉืจืช ืื ืืชื ืชืง ืื ื ืขืฉื ืื ืฉืืืืฉ ืืืืจ ืืืงืฉืจ ืืืจ, ืืืืจ ืืืฆืจ ืคืจืฆืช ืืืืื.
ืืืืื:
ืชืืื ืืช 1:
IF USERID = 'SUPPORT1'
MOVE 'OK' TO SESSION-AUTH
EXEC CICS RETURN TRANSID('TX02')
ืชืืื ืืช 2:
IF SESSION-AUTH = 'OK'
PERFORM PROCESS-ADMIN-DATA
ืื ื ืจืื ืืืื ืื ืืฉืชืืฉืื ืื ืืืชืืื ื. ืืื ืื ืขืกืงื ืืืจืช ืืคืขืืื ืืช ืชืืื ืืช 2 ืืฉืืจืืช ืืืื ืืขืืืจ ืืจื ืชืืื ืืช 1, ืืืฉืชื ื SESSION-AUTH ืืืชืื ืฉืื ืืืชืื ืื ืืืืืฃ. ืืชืืื ืืช ืืฉื ืืื ืกืืืืช ืขื ืื ืฉืืืคืขืื ืชืงืคื ืขื ืกืื ืืฉืชื ื ืืืื, ืืืื ืืืืืง ืืืืฉ ืืช ืืืืฉืืจืื.
ื ืืชืื ืกืืื ืืืื ืืขืงืื ืืืจ ืืงืฆืืืช ืืฉืชื ืื ืืืืจื ืืขืืจื ืชืืื ืืช, ืืืืืื:
- ืืืฉืจ ืชืืื ืืช ืืืช ืืืืืจื ืืื ืฉืชืืื ืืช ืืืจืช ืงืืจืืช ืืฆืืจื ืงืืืช ืืืืืืช ืืืฉื
- ืืืฉืจ ืืืืืงืช ืืจืฉืื ืงืืืืช ืืืืฅ ืืืืืืงืช ืืืืืืช
- ืืืฉืจ ื ืืชื ืืืคืขืื ืชืืื ืืืช ืืฉืืจืืช ืืืขืงืืฃ ืืืืืช ืขืจื ืจืืื
ืืคืืกืื ืืื ื ืคืืฆืื ืืืืชืจ ืืขืืฆืืืื ืืืืจ ืงืืื ืืืขืชืื ืงืจืืืืช ืืชืขืืืื ืืื ืืกืงืืจืืช ืืื ืืืช.
ืฉืืืื ืขื ืืกืืืช ืืจืืื ืืืืฆืขืืช ืืฆืื ื ืืคืื ืฉืืืืืช ืื ืืืืงื ืคื ืืืืื
ืืคืชืืื ืืืืืื ืืขืืชืื ืืืืื ื ืกืชืจืื ืื ืืฆืื ื ืืคืื ืฉืืืืืช ืืื ืืกืืืข ืืืืื ืืืืืงืืช. ืื ืชืืื ืืช ืืื ืื ืืืกืจืืช ืืคื ื ืืคืจืืกื, ืื ืื ืื ื ืืืฉืืช ืืืจืืื ืืื ืฉื ืืืืฆืืจ, ืื ืขืืืืืช ืืกืคืง ืืืช ืืืืจืืช ืืืืงืื ืจืืืฉืื ืฉื ืืืคืืืงืฆืื.
ืืืืื:
IF COMM-FLAG = 'DEBUG'
PERFORM BYPASS-AUTH-CHECK
ืื ืืฆืืจื ืขืืื ื ืืืชืจ:
IF CURRENT-TIME > '210000'
PERFORM EMERGENCY-ROUTINE
ืืืงืจื ืืฉื ื, ืฉืืจื ืืืืจ ืฉืขืืช ืืคืขืืืืช ืขืฉืืื ืืขืงืืฃ ืืืง ืืืืืงืืช ืืืืืื ืืจืืืืืช, ืฉืืืื ืืืืขืืืช ืืขืืืืืช ืืฆืืื ืื ืืชืืืืช ืืืจืื. ืขื ืืืช, ืื ื ืืชื ืืืคืขืื ืืืชื ืืชืื ืกืฉื ืืื ืืจืืงืืืื, ืืื ืคืืชืืช ืืงืืืจ ืชืงืืคื ืืืืกืก ืชืืืื.
ืืขืช ืกืจืืงื ืืืจ ืืืืืงื ืืขืืจืคืืช ืื ืืกืืื ืช, ื ืืชืื ืกืืื ืฆืจืื ืืชืช ืขืืืคืืช ื:
- ืชื ืืื ืืจืืืื ืืฉืืืืื ืืืืืืงืช ืืืืื (ืฉืขื ืืืื, ืืืื ืืกืืฃ, ืงืื ืืืืจ)
- ืืืืื ืืืื ื ืืคืื ืืืืื, ืคืืชืื, ืืขืืจ, ืืืืงื ืื ืืืช ืืืืจืืช
- ืืืืงืืช ืืืฉื ืฉืืืืื ืขืืืื ืืชื ืื ืืื ืจืืฆื ืกืคืฆืืคืืื
- ื ืชืืื GOTO ืื PERFORM ืฉืงืืคืฆืื ืกืืื ืขื ืคื ืืืืืช
ืืืืจื ืืื ืืืฉืืฃ ืื ืืืจ ืฉืืืคืฉืจ ืืืืฆืืข ืืขืืืจ ืืงืื ืืืขืืฃ ืืื ืืืืงืช ืืจืฉืื ืืฉืืจื ืืืืืื.
ืฉืืจืืช ืฉืืืืฉ ืืืืจ ืขื ืืงืจืช ืืืฉื ืื ืขืงืืืช
ืืืืฉืืื CICS ืืืืืื ืจืืื, ืืคืชืืื ืืฉืชืืฉืื ืฉืื ืืฉืื ืืจืืืื ืืช ื ืคืืฆืืช ืืืืฉื ืื ืชืื ืื ืื ืืืืืืงื ืขืกืงืืช. ืฉืืจืืช ืืื ืขืฉืืืืช ืืืืืช ืืืคืขืืืช ืื ืขื ืืื ืืจื ืืงืฆืืืช ืืคืื ืืช ืืฆืืืืจ ืืื ืขื ืืื ืืื ืขืืจ ื ืืืืืืื ืคื ืืืืื. ืื ืืืืืืงื ืืืฉืืชืคืช ืื ืืื ืฉืืืชืงืฉืจ ืืืจ ืืืืช ืืช ืชืคืงืื ืืืฉืชืืฉ, ืืื ืื ืื ืื ืชืืื ืืชืงืืืืช, ืืื ืืืคืืช ืืคืืืขืืช ืขืงืืคื.
ืืื ื ืงืืืกื ื ืจืื ืื:
PERFORM UPDATE-ACCT-INFO
...
UPDATE-ACCT-INFO.
IF ROLE = 'ADMIN'
EXEC CICS WRITE FILE('ACCTDB')
ืื ืืืืืื ืจืง ืื ืื ืืชืงืฉืจ ืฉื UPDATE-ACCT-INFO ืืืืืจ ื ืืื ืืช ROLE ืืฉืชื ื. ืื ืืืง ืืืจ ืฉื ืืืืฉืื ืงืืจื ืืฉืืจื ืื ืขื ROLE ืื ืืืืชืื, ืื ืื ืืืชืงืฉืจ ืืืืืจ ืืืชื ืืืืคื ืฉืืื ืขื ืกืื ืืืืงื ืืืฉื, ืขืืืื ืืืชืจืืฉ ืืืฉื ืื ืืืจืฉืืช.
ืกืจืืงืืช ืกืืืืืช ืฆืจืืืืช ืืกืื:
- ืฉืืจืืช ืืฉืืชืคืืช ืืืืฆืขืืช ืคืขืืืืช ืจืืืฉืืช ืืืืืื
- ืืืขืืจ ืืืืืช ืืงืืื ืืชืื ืฉืืจืืช ืืฉืืชืคืืช
- ืืฉืชื ืื ืืืฉืืฉืื ืืืืืืืช ืืืฉื ืืืืืืจืื ืืืฆืื ืืช
- ืืงืฆืืช ืชืคืงืืืื ืืืชืจืืฉืช ืืจืืง ืื ืงืืืช ืืืืืคื
ืฆืืจื ืื ืฉื ืขืจืคืื ืืื ื ื ืืืขืช ืืืกืชืจื ืืืืื ืช, ืืื ืืกืืืคื ืืจืืืืงืืื ืืช ืืจืืืช ืืืื. ืืื ืฉืจืืืืื ื ืืฆืืื ืืฉืืืืฉ ืืืืจ ืืืืืืืื ืฉืื ืื, ืื ืืืช ืืืืฉื ืืืงืืจืืืช ืืชืืจืืจืืช. ืจืง ืืขืงื ืงืื ืขืืืง ืืงืืจืืฆืื ืฉื ืืงืฉืจ ืืืืืื ืืืฉืืฃ ืกืืืื ืื ืืื.
ืฉืืืืฉ SMART TS XL ืืืืชืืจ ืืืืืืืจ ืคืืืขืืืืช ืืขืกืงืืืช CICS
ืืืคืื ืื ืืชืื ืืืืื ืืืขืจืืืช ืืืื ืคืจืืื ืืืืจ ืงืืื ืืื ืืืจืื ืืืืขื. ืกืืืืืช CICS ืืจืื ืืกืจืืช ืืื ื ืืจืืื, ืืขืืืช ืชืืขืื ืืืืจื ื ืืื ืืืื, ืืืฉืชืจืขืืช ืขื ืคื ื ืขืฉืจืืช ืฉื ืื ืฉื ืืืืืืฆืื ืคืจืืฆืืืจืืืช. SMART TS XL ืืืคื ืืืขืืืช ืืื ืขื ืืื ืืฆืขืช ืื ืืข ื ืืชืื ืกืืื ืฉื ืื ื ืืืืืื ืขืืืจ ืชืื ืืืช ืกืคืฆืืคืืืช ื-COBOL, PL/I, JCL ืืชืื ืืืช CICS. ืื ืืืื ืืืืื ืืืืจืืช ืืืืืืช, ืืื ืืืื ืืช ืืืจืืืืงืืืจื ืืืืืกืืืืช ืืืืืืืืืช ืืืขืจืืืช ืืงืืืืืืืช ืฉื ืืืื ืคืจืืื.
ืฉืืืืจ ืืจืืื ืจื-ืืคืืกื ืขืืืจ CICS
SMART TS XL ืกืืจืง ืชืืงื ืืืฉืืืื ืฉืืืื ืืืื ื ืืคืช ืืจืืื ืืืฆืช ืชืืื ืืืช. ืื ืืืื:
- ืืืคืืืื ืืื ืขืกืงืืืช ืืชืืื ืืืช
- ืืขืืจืื ืืื ืชืืื ืืืช ืืืืฆืขืืช LINK, XCTL ื-RETURN
- ืืชืคืฉืืืช ืืฉืชื ื ืืงืืืจืื
- ืืืืืงืช ืืงืจื ืืืืกืกืช ืชืคืงืืืื ืืืขืงื ืืืจ ืชื ืื ืื ืืกื
ืขื ืืื ืฉืืืืจ ืฉืจืฉืจืืืช ืืืฆืืข ืืืืืช, ื ืืชื ืืืืืช ืืชื ืชืืื ืืช ืืื ืืื ืืงืฉืจ ืืืืื ื ืืชื ืช ืืืืฉื ืื ืงืืืืช ืืจืืืืช, ืืืื ื ืงืืืืช ืฉืขืฉืืืืช ืืืืืช ืื ืืืืืชืืช.
ืืงืจื ืฉืืืืฉ ืืืืืื:
ืืืงืืจืช ืคื ืืืืช ืืฉืคื ืคืจืฆืช ืืืืื ืฉืื ืขืกืงื TX94 ืืคืขืื ืชืืื ืืช ืฉืืืขืื ืืืงืืจ ืืฉืืืืฉ ืื ืืื ืืขืจืืช ืืืื. SMART TS XL ืขืงืื ืืืจ ืืจืฃ ืืงืจืืื ืฉื ืืชืืื ืืช, ืืืื ืฉืืื ืืฉืืืื ืืืขืืจ ืืจื ืฉืื ืงืืืืืืจ ืื ืืกืืื, ืืืืื ืืืฉ ืขืกืงืืืช ื ืืกืคืืช ืขื ืืืฉื ืืืืชื ืขืจื ืชืืื ืืช. ืืขืงื ืืื ื ืืืืืฅ ืืืช.
ืืืืื ืืืื ืืงืจื ื ืกืชืจืื ืื ืชืืื ืืืฉื ืืขืืจืคืืื
ืชืืื ืืืช ืืืืจ ืงืืื ืจืืืช ืืืืืืช ืชื ืื ืขืงืืคื ืืืืืขืื ืื ืฉืืจืืช ืืืจืื. ืืขืชืื ืงืจืืืืช ืงืฉื ืืืชืจ ืืืชื ืืืืคื ืืื ื ืขืงื ืงืื ืื ืขืืืง, ืืชื ืฉืืืช ืื ืฉืืจืชื ืืืฉืชื ืื ืื ืืืงืื ืืชืื ืืืืืงืช ืืืืื. SMART TS XL ืืฉืชืืฉ ืืกืจืืงืืช ืืืืกืกืืช ืืืืื ืืืชืืืช ืชืื ืืืช ืืื ืืืืฅ:
- ืขื ืคืื ืืืชื ืื ืื ืฉืืืื ืขื ืืื ืขืจืื ืืื ืื ืืฆืืื ืืฉืืืืฉ ื ืืืจ
- ืืืืืงื ืืืคืขืืช ืขื ืกืื ืืืื ืืกืืฃ, ืฉืขื ืืืื ืื ืืื-ื ืชืื ืื ืฉื ืืฉืืื
- ืขืงืืคืช ืขื ืคืื ืืืืฆืขืืช ืืืื commarea, ืืืื ืืฉืชืืฉ ืืงืืืืื ืงืฉืืืื ืื ืฉืืจืืช ืืจืืช ืืืืงืจื
ืืื ืืืฉืฃ ืืช ืื ืืืืคืขืื ืฉื ื ืงืืืืช ืืืืื ืืขืืืช ืคืืื ืฆืืื ืืืจืฉืืืช ืืืจืฉืืช ืืืืจื ืืืชื ืขื ืกืื ื ืืืฉืืช, ืืฉืืคืช ืขืกืงืืืช ืืคืืื ืฆืืื ืืืกืืืช ืืจืฉืืืช.
ืืืื ืคืืืขืืช ืืืืืืืืื ืขืืืจ ืืื ื CICS
ืื ืืืื ืืกืืจืงืื ืืืืื ืคื ื ืืฉืื, SMART TS XL ืืืื ืืืืื ืืืื ืื ืืืืชืืืื ืืชืืื ืืืช COBOL-CICS. ืืื ืืืืื ืคืืืขืืืืช ืืงืฉืืจืืช ื:
- ืฉืืืืฉ ืื ืืืืืื ื-EXEC CICS ASSIGN ื-ADDRESS
- ืืืืืงืช ืืืฉื ืื ืขืงืืืช ืืฉืืจืืช PERFORMed
- ืืืืืช ืืกืจ ืืคื ื ืคืงืืืืช WRITE, DELETE ืื START
- ืืจืืืืช ืคืกืืืื-ืฉืืืืช ืืืืฉื ืืช ืขื ื ืืืื ืืฆื ืืืฉ
ื ืืชื ืืืชืืื ืืืฉืืช ืืืืื ืืื ืืืชืื ืืกืืืื, ืืชืคืงืื ืืขืกืงื ืื ืืงืจืืืจืืื ื ืืืงืืจืช. ืื ืฉืืืืฉืืื ืืืืืื ืืืืืื ืื ืืืช ืฉืืืืืช ืฉืืืฉืืจื ืขื ืืื ืฆืืืชื ืคืืชืื ืืฉื ืื ืืืชืจ.
ืชืืงืื ืืืืฅ ืขื ืืขืงื ืืืจ ืืฉืคืขืืช
ืืืืจ ืฉืืืืชื ืคืืืขืืช, ื ืืชื ืืืืืฅ ืืช ืืชืืงืื ืืืืฆืขืืช SMART TS XLืืืืืช ืืืขืงื ืฉื. ืขืืืจ ืื ืขื ืฃ ืืืื ืื ืคืื ืงืฆืืืช ืชืืื ืืช, ืืื ืืืื ืืืฆืื:
- ืื ืืขืกืงืืืช ืฉืืืืืื ืืื
- ืื ืืืืืืืื ืฉืืื ืงืืจื ืืื
- ืื ืืืฉืชื ืื ืฉืื ืชืืื ืืื
- ืื ืืืืืงืช ืืืฉื ืฉืืื ืขืืงืฃ
ืืคืช ืืขืงื ืื ืขืืืจืช ืืืคืชืืื ืืืืืงืจืื ืืืืื ืืืืคื ืืืืื ืืื ืคืื ืืืื ืื ืฉื ืืฉืฃ ืืืืคื ืฉืืืชื. ืืื ืื ืืคืืืชื ืืช ืืืื ืืืืฉืงืข ืืืืคืื ืชืืืช ืืื ื ืืืงืืื ื ืืช ืืกืืืื ืืืืืจืช ืืืืื ืืืฉืื ืืืืื ืชืืงืื ืื.
ืกืืืื ืืฉืืื ืกืงืืจืช ืืืืืื ืืืืื
ืืืฉืืื CICS ืืืืจ ืงืืื ืืืืืื ืืืืืงื ืขืกืงืืช ืงืจืืืืช, ืื ืืืื ืืืืจืืืืชื ืืืฆืจืื ื ืงืืืืช ืขืืืืจืืช ืืืืื ืฉืฉืืืืช ืกืื ืืจืืืืช ืืขืืชืื ืงืจืืืืช ืืคืกืคืกืืช. ื ืืชืื ืกืืื ืืกืคืง ืืจื ืืืื ื ืืืฉืืฃ ืกืืืื ืื ื ืกืชืจืื ืืคื ื ืฉื ืืชื ืื ืฆื ืืืชื, ืืืืืื ืืืฉืจ ืืื ืืืืื ืื ืจืง ืืชืืืืจ ืื ืืงืืขื ืงืื, ืืื ืืืจืืืช ืืืงืจื ืืจืืื ืืืชืจ ืืืื ืืืช ืืืืฉื ืขื ืคื ื ืขืกืงืืืช.
ืืืืืจ ืื, ืืื ื ืืช ืกืืื ืืคืืืื ืืืืืืืืื ืืืขืจืืืช CICS:
- ืืืืืงืช ืืจืฉืื ืืืคืืืจืช ืขื ืคื ื ืชืืื ืืืช ืืงืืฉืจืืช ืืืืคื ืจืืคืฃ
- ืืคืืกื ืคืงืืื ืคืืืขืื ืืื ASSIGN ื-ADDRESS ืืื ืืืืืช
- ืขืกืงืืืช ืืืืื ืื ืชืืื ื ืืคืื ืืืืื ืฉืขืืงืคืื ืืืืงืืช ืจืืืืืช
- ืฉืืืืฉ ืืืืจ ืืฉืืจืืช ืืื ืื ืฉื ืงืื ืืืื ืืืืชืงืฉืจืื
ืขืืืจ ืืจืืื ืื ืืืคืขืืืื ืชืืงื CICS ืืืืืื, ืืืฉื ืืืงืืช ืืืืืื ืืื ื ืืช ืงืืืื ืขืื. ืืืืืื ืืืืจื ืืื ืืืืืื ืื ืฆื ืคืืงืื ืืืื ืืงืืืจ ืืืืืช ืืืืืืื. ื ืืชืื ืกืืื, ืื ืืืืฉื ืขื ืืืืขืืช ืขืืืงื ืืืงืฉืจ, ืืืื ืืืฉืืฃ ืืขืืืช ืืื ืืคื ื ืฉืื ืืืคืืืช ืืืงืืื ืื ืืืืขืืช ืืืืงืืจืช.
ืืืื ืืคืขืืืืช ืืืจืืืืืช ืฉืืฉ ืืฉืงืื ืืฆืขืืื ืืืืื:
- ืฆืืจ ืืคื ืืืื ืฉื ืืจื ืืงืฆืื ืืชืืื ืืช, ืืืื ืื ื ืชืืื XCTL ื-LINK
- ืืื ืืชืงื ืื ืืืืืงื ืขืกืงืืช ืืฉืืชืคืช ืฉืืืฆืขืช ืคืขืืืืช ืืืจืฉืืช
- ืืืงืืจืช ืขื ืื ืืขื ืคืื ืืืืฉืคืขืื ืืืืื commarae ืื ืืืืืืืช ืืืืกืกืืช ืืจืืื ื
- ืงืืข ืืืืืช ืืืืื ืื ืงืืืช ืืื ืืกื ืฉื ืื ืขืกืงื
- ืกืงืืจืช ืืืืืงืช ืืืืื ืื ืชืืื ืืืจืื ืืืฉืืคื ืื ืืืืื ืช
ืขืืืจ ืฆืืืชืื ืืืขืื ืืื ืื ืืืืืฅ ืืช ืืชืืืื ืืื ืืืืคืืืช ืืช ืืืืืฅ ืืืื ื, ืืืื ืืื SMART TS XL ืืกืคืง ื ืืชืื ืกืืื ืืืืชืื ืืืจืืืืงืืืจืช CICS, ืืืืคืฉืจ ืขืืืื ืืืืฉ ืืืืืื ืขื ืืืืืช ืืขืงื ืืืื ืืืจ ืืจืืื.
ืืื ื ืขื ืกืืืืืช ืืืฉื ืืจืืื ืืืจืฉืช ืื ืจืง ืขืจื ืืช, ืืื ืื ื ืจืืืช. ืื ืืชืื ืกืืื ืืื ืืืช ืืืื ืืงืืช ืืืืืืืช ืืืฆืืขืืช ืืช ืฉื ืืื.