ื ื™ืชื•ื— ืกื˜ื˜ื™ ืœื’ื™ืœื•ื™ ืคื’ื™ืขื•ื™ื•ืช ื‘ืื‘ื˜ื—ืช ืขืกืงืื•ืช CICS

ื ื™ืชื•ื— ืกื˜ื˜ื™ ืœื’ื™ืœื•ื™ ืคื’ื™ืขื•ื™ื•ืช ื‘ืื‘ื˜ื—ืช ืขืกืงืื•ืช CICS

ืžืขืจื›ื•ืช 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

ืื ืœื•ื’ื™ืงื” ื–ื• ืื™ื ื” ืžื•ืกืจืช ืื• ืžื•ื’ื ืช, ืงืœื˜ ื‘ืขืœ ืžื‘ื ื” ืขืœื•ืœ ืœื”ืคืขื™ืœ ืคื•ื ืงืฆื™ื•ืช ืฉื—ื•ืฉืคื•ืช ื™ื•ืžื ื™ ืจื™ืฉื•ื, ืžืฆื‘ื™ืขื™ ืงื‘ืฆื™ื ืื• ืื‘ื—ื•ืŸ ื–ื™ื›ืจื•ืŸ ืฉืื™ื ื ืžื™ื•ืขื“ื™ื ืœืžืฉืชืžืฉื™ื ื›ืœืœื™ื™ื.

ื‘ืขืช ื‘ื ื™ื™ืช ื›ืœืœื™ื ืกื˜ื˜ื™ื™ื ืœื’ื™ืœื•ื™ ืคื’ืžื™ื ื›ืืœื”, ื”ืชืžืงื“ื• ื‘:

  • IF or EVALUATE ื”ืฆื”ืจื•ืช ื”ืžืฉืชืžืฉื•ืช ื‘ืขืจื›ื™ื ืœื™ื˜ืจืœื™ื™ื ืžืงื•ื“ื“ื™ื ืงืฉื™ื—ื™ื ื”ืงืฉื•ืจื™ื ืœืžืฉืชืžืฉื™ื ืื• ื˜ืจืžื™ื ืœื™ื
  • ืžื™ืคื•ื™ ื™ืฉื™ืจ ืฉืœ ืื™ืฉื•ืจื™ื ืžืงื•ื“ื“ื™ื ื›ื“ื™ ืœื’ืฉืช ืœื“ื’ืœื™ื
  • ื“ื’ืœื™ื ื›ื’ื•ืŸ 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, ื”ืžืืคืฉืจ ืขื™ื‘ื•ื“ ืžื—ื“ืฉ ืžืื•ื‘ื˜ื— ืขื ื™ื›ื•ืœืช ืžืขืงื‘ ืžืœืื” ืื—ืจ ื–ืจื™ืžื”.

ื”ื’ื ื” ืขืœ ืกื‘ื™ื‘ื•ืช ืžื—ืฉื‘ ืžืจื›ื–ื™ ื“ื•ืจืฉืช ืœื ืจืง ืขืจื ื•ืช, ืืœื ื’ื ื ืจืื•ืช. ื•ื ื™ืชื•ื— ืกื˜ื˜ื™ ื”ื•ื ืื—ืช ื”ื˜ื›ื ื™ืงื•ืช ื”ื‘ื•ื“ื“ื•ืช ื”ืžืฆื™ืขื•ืช ืืช ืฉื ื™ื”ื.