ืืืจืืืืช ืฆืืงืืืืืืช ื ืืชืจื ืืื ืืืืืื ืืืื ืืื ืืืฉืืืื ืืืืชืจ ืื ืืชืื ืชืืื ื. ืืืขืจืืืช COBOL ืืจืืืืืช ืืืืืืช, ืฉืืื ืงืื ืคืจืืฆืืืจืื ืขืืืื ืื ืืข ืคืขืืืืช ืงืจืืืืืช, ืืืื ืืืจืืืืช ืืกืคืงืื ืืืชืืช ืืืงืื ืืกืืืื ืืื ื ืืืืืืฅ ืืืืจื ืืืฆืื. ืื ืขื ืฃ ืืืืื ื ืืกืฃ, ืืืืื ืื ืชื ืื ืืงืื ื ืืืืืืื ืืช ืืกืคืจ ื ืชืืื ืืืืฆืืข ืืคืืื ืฆืืืืืื, ืืืชืืฆืื ืืื, ืืช ืืืืืฅ ืื ืืจืฉ ืืืืืงืืช ืืืขืืืื ืืืืฉ. ืืืืื ืืืืจื ืืืจืืืืช ืืืืื ืืคื ื ืืืจื ืกืคืืจืืฆืื ืืืคืฉืจ ืืฆืืืชืื ืืืงื ืืช ืืฉืืื ืืืืืจื ืืืฆืื ืืฆืืจื ืืกืืจืืืืช, ืชืื ืืืืืช ืืชืงืืืืช ืฆืคืืื ืืชืืฆืืืช ืืืืืืช.
ืขื ืืืื, ืชืืื ืืืช COBOL ืืืืจ ืงืืื ืฆืืจื ืฉืืืืช ืฉื ืืืืืงื ืคืจืืฆืืืจืืืช ืฉืืชืคืชืื ืืื ืืงืจื ืืจืืืืงืืื ืืช ืขืงืืืช. ืืื ืฉืืกืืกื ืืงืื ืืืื, ืฆืคืืคืืช ืืืืืืืช ืืืื, ืืืืืืืื ืชืืืืื ืื ืืื ืืคืื ืงืฉืื ืืฉืื ืื ืืืื. ืืืฉืจ ืืืืืจื ืืืฆืื ืืชืืืื, ืืื ืื ืฆืคืืคืื ืืื ืืืฆืจืื ืืขืชืื ืงืจืืืืช ืชืืืืืช ืฉืจืฉืจืช ืฉื ืฉืื ืื, ืื ืฉืืืืื ืืขืืืืืื ืืคืจืืืงื ืื ืจืืจืกืืืช ืืืชื ืฆืคืืืืช. ื ืจืืืช ืืืงืืืช ืฉื ืืคืืกื ืืืจืืืืช ืืืืื ืืื ืืข ืฉืืืืฉืื ืืื ืขื ืืื ืืืืื ืืืื ืจืืืืื ืืืืืื ืืช ืืกืืืื ืืืืื ืืืืชืจ. ืืืฉื ืื ืืชืืืฉืืช ืขื ืชืืื ื... ื ืืชืื ืืฉืคืขื ืืืืืงืืช ืชืืื ื, ืืืฉืจ ืืืคืื ืืืืืง ืฉื ืชืืืืืช ืืคืืืช ืืช ืื ืืืืืืืช ืืืืืจื ืืืฆืื.
ืืืจืืืืช ืืืืจื ืืืฆืื ืฉื ืืงืจื
ืืคืื ืชืืื ืืช ืืืืจื ืืืฆืื ืืืชืงืืืืช ืืืืื ืขื Smart TS XL
ืืื ืขืืฉืืื ืืชืื ืกืืื ืืกืคืง ืืจื ืฉืืืชืืช ืืื ืคืืืฉื ืืช ืืืืช ืืืคืจืฉ ืืืจืืืืช ืฆืืงืืืืืืช ืืืืฉืืื COBOL. ืืืื ืืืืจื ืืื ืืฉืืืื ืืจืคื ืืจืืืช ืืงืจื, ื ืืชืื ืชืืืืจ ืืืคืฉื ืื ืืชืื ืืจืืืช ื ืชืื ืื ืืื ืืฉืืืจ ืืช ืจืฉืช ืืืืืืงื ืืืืืื ืืชืื ืชืืื ืืืช ืืืืจ ืงืืื. ืขื ืืื ืืืืืืืืืฆืื ืฉื ืืืืืงื ืื ืื ืืงืื ืื ื ืชืื, ืืื ืืกืื ืืืืืื ืืืขืจืื ืืช ืืืืืช ืืชืืืืงื, ืืืืืช ืื ืืืืืืช ืงืื ืืืืชืืื ื ืืฉืืคืืฅ ืืืืืืจื ืืืื. ืืชืืืื ืืฉืืื ืืช ืืชืืื ืืช ืืืืฆืืืช ื... ืคืืชืื ืชืืื ื ืื ืืชืื ืงืื, ืฉืื ืืืืง ืื ืืืื ืื ืืข ืืช ืืฆืืืช ืืืืืจื ืืืฆืื.
ืืืืฆืขืืช ืืืืื ืืืื ืื, ืืืืืช ืืืืื ืื ืืืืืื ืืืืืื ืชืื ืืืช ืืืืืืื, ื ืืชืื ืกืืื ืืืคื ืืช ืืขืจืืช ืืงืื ืืงืืื ืืคืขืืืืช ืืืืจื ืืืฆืื ืืกืืจืืืืช. ืืืื ืืงืืช ืื ืืงืจืืช ืืกืขืืคืื ืืืืื ืืืืืืืช ืืืฆื ืืจืืื ืื ืืืืืื ืืืืื ืืืฉืืื ืืืืจืืืืช ืฆืืงืืืืืืช ืขื ืคื ื ืืืคื ืืืืืื COBOL, ืืชืขืืฃ ืฉืืคืืฅ (refactoring) ืขื ืจืืืืช, ืืืืคืืืช ืืช ืขืืืช ืืชืืืืงื ืืืืื ืืจืื. ืืืฉืจ ืื ืืฉืืืืื ืืืกืืจืช ืืืืจื ืืืฆืื ืืชืืฉืืช, ืคืจืงืืืงืืช ืืื ืืืฆืจืืช ืืกืืก ืืจืืจ ืืืืื ืืฉืืคืืฅ (refactoring) ืืืืืืืฉ ืืืขืจืืช.
ืืื ืช ืืืจืืืืช ืฆืืงืืืืืืช ืืกืืืืืช COBOL ืืืืจ ืงืืื
ืืืจืืืืช ืฆืืงืืืืืืช ืืืืชืช ืืช ืืกืคืจ ื ืชืืื ืืืืฆืืข ืืืืืืืืื ืืจื ืชืืื ืืช, ืืืฉืืฉืช ืืืื ืืื ื ืืฆืคืืคืืช ืืืืืช. ืืืขืจืืืช COBOL, ืืืื ืื ืืฉืืืืช ืืืืืืช ืืฉืื ืฉืืื ื ืืงืจื ืคืจืืฆืืืจืืืื ืืืืืื ืืืฆืืืจ ืืืืจืจืืืืช ืืงืื ื ืืช ืขืืืงืืช ืืืชื ืืืืช ืืืืืืืจืืืฆืื. ืขื ืืื ืืืฉืื ืืกืคืจ ื ืงืืืืช ืืืืืื ืืืขืืจื ืืืงืจื, ืืจืืื ืื ืืืืืื ืืงืืืข ืขื ืืื ืื ืืืืื ืืืืช ื ืืชื ืืชืืืืงื ืื ืืชื ืืืืืงื. ืืื ืฉืขืจื ืืืืจืืืืช ืืืื ืืืชืจ, ืื ืงืืืืื ืืืชืจ ื ืชืืืื ืคืืื ืฆืืืืืื, ืืื ืืืื ืืกืืืจืืช ืืคืืืื ืฉืืืฆืื ืืืืื ืฉืื ืื ืื ืืืืจื.
ืืืืฆื ืืืืจื ืืืฆืื ืฉื ืืืื ืคืจืืืืื ืืืฉืคืื ืืขืชืื ืงืจืืืืช ืืืฉืืืื ืฉืคืขืื ืืฆืืจื ืืืื ื ืืืฉื ืขืฉืจืืช ืฉื ืื ืื ืืืืืื ืฉืืจืืจืืืช ืืื ืืช ืืชืืช ืืืฆืืืืชื. ืจืืืช ืืชืืื ืืืช ืืื ืืกืชืืืืช ืขื ืืจืืืืช ืืื ืืืจืืืช ืืืื ืืืืืืืช ืฉืืืื ืืืืจืื ืืื ืฉืืืื ืืขืกืง ืืชืจืืื. ื ืืชืื ืืืจืืืืช ืฆืืงืืืืืืืช ืืกืคืง ืืฆืืืชื ืืืืจื ืืืฆืื ืืจื ื ืืชื ืช ืืืืืืช ืืชืขืืฃ ืชืืื ืืืช ืืื ืืฆืืจื ืขืืืื ืืืืฉ. ืืคื ืฉื ืืื ื... ืชืคืงืืื ืฉื ืืืื ืืืืืช ืงืื, ืืืืื ืืืืชืืื ืืกืืืขืื ืืืืืจืช ืืืืืืช ืืื ืืื ื ืืืืืืขืื ืืืื ืืืืืืช ืืืจืืืืืืช ืืืืืกืกืืช ืขื ืจืืืืช ืืืืืืงืืืืืืช ืืื ืขื ืืื ืืืืืฆืื.
ืืืื ืืืืืื ืกืืืืืืืช ืฆืืงืืืืืืช ืืงืื ืคืจืืฆืืืจืื
ืกืืืืืืืช ืฆืืงืืืืืืช, ืฉืืืฆืื ืขื ืืื ืชืืืืก ืืงืืื, ืืืืืจืช ืืชืืืืช ื M = E โ N + 2P, ืฉื E ืืืืฆื ืืช ืืกืคืจ ืงืฆืืืช ืืจืืืช ืืืงืจื, N ืืกืคืจ ืืฆืืชืื, ื P ืืกืคืจ ืืจืืืืื ืื ื ืงืืืืช ืืื ืืกื ืืืืืืจืื. ืืชืืื ืืืช COBOL, ืื ืืื ื ืืืืื - ืืืื IF, EVALUATE ืื PERFORM UNTIL - ืืืกืืฃ ื ืชืืืื ืืืฉืื ืฉืืจืื ืืืงืจื ืืืืื ืืืจืื. ืืืื ืืฉืงืฃ ืื ืจืง ืืช ืกืคืืจืช ืืืื ืื ืืืื ืืื ืื ืืช ืฆืคืืคืืช ืืงืืฉืืจืืืช ืฉืืื.
ืฉืงืื ืืช ืืืืืช COBOL ืืคืฉืืื ืืื:
ืื ืกืืืืก ืืงืื = "ืคืขืื"
ืืืฆืืข ืชืืืื-ืืืื ื
ืืืจ
ืื ืกืืืืก ืืงืื = "ืื ืคืขืื"
ืืฆืข ืืืืขืช ืฉืืืื
ืืืจ
ืืืฆืืข ืจืืฉืื ืืจืืืื
END-IF
END-IF
ืืืจืืช ืฉืืืืื ืื ื ืจืืืช ืคืฉืืื, ืืื ืืืืฆืจืช ืฉืืืฉื ื ืชืืืื ืืืชื ืชืืืืื, ืื ืฉื ืืชื ืกืืืืืืืช ืืกืืกืืช ืฉื ืืจืืขื (ืืืื ื ืงืืืช ืืื ืืกื ืืจืืฉืื ืืช). ืืืฉืจ ืืื ืื ืืืื ืืงืื ื ืื ืฉืื ืืฉืื, ืืกืืืืืืืช ืืืื ืืืืคื ืืงืกืคืื ื ืฆืืืื, ืื ืืืืคื ืืื ืืืจื. ืื ืืืคื ืืช ืืืืงืช ืื ืชื ืื ืืคืฉืจื ืืืืชื ืืคืฉืจืืช.
ืืื ื ืืชืื ืกืืืืื ืืืืื ืฆืืชื ืืืืื ืืืืคื ืชืื ืืชื ืขื ืืื ื ืืชืื ืืืงื ืื ืืืชื ืื ืืืขืจืืช ืืืคืจืืืจื ืืกืชืขืคืืช. ืืืืจ ืืื ืื ืืืฉืืื ืืช ืืื ืืืืจืืืืช ืืืชืงืื ืืื ืืงืืืข ืืื ืืืืงืืช ื ืืจืฉืืช ืืื ืืืฉืื ืืืกืื ืืกืชืขืคืืช ืืื. ืืคืื ืืชืืื ืืฉืืจืืช ืขื ืืืืืช ืืชืืืืงื. ืืืืืื, ืคืกืงืช COBOL ืขื 25 ื ืงืืืืช ืืืืื ืืืืฆืจืช 26 ื ืชืืื ืืืืงื ืชืืืืจืืืื, ืืขืืืื ืืืจืื ืขื ืืืืืืช ืืืืกืื ืืืขืฉืืืช. ื ืืงืื ืืืืจืืืืช ืืืคืฉืจ ืืืชืื ื ื ืืืืจื ืืืฆืื ืืคืื ืชืืื ืืืช ืืจืืืืื ืงืื ืื ืืืชืจ ืื ืืชื ืื ืืืืืงื. ืืืฉืจ ืืื ืื ืืืจื ืืกืคื ืืืืงื ืฉื ืงืืขื, ืืงืื ืืกืืื ืืืืืืืจืืืฆืื ืื ืขืืฆืื ืืืืฉ ืืคื ื ืืืขืืจื, ืืืชืื ืืคืจืงืืืงืืช ืืืฉืืฉืืช ื... ืืืืจื ืืืฆืื ืฉื ืืคืืืงืฆืืืช.
ืืืืข ืืืื ื ืฉื COBOL ืืืืื ืืช ืืกืืืื ืืืืจืืืืช
ืื ืืืื ืืฉืคืืช ืืืืจื ืืืช ืขื ืืืืจืช ืืืื ืืืืงืื ืืืืคืื ืืืื ื ืืืจืืืื, ืืืืคื ืืคืจืืฆืืืจืื ืืืงืจืช ืืืจืืื ืืืืืฉื ืฉื COBOL ืืขืืืืื ืืคืืคืช ืืื ื ืืงืจื. ืชืืื ืืช ืืื PERFORM THRU, GO TO ืืงืจืืื ืืคืกืงืืืช ืืงืื ื ืืช ืืืคืืืช ืืช ืกืืจ ืืืืฆืืข ืืคืืืช ืฆืคืื. ืื ืงืคืืฆื ื ืืกืคืช ืืฆืืื ืขื ืคืื ื ืกืชืจืื ืฉืืื ื ื ืจืืื ืืืคืชืืื ืืกืืจืงืื ืืจืฆืฃ. ืขื ืืืื, ืืื ืื ืืื ืืฆืืืจืื ืืื ืฉืืืื ื ืืขืชืื ืงืจืืืืช "ืกืคืืื ืืืื", ืฉืื ืฉืืืจื ืขื ืคืกืงื ืืืช ืืกืื ืช ืืฉืคืขืืช ืื ืืืืื ืืช ืืืงืื ืืืจ.
ืืืืืื, ืืคืืก ื ืคืืฅ ื-COBOL ืืืืจ ืงืืื ื ืจืื ืื:
ืืฆืข ืืื ืขืืืื CALC-TAX
...
ืืก ืืืฉืื.
ืื ืืกืืื ืืขื ืืืืืื
ืืฆืข ืืืื ืื ืงืฆื
ืกืืฃ-ืื.
ืืื ืขืืืื.
ืืชืืืช ืืื-ืจืืฉืื
ืขืืืจ ืื ืกืืื ืชืืืื.
ืืืจืืช ืฉืื ืขืฉืื ืืืืจืืืช ืืื ืืืจื, ืืฉืคื PERFORM THRU ืืฉืื ืืกืคืจ ืคืกืงืืืช ืืืืฆืจ ืืืืคื ืืจืืื ืืืื ืืงืจื ืืืฉ ืฉืืจืืื ืืช ืกืคืืจืช ืื ืชืืืื ืืคืืื ืฆืืืืืช. ืืชืจ ืขื ืื, GO TO ืืฆืื ืงืคืืฆืืช ืื ืืงืืืืืช, ืื ืฉืืกืื ืขืื ืืืชืจ ืืช ืื ืืืช ืืืจืฃ. ืืืืจืืืืช ืืฆืืงืืืืืืช ืฉื ืืชืืื ืืช ืืืืื ืืขืืืช ืืืืคื ืืจืืื ืืืจืืช ืืกืชืขืคืืช ืืื ืืืืืช ื ืจืืืช ืืขืื.
ืืืื ืืื ืฉื ืืืืจื ืืืฆืื, ืืคืืก ืื ืืืืฆื "ืืจืืืช ืชืืืช ื ืกืชืจืช". ืื ืชืืื ืกืืืืื ืืืืืื ืื ืงืฉืจืื ืืืื ืืืืฆืขืืช ืืจืคื ืืจืืืช ืืงืจื (CFGs), ืืืืืืฉืื ืืืฆื ื ืชืืืื ืืชืจืืื ืืื ืคืกืงืืืช. ืืืืฆืืื ืืฉืงืคืื ืืขืชืื ืงืจืืืืช ืชืืื ืืช ืชืืืช ื ืืคืืืช ืืื ืืืืืื ืืืืงืจื-ืฉืืจืืชืื ืืืืฉ, ืืืฉืจ ืฆืืืื ื ืกืชืจ ืืืืืจ ืืช ืขืืืคืืช ืืืืืจื ืืืฆืื. ืืืืจื ืืืืคื ืฉืื ืืืจืืืืงืืืจื ืฉื COBOL ืืืคืืช ืืืจืืืืช ืืืคืฉืจืช ืืืจืืื ืื ืืืงื ืืช ืชืืืื ืืขืืืื ืืืืฉ ืืืื ืฉืืื ืืคืืืช ืืช ืขืืืช ืืชืืืืงื ืืจืืืช ืืืืื ืืืืืื ืืืืชืจ, ืืืืืื ืืืขืจืืืช ืงืจืืืืืช ืืืฉืืื ืขื ืฉืื ืืืื ืชืืืคืื ืืืืืืงื ืขืกืงืืช.
ืคืืจืืฉ ืกืคื ืืืจืืืืช ืขืืืจ ืชืืื ืืืช COBOL
ืื ืืืืช ืกืื ืืจืืืืช ืืชืขืฉืืื ืืฆืืืขืืช ืขื ืื ืฉืฆืืื ืืืจืืืืช ืฆืืงืืืืืืช ืืชืืช ื-10 ืืฆืืืข ืขื ืืืืืงื ื ืืชื ืช ืื ืืืื, ืืขืื ืฉืฆืืื ืื ืืื 10 ื-20 ืืจืืืื ืขื ืฆืืจื ืคืืื ืฆืืืื ืืขืืืื ืืืืฉ. ืืขืืจ ื-30, ืืงืื ื ืืฉื ืืืจื ืืื ืืกืืืื ืืืื. ืขื ืืืช, ืืกืืืืืช COBOL, ืืฉ ืืคืจืฉ ืืช ืขืจืื ืืกืฃ ืืฆืืจื ืฉืื ื ืขืงื ืืืื ืืชืื ืื ืืคืจืืฆืืืจืื ืืืจืืื ืืคืกืงืืืช. ืชืืื ืืช ืืืช ืขืฉืืื ืืืืคื ืืืขื ืืืืื ืืืชืจ ืืื ื ืืืืื ืืืฉืจ ืจืืื ืืงืืื ืฉื Java ืื C#, ืืืืืจ ืกืคืื ืืืืืืื ืืืจืฉืื ืืืื ืืงืฉืจื.
ืืกืืจืืช ื ืืชืื ืกืืื ืืืืฉืืืช ืืคืืื ื ืืงืื ืืืกื ืืืืืกืก ืขื ืืืจืช ืืืืืื, ืืื ืืจืืงืฆืืืช ืื ืชืื ืื ืืฆืคืืคืืช ืืื ื ืืืงืจื. ืืืืืื, ืืืืื ืขืกืงืืืช ืืฆืืื ืขื 18 ื ืงืืืืช ืืืืื ืขืฉืื ืืืืืช ืืงืืื ืื ื ืชืื ืืืืฆืืข ืฉืื ืืื ืืืจื ืืขืฆืืื. ืืขืืืช ืืืช, ืชืืื ืืช ืืืืืช ืงืื ืขื 12 ืืืืืืช ืืืื ืขืฉืืื ืืืืืช ืืืจืืืช ืืืชืจ ืื ืื ืืงืื ื ืืช ืืขืืืง ืฉื ืฉืืืฉ ืจืืืช. ืืื ืืืืืืืืืฆืื ืืืื ืืคืืช ืืื ืฉื ืืจืืืช ืืงืจื ืืืืืฉืื ืืืื ืื, ืืขืืืจืื ืืฆืืืชืื ืืชืขืืฃ ืขืืืืช ืจืคืงืืืจืื ื ืขื ืืฉืืืืืช ืื ืืื ืืืจืืื.
ืืืืื ืืืืืจื ืืืฆืื, ืฆืืื ืื ืืื ืืืื ืื ืืฉืืจืืช ืืืขืจืืช ืืืืืฅ. ืชืืื ืืืช ืขื ืฆืืื ื ืืืจืืืืช ืืืืืื ืืงืืืืช ืฉืืื ืืืืงื ืืืืืืช ืจืืจืกืื ื ืจืืืื ืืืชืจ ืืคื ื ืืคืจืืกื. ืืืืื ืืืืฉืืช ื ืืืื ืืืฆืืขื ืชืืื ื, ืงืืืขืช ืกืืจื ืขืืืคืืืืช ืืื ืื ื ืชืื ืื ืื ืืืืืื ืฉืกืืืื ืืืืืจื ืืืฆืื ืชืืื ืืชืืื ืืช ืชืืื ื ืืืืืืช. ืคืืจืืฉ ืกืคืื ืืืงืฉืจ ืืืคื ืืช ืืืืจืืืืช ืืฆืืงืืืืืืช ืื ืชืื ืกืืื ืืืื ืืืฉื ืืื ืื ืืช ืจืฆืฃ ืืืืืจื ืืืฆืื, ืชืื ืื ืืืืืงืืช ืืืงืฆืืช ืืืฉืืืื ืืืืืง ืืืคืืจื.
ืฉืืืืช ื ืืชืื ืกืืืืืช ืืจืืืืืช ืืืืืืช ืืืจืืืืช ืฆืืงืืืืืืช
ื ืืชืื ืกืืื ืฉื ืชืืื ืืืช COBOL ืชืืื ืืชืจืืื ืงืื ืคืจืืฆืืืจืื ืืืืืืื ืืชืืืืื ืฉื ืืจืืืช ืืงืจื. ืื ืฉืืื ืืฉืืืจืช ืืช ืืจืฃ ืืืืืืงื ืืฆืืจื ืฉืื ื, ืชืื ืืชืืงืืืช ืืืืคื ืฉืื ืืืืฆืืข ืืกืชืขืฃ ืืืชืืืจ ืืืืฉ. ืืืื ืืืืจื ืืื ืืฉืชืืฉืื ืืืืฉืืช ืืฉืืืืืช ืืจืืืืช ืืื ืืืฉืื ืืืืง ืืืืืฉืืช ืืขืช ืืชืืืืืืช ืขื ืืืืืื ื ืฉืืจืืช ืฉื ืงืื ืืืื ืคืจืืื. ืืื ืืงืืช ืืื ื ืขืืช ืืื ื ืืชืื ืืืืกืก ืืจืคืื ืืขื ื ืืชืื ืชืืืืจื ืืืขืงื ืืืจ ืืจืืืช ื ืชืื ืื. ืืชืคืืงื ืืืฉืืืืช ืฉืืื ืืืืื ืืช ืืืกืืก ืืืกืืจืืืืืช ืฉืืคืืฅ, ืืขืจืืช ืกืืืื ืื ืืจืืฆืืฃ ืืืืจื ืืืฆืื.
ืขื ืืื ืฉืืืื ืฉืืืืช ืืื ืืชืื ืฆืื ืืจ ืืืืืืื, ืฆืืืชืื ืืฉืืืื ืชืืื ืืช ืืืืืืช ืืืื ืืืื ืืืจืืืืช ืืฆืืืจืช ืืืืฆื ืืื ืืชืคืฉืืช ืืืขืจืืช. ืืขืื ืฉืืืื ืงืืืืื ืืกืชืืื ืขื ืชื ืื ืกืคืืจื, ืื ืชืืื ืขืืฉืืืืื ืืืืืื ืืคืืกืื ืืื ืืื ืขืืืงืื ืืืชืจ, ืืืืืื ืชืืืืืช ื ืกืชืจืืช ืฉืื ืคืืืช ืืช ืกืคืืจืช ืื ืชืืืื. ืืฉืืืื ืฉื ืืฆืืืช ืืจืคืื ืื ืืชืื ืกืื ืื ืืืคื ืจืฉืืืืช COBOL ืืืืืืืช ืืืืฆืืืื ืืืื ืื ืฉืืืืชืื ืืช ืืืืืช ืืชืืืืงื. ืืคื ืฉืฆืืื ื ื ืืชืื ืงืื ืกืืื ืคืืืฉ ืืขืจืืืช ืืืืจ ืงืืื, ืืืืื ืืืืืง ืฉื ืืืืืงืช ืืงืจื ืืกืคืง ืืช ืื ืจืืืช ืื ืืจืฉืช ืืืืืจื ืืืฆืื ืืืืืืื.
ืื ืืื ืืืฆืืืช ืืจืฃ ืืจืืืช ืืงืจื
ืืจืฃ ืืจืืืช ืืืงืจื (CFG) ื ืืชืจ ืืฉืืื ืื ืคืืฆื ืืืืชืจ ืืืืฉืื ืืืจืืืืช ืฆืืงืืืืืืช. ืืจืฃ ืืจืืืช ืืืงืจื (CFG) ืืืืฆื ืื ืืืืื ืืืืืช ืื ืคืกืงื ืืฆืืืช ืืืืืจ ืืืชื ืืจื ืงืฆืืืช ืืืืืฆืืื ืืขืืจื ืืงืจื. ืขืืืจ COBOL, ืื ืืืื ืืฉืคืื IF, EVALUATE, PERFORM ื-GO TO. ืืืืจ ืื ืืืชื, ืืื ืชื ืืืืฉื ืืช ื ืืกืืช ืืงืืื ืืืืฉืื ืืืจืืืืช ืขื ืืื ืกืคืืจืช ืืงืฆืืืช ืืืฆืืชืื. ื ืืชืื ืืืืกืก CFG ืืกืคืง ืืืืจืืช ืืืืืืืืช, ืืืจืื ืืืืืง ืืืื ืืชืจืืฉืช ืืกืชืขืคืืช ืืืื ืขืืืง ืืื ืืงืื ื ืช.
ื ืืงื ืืืืืื ืืืืืช COBOL:
ืงืจื ืืช ืงืืืฅ ืืืงืื
ืืกืืฃ ืืื "Y" ืืืื EOF
ืกืืฃ ืงืจืืื
ืืฆืข ืขื ืฉ-EOF-FLAG = "Y"
ืื ืกืื ืืงืื = "A"
ืืฆืข ืขืืืื-ืจืืฉืื
ืืืจ
ืืืฆืืข ืจืืฉืื ืืจืืืื
END-IF
ืงืจื ืืช ืงืืืฅ ืืืงืื
ืืกืืฃ ืืื "Y" ืืืื EOF
ืกืืฃ ืงืจืืื
ืืืฆืืข ืกืืื
ืืื, ืื ืชื ืื (IF, ELSE, PERFORM UNTIL ื-AT END) ืืืฆืจ ืงืฆืืืช ื ืืกืคืื. ื-CFG ืืฆืื ื ืงืืืืช ืื ืืกื ืืืฆืืื ืืจืืืืช ืขื ืคื ื ืืืืืืช ืืงืจืืืืช ืงืืฆืื. ืืืื ืขืืืจืื ืขื ืืจืคืื ืืื ืืืืฆืขืืช ืืืืืจืืชืืื ืฉื ืขืืืง ืงืืื ืื ืจืืื ืงืืื ืืื ืืื ืืช ืืช ืื ืื ืชืืืื. ืืกืคืืจื ืืืืืืช ืืฉืงืคืช ืื ืืกืชืขืคืืช ืืืืืช ืืื ืืืืืืช ืืืืจืืช, ืืื ืืื ืืช ืฆืืื ืืืืจืืืืช ืืกืืคื. ืืืืืืืืืฆืื ืฉื CFG ืืกืืืขืช ืืืคืชืืื ืืืชืจ ืืงืืขืื ืฉืืื ืฆืคืืคืืช ืืืกืชืขืคืืช ืืืจืืช ืืกืคื ืฉืืืจื. ืืืฆืื ืืจืคื ืื ืืืคื ืืฉืืื ืืจืืฉืื ื ืฉื ืืงืจืช ืืืืจืืืืช ืืืืื ืชืื ืื ืืืืืจื ืืืฆืื ืืืชืืืฉืจ ืขื ืชืืื ืืช ืฉื ืืฆืื ื- ืืื ืืงืืช ืืืืืืืืืฆืื ืฉื ืงืื.
ื ืืชืื ืขืฅ ืชืืืืจ ืืืคืฉื ืืกืคืืจืช ืฆืืชื ืืืืื
ืขืฅ ืชืืืืจ ืืืคืฉื (AST) ืืืืจ ืืช ืืงืืจ COBOL ืืืื ื ืืืจืจืื ืืืืืฆื ืืฉืคืืื, ืืืืืืื ืืืืืงื ืืงืจื. ืื ืฆืืืช ืืืชื ื ื-AST ืชืืจื ืืืืจืืืืช ืืืืืืช. ืื ืืืื ื-CFGs, ืืืชืืงืืื ืื ืชืืื ืืืฆืืข, ASTs ืืชืืงืืื ืืืื ื ืืงืืืงื, ืื ืฉืืืคืฉืจ ืืื ืชืืื ืืืืืช ืืกืชืขืคืืช ืื ืืืฉืจ ืืืืืงืช ืืืืื ืืฉืชืจืขืช ืขื ืคื ื ืฉืืจืืช ืื ืคืงืืืืช ืืืงืจื ืืจืืืืช.
ืืืืืื, ืืฉืคื EVALUATE ืขื ืืฉืคืื WHEN ืืงืื ื ืื ืืจืืื ืืช ืขืฅ ืืืืืืืช ืืืืคื ืืฉืืขืืชื:
ืืขืจื ื ืืื
ืืืฉืจ ืกืืืืก ืืงืื = "ืคืขืื"
ืืืฆืืข ืชืืืื-ืืืื ื
ืืืฉืจ ืกืืืืก ืืงืื = "ืื ืคืขืื"
ืืฆืข ืืืืขืช ืฉืืืื
ืืืฉืจ ืืืจืื
ืืฆืข ืจืืฉืื ืกืืืืก
ืกืืื ืืขืจืื
ืืืงืจื ืื, ื-AST ืืืื ืฆืืืช ืืืืื ืืื (EVALUATE) ืืฉืืืฉื ืฆืืืชื ืขื ืฃ (ืคืกืืงืืืช WHEN). ืืื ืชื ืืืืื ืืช ืืื ื ืืืืจืืืืช ืขืืืจ ืื ื ืชืื ืขื ืฃ ืืคืฉืจื. ื ืืชืื AST ืืื ืืืืข ืืฉืคื, ืืืืืื ืฉืงืื ืฉืขืืจ ืืจืืื ืืืืฉ, ืคืงืืืืช ืืืงืจื ืื ืกืคืจื ืขืืชืงืื ืืืืืขืื ืื ืืชืื ืืืืคื ืืืื. ืืืืืื ืฉ-AST ืืฉืืจืื ืืืจืจืืื ืชืืืืจืืช, ืื ืืืืืืืืื ืืืืืื ืขืืืง ืืงืจื ืืืืืืื ืงืื ืื ืืืืื.
ืืคืืขื, ื ืืชืื ืืืืกืก AST ืืฉืืื ืืช ืงืืืฆืืช ืืชืคืขืื ืืงืืื ืืืืืืืช (CFGs) ืขื ืืื ืืชืืงืืืช ืืฆืืจื ืืืืืช ืืื ืืกืคืืจืช ื ืชืืืื. ืืื ืืืื ืื ืืืืืช ืฆืคืืคืืช ืืืืืืช, ืืื ืืฉื ื ืฉืงืฉืืจ ืืืง ืืขืืืก ืงืืื ืืืืื ืขื ืฆืืืชื ืชืืืืงื. ืืืฉื ืื ืชืืืืช ืื ืืชืื ืืืืจื ืืืฆืื ืืืื ืืืื ืืืฉืืฉืื ื... ืืขืจืืช ืชืืืืงืช ืงืื, ืืืกืคืง ืืืฆืื ืืืื ื ืฉื ืืืืืงื ืืชืืื ื ืืขืืืงื ืืืชืจ.
ื ืืชืื ืืจืืืช ื ืชืื ืื ืืืืืื ืขื ืคืื ื ืกืชืจืื
ื ืืชืื ืืจืืืช ื ืชืื ืื ืืจืืื ืืช ืื ืืชืื ืืกืืื ืืขืืจ ืืืื ื ืืงืจื ืืคืืจืฉืื ืขื ืืื ืืขืงื ืืืจ ืืืืคื ืฉืื ืืฆืื ื ืชืื ืื ืืฉืคืืขืื ืขื ืืืืืงืช ืืชืืื ืืช. ื-COBOL, ืืืืืืช ืจืืืช ืื ืืจืืืืืช, ืืื ืขืืช ืขื ืืื ืืฉืชื ื ืืื ืื ืืื ืืืงืืืจืื ืฉื ืชื ืืื ืืื ืขื ืืื ืชื ืืื ืืฉืืจืื. ืื ืชื ืืจืืืช ื ืชืื ืื ืขืืงื ืืืจ ืืืืคื ืฉืื ืืฉืชื ืื ืืืืืจืื, ืืฉืชื ืื ืื ืืืงืื ืขื ืคื ื ืคืกืงืืืช ืืจืืืืช ืืื ืืืกืืง ืขื ืคืื ื ืกืชืจืื ืืชืืจืืื ืืืืจืืืืช ืืคืงืืืืืช.
ืืืืืื, ืฉืงืื ืืช ืืืืจืื ืืืืื:
ืืื "N" ืืืื ืืฉืืืื
ืืฆืข ืืืืืช ืงืื
ืื ืืื ืฉืืืื = "Y"
ืืืฆืืข ืฉืืืืช HANDLE
ืืืจ
ืืฆืข ืขืืืื ืงืืืฅ
END-IF
ืืื, ืฉืืจืช VALIDATE-INPUT ืขืฉืืื ืืฉื ืืช ืืช ERROR-FLAG ืืืชืืกืก ืขื ืชื ืืื ืคื ืืืืื ืจืืื, ืืืื ืืืฆืืจ ืืืขืฉื ื ืชืืื ืืกืชืขืคืืช ืฉืืชืืื ืืช ืืืืฆืื ืืช ืืขืืื ืื ืืืฉืคืช ืืฉืืจืืช. ื ืืชืื ืืจืืืช ื ืชืื ืื ืืฉืืืจ ืงืฉืจืื ืืื ืขื ืืื ืื ืืืช ืืจืฃ ืชืืืช ืืฉืชื ื. ืื ืชืืืช ืืฆืืื ืืกืชืขืคืืช ืคืืื ืฆืืืืืช ืืืืฆืืข.
ืื ืชืืื ืกืืืืื ืืชืงืืืื ืืฉืืืื ืืื ืืงื ืื ืขื ืืขืจืื ืกืืืืช, ืืขืืงืืื ืืืจ ืืฆืื ืืฉืชื ืื ืขื ืคื ื ืืฉืคืื PERFORM ื- EVALUATE ืืงืื ื ืื. ืขื ืืื ืืืืื ืชืืืืืช ืขืงืืคืืช, ืืืื ืืืฉืฃ ืืืจืืืืช ืฉื ืืชืื CFG ืื AST ืืืื ืืื ืืคืกืคืก. ืชืืื ืืช ืืื ืืฉืงืคืืช ืืช ืืืฉืื ืงืืจืืฆืืืช ืื ืชืื ืื ืืืฉืืฉืื ื- ืืืืื ืงืืจืืฆืื ืฉื ืืืจืืขืื, ืฉืืื ืงืฉืจืื ื ืกืชืจืื ืื ืืขืื ืืช ืืชื ืืืืช ืืืขืจืืช. ืืืืืจื ืืืฆืื, ืืื ืช ื ืชืืื ืืงืจื ืืื ืื ื ืชืื ืื ืืืื ืืช ืืชืื ืื ืืืืืืช ืฉืืคืืฅ ืืืืืืืช ืฉืงืืืืช ืคืื ืงืฆืืื ืืืช ืืืืจ ืืืืจื.
ืืื ืืงืืช ืื ืืืืืืช ืืชืงืืืืช ืขืืืจ ืืขืจืืืช COBOL ืืืจืืืืช
ืืื ืฉืืขืจืืืช COBOL ืืชืคืชืืืช ืืขืืจ ืืืืืืืื ืืืืืืื ืืกืืืืืช ืืจืืืืช ืชืืื ืืืช, ืืืฉืืื ืืืจืืืืช ืืกืืจืชืืื ืืขืืชืื ืงืจืืืืช ืืืขืืืื ืืขืจืื ืฉื ืืกืืืื ืืืื ื ืืืืืชื. ืืืขืจืืืช ืืงืืืืืืืช ืฉื ืืืื ืคืจืืื, ืฉืืื ืืืคื ืชืช-ืชืืื ืืืช ืืืืืจืืช ืืงืืืืืช ืืื ืืจืืงืฆืื ืืืืฆืขืืช ืกืคืจื ืขืืชืงืื, ืงืื/ืคืื ืฉื ืงืืฆืื ืืืืืจื ื ืชืื ืื ืืฉืืชืคืื, ืืฉ ืื ืชื ืืช ืืืืจืืืืช ืืฆืืงืืืืืืช ืืขืืจ ืืืืืืืช ืฉื ืงืืืฅ ืืืื. ืืื ืืงืืช ื ืืชืื ืกืืื ืืชืงืืืืช ืืจืืืืืช ืืืืืื ืืกืืจืชืืื ืขื ืืื ืฆืืืจื ืฉื ืฉืืืืช ืืจืืืืช ืฉื ืงืฉืจื ืงืื, ืกืืืืืฆืื ืฉื ืืืืืืช ืืงืจื ืืืืืื ืชืื ืืืช ืื ืื-ืืืืจืืช ืืื ืคืืืช ืืช ืืฆืคืืคืืช ืืืืืืช.
ืืื ืืงืืช ืืื ืืืฉืคืืช ืืคืืกืื ืฉืืืืื ืกืื ืืจืืืื ืืชืขืืืื ืืื, ืืืื ืืฉืืืืืช ืชืืื ืืืช ืขื ืงืจืืืืช ืจืงืืจืกืืืืืช, ืฉืจืฉืืจ ืคืกืงืืืช ืชืืืืืช ืืืกืชืขืคืืช ืืื ืืืช ืืจื ืืฉืชื ื ืืื ืจืืฆื. ืืืฉืืื ืขื ืคื ื ืชืืงื ืขืืืืืช ืืืืืื ืืืคืฉืจ ืืฆืืืชื ืืืืจื ืืืฆืื ืืืืืช ืฆืืืืจื ืืงืืืง ืืื ืืื ืืงื ื ืืืื ืืืจืืืื. ื ืจืืืช ืจืืื ืืืชืจ ืื ืชืืืืช ืืจืืฆืืฃ ืืืืืง ืืืชืจ ืฉื ืขืืืื ืืืืฉ, ืืืืืื ืืืฉืจ ืืื ืืฉืืืืช ืืืื ืืืืืืืืืฆืื ืฉื ืชืืืืืช ืืื ืืื ืืืืืืจืื ื-. ืืืืืช xref ืขืืืจ ืืขืจืืืช ืืืืจื ืืืชืขื ืืื ืงืืฉืืจ ืืฉืืืืืช ืืขืื ืืืจืืืืช ืืืืื ืขื ืืคืืช ืชืืืช, ืืจืืื ืื ืืืืืื ืืืืื ืกืืจื ืขืืืคืืืืช ืฉื ืืืืจื ืืืฆืื ืืืืืง ืจื.
ืฆืืืจืช ืืจืคืื ืฉื ืงืจืืื ืขืืืจ ืืืจืืืืช ืืจืืืช ืืืืืืื
ืืกืืืืืช COBOL ืืืืืืช, ืืืจืืืืช ืชืืื ืืช ืืืืืช ืื ืชืืื ืืฉืงืคืช ืืช ืืกืืืื ืืืืืชื ืืืืฆืืข. ืืืฉืจ ืืกืคืจ ืชืช-ืชืืื ืืืช ืงืืจืืืช ืื ืืื, ื ืชืืื ืืืงืจื ืืืฉืืืืื ืฉืืื ืืชืจืืืื ืืืืคื ืืงืกืคืื ื ืฆืืืื. ืฆืืืจืช ืืจืคื ืงืจืืื ืืืฆืจืช ืืืฆืื ืืจืื ืืืืื ืืืชืจ ืขื ืืื ืืืืื ืืจืคื ืืจืืืช ืืงืจื ืืื ืืืืืืืื ืืืืืืจืื. ืื ืฆืืืช ืืืืฆื ืชืืื ืืช ืื ืคืกืงื ื ืคืจืืช, ืืื ืงืฆื ืืฉืงืฃ ืงืจืืื ืื ืชืืืช. ืืืื ื ืืืชืงืื ืืืฉืฃ ืืืจืืืืช ืืจืืช ืืืืงืจื ืฉืืื ื ื ืจืืืช ืื ืืชืื ืฉื ืชืืื ืืช ืืืืืช.
ืืืืืื, ืฉืจืฉืจืช ืฉืืืืช ืืื:
ืชืืื ืืช ืจืืฉืืช.
ืืฆืข ืืืฉืื ืกื ืืื
ืืืฆืืข ืขืืืื ืงืืฆืื
ืงืจืืื ื'ืืืืืช-ืืงืื'
ืงืจืืื 'ืฉืื ืืื'
ืืืืืช-ืืงืื
ืื ืงืื ืืกืืืืก ืื = ืืคืก
ืืฆืข ืจืืฉืื ืฉืืืืืช
END-IF
ื ืจืื ืฉื ืืชื ืื ืื ืืืชื ืืืฉืจ ืืกืชืืืื ืขืืื ืื ืคืจื. ืขื ืืืช, ืืืฉืจ SEND-REPORT ืขืฆืื ืงืืจื ืืฉืชื ืชืช-ืชืืื ืืืช ื ืืกืคืืช, ืืื ืืืช ืืื ืืืฆืขืช ืืืืืืช ืืืชื ืืช, ืืืืจืืืืช ืืืืืืช ืืืื ืืืืืจืืช. ืืจืคื ืงืจืืื ืืฆืืืจืื ืืืฉืคืื ืืช ืืฆืืืื ืืืคืืืช ืืื, ืืขืืืจืื ืืฆืืืชืื ืืืืื ืืืฆื ืืืืืืช ืืืืืืช ืืงืืืืืช ืืชืคืชืืืช ืืืชืืจืื ืืจืืืืงืืื ืืื.
ืื ืชืืื ืกืืืืื ืืืืืื ืื ืืช ืืชืืืืืช ืืืื ืืืจืคืื ืืจืืืื ืขื ืฆืืชืื ืืงืืืืื ืืฆืืข ืืืืืจืช ืืืืจืืืืช. ืืฉืืืื ืขื ื ืชืื ื ืชืืืจืืช ืืฉืืืืฉ, ืฆืืืจืช ืืจืคื ืืงืจืืื ืืืื ืืืืจืื ืืขืื ืืฉืคืขื ืืืืื ืฉืืื ืฉืื ืื ืืืื ืขืืื ืืืฉืคืืข ืขื ืขืฉืจืืช ืืืืืืื ืชืืืืื. ืืชืืื ืืช ืืืืืช ืืืขืงื ืืืจ ืืชืืืช ืืืชืืืจ ื ืืืืื ืืฉืืืืฉ ืืชืืื ืืชืืืืคืืื ืืื ื ืฉืืืืช ื ืกืชืจืืช ืืืื ื ืืืืจื ืืืฆืืืช ืชืืืืืื. ืขื ืืื ืจืืืื ืืขืจืืช ืืืืจืืืืช ืืจืืช ืชืืง ืืขืืืืืช, ืืืฉื ืื ืชืืืืช ืื ืืืื ืืืืฉ ืืืืืื ืืช ืืขืจืืช ืืืืื ืืจืื.
ืกืคืืจืช ื ืชืืืื ืืกืืืืืฆืืืช ืคืจืืกืช ืืืืื
ืืชืื ืื ืืคืจืืฆืืืจืื ืฉื COBOL ืืจืื ืืขืชืื ืงืจืืืืช ืืืืืืงืช ืืฆืืื ืืืืจืช, ืขื ืืืืืืช ืืงืื ื ืืช ืืกืื PERFORM UNTIL, PERFORM VARYING ืื READ AT END ืืฉืืืืืช ืืืืืจืฆืื ืฉื ืื ืชืื ืื. ืืื ืื ืืื ืืจืืื ื ืชืืื ืืงืจื ืืืืืืื ืื ืคื ืืช ืืืืจืืืืช ืืืืคื ืืจืืื, ืืืืืื ืืฉืืืื ืขื ืืขืืจืื ืืืชื ืื ืื ืืืืื ืคื ืืืืื. ืืื ืืงืืช ืกืคืืจืช ื ืชืืืื ืืืืืช ืชืืฆืืืช ืืืืื ืืคืฉืจืืืช ืขื ืืื "ืคืจืืงื" ืกืืืืช ืฉื ืื ืืืืจืฆืื, ืชืื ืืขืจืืช ืืืืคื ืฉืื ืจืฆืคื ืืืืืืช ืืชืจืืืื ืืชืจืืืฉืื ืืขืฉืืื.
ืฉืงืื ืืช ืืืืืื:
ืืฆืข IDX ืืฉืชื ื ื-1 ืขื 1 ืขื ืฉ-IDX ืืขื MAX-COUNT
ืื ืกืื ืืจืฉืืื = "A"
ืืฆืข ืขืืืื-A
ืืืจ
ืื ืกืื ืืจืฉืืื = "B"
ืืฆืข ืขืืืื-B
END-IF
END-IF
ืืืฆืืข ืกืืื
ืืืืจืฆืื ืฉื ืืืืื ืืืืืช ืืืกืืคื ืืกืคืจ ืงืฆืืืช ืืืชื ืื, ืื ืื MAX-COUNT ืืฉืชื ื ืืคื ืงืื, ืงืืืฆืช ืื ืชืืืื ืืืื ืืืืคื ืืืชื ืฆืคืื. ืคืจืืกืช ืืืืื ืกืืืืช ืืขืจืืื ืืช ืกืคืืจืช ืื ืชืืืื ืืืืื ืืขืืืื ืืืื ืืืฆืข ืืช ืืงืื. ืื ืชืืื ืืชืงืืืื ืขืืงืืื ืืืจ ืืืืคื ืฉืื ืืฉืชื ื ืืงืจืช ืืืืื ืืฉื ืื ืืฆื, ืืืกืืงืื ืกืคืืจืืช ืืืืจืฆืื ืืคืงืืืืืืช ืืชืืกืคืืช ืืืจืืืืช ืืชืืืืืช.
ืกืืืืืฆืืืช ืืืืื ืืืื ืื "ืคืืฆืืฆื ื ืชืื", ืฉืืื ืืืืืงื ืืืชื ืืช ืคื ืืืืช ืืฉืชื ื ืืืืคื ืืคืื ืขื ืขืืืง ืืืืืจืฆืื. ืชืืฆืืืช ืืื ืืฉืคืืขืืช ืขื ืืกืืจืืืืืช ืฉืืคืืฅ, ืืืื ืคืืจืืง ืืืืืืช ืืงืื ื ืืช ืืืืืืื ืืืืืืจืืื ืื ืืื ืกืช ืืฆืืืืช ืืืงืืืืช ืืืื ืืช. ืืงืื ืกืคื ืืงืืื ืืืืืื ื ืืืื ื... ืืืคืืืืืืฆืื ืฉื ืืขืืืืช ืืงืื, ืฉืื ืืขืจืื ืืชืืืืช ืืืืืคื ื ืืกืื ืืืื ืจืืฆื. ืขื ืืื ืืืืืช ืืืืื ืืืืจืืืืช ืืคื ื ืืืืืจื ืืืฆืื, ืฆืืืชืื ืืืืืื ืืืืืช ืืืฆืืขืื ืคืืื ืฆืืืืืื ืื ืขืืืกื ืืืืงื ืืืชืื ื ืคืืจืืงืื ืฉืืฉืืจื ืขื ืชืคืงืื ืชืื ืืืขืืจ ืชืงืืจื ืงืืื ืืืืืืช.
ืืืืื ืชืื ืืืช ืืื ื ืืงืจื ืืืืืื ืื ืื-ืชืื ืืืช
ืื ืชืืื ืกืืืืื ืืืฆืืืืื ืืื ืืขื ืืืืื ืชืื ืืืช ืืืืืื ืืขืืจ ืืืืืื ืืกืคืจืืช ืขื ืืื ืืืืื ืชืื ืืืช ืืื ืืืช ืืืชืืืืืช ืขื ืืืจืืืืช ืืืืืืช. ืืืืจืืกืืืงืืช ืืื ืืืคืฉืืช ืฆืืจืืช ืงืื ืืืืจืืช - ืืืื ืฉืจืฉืจืืืช IF ืืงืื ื ืืช ืขืืืง, ืืืืงื PERFORM THRU ืืฉืืืืื, ืื ืงืคืืฆืืช ืืื ืคืกืงืืืช ืื ืงืฉืืจืืช - ืืฉืจ ืื ืืืืช ืกืืืืกืืืช ืืืกืจ ืืฆืืืืช. ืชืืืื ืืืืืื ืืฉืื ืกืจืืงื ืชืืืืจืืช ืขื ืืงืฉืจ ืกืื ืื, ืืืืืื ืื ืชืืฆืืืช ืืืืืืืช ืฉืืืืืช ืืกืื ื ืืช.
ืืืืื ืืืคืืก:
ืื ืกืื ืืืื ื = "DOM"
ืื ืืืืืจ ืืขื ืืืืืื
ืืฆืข ืืืืช ืื ืื
ืืืจ
ืื ืืืืืจ ื ืืื ืืืืื ืืืื
ืืืฆืืข ืฉืืืืช ืืื
END-IF
END-IF
END-IF
ืขืืืง ืงืื ืื ืื ืฉื ืฉืืืฉ ืืืืืืช ืื ืื ืืืจืืืืช ืืืืืจื ืฉื ืืจืืข, ืื ื ืืฉื ืขืืืช ืชืืืืงื ืืืืื ืืืจืื ืืืืืื ืฉืื ืชื ืื ืคื ืืื ืชืืื ืืืงืฉืจ ืืืฆืื ื. ืื ืชืืื ืืืืกืกื ืชืื ืืืช ืืงืฆืื ืืฉืงืื ืขืื ืฉ ืืืื ืื ืืืื, ืืืฉืงืคืื ืืช ืืฉืคืขืชื ืืืืจืืืช ืขื ืืืืืช ืืืืืงื.
ืืืื ืืืืจื ืืื ืืฉืืืื ื ืชืื ืื ืกืืืืกืืืื ืขื ื ืืชืื ืคืืืื ืืืกืืืจืืื ืืื ืืืืืช ืืืื ืฆืืจืืช ืืงืจื ืืืืฆืจืืช ืืจืื ืฉืืืืืช ืืืื ืจืืฆื. ืืชืืฆืืืช ืืืฆืืืช ืืืคืืช ืืื, ืืืืืืฉืืช ื ืงืืืืช ืืืืช ืืื ืืืช. ืืชืืืืืืืื ืื ืืชืืืฉืืช ืขื ืืืืื ืืคืจืืช ืขืืฆืืืืืช ืกืืืืกืืืช, ืฉืื ืืคืืกืื ืืืืจืื ืืืฉืคืื ืืืืฉืืช ืืจืืืืงืืื ืืืช ืขืืืงืืช ืืืชืจ. ืืืืื ืืืงืื ืฉื ืชืื ืืืช ืื ืื-ืืคืืก ืืืคืฉืจ ืืฆืืืชื ืืืืจื ืืืฆืื ืืืื ืืก ืืืื ื ืืจืืืืืฆืื ืฉื ืขืืฆืื ืืชืื ืฆืื ืืจืืช CI/CD, ืืืชืงื ื ืืช ืืืื ื ืืคื ื ืืืขืืจื. ืขื ืืื ืฉืืืื ืฉื ื ืืงืื ืืืจืืืืช ืขื ืืืืื ืชืื ืืืช, ืืจืืื ืื ืืืคืืื ื ืืชืื COBOL ืืืืจ ืงืืื ืืืืงืืจืช ืจืืืงืืืืืช ืืืืืืช ืืื ื ืืชืืฉืืช.
ืืืฉืืช ื ืืชืื ืืืืจืืกืืืืช ืืืฉืืคืจืืช ืืื ื ืืืืืืชืืช
ืืขืื ืฉืืื ืืงืืช ื ืืชืื ืกืืื ืงืืืกืืืช ืืกืชืืืืช ืขื ืืืืืื ืืืจืืื ืืกืืืื ืืืื ืืจืืืช ืืงืจื ืืขืฆื ืชืืืืจ, ืืืฉืืช ืืืืจืืกืืืืช ืืืืฉืืช ืืืื ืขืืช ืขื ืืื ืืื ื ืืืืืืชืืช ืืืกืืคืืช ืชืืื ืืช ืืกืชืืจืืชืืืช ืืืขืจืืช ืืืจืืืืช. ืฉืืืืช ืืื ืืืืืืช ืืืคืืกื ืคืืืื ืืืกืืืจืืื, ืชืืืจืืช ืืกืืืื ืื ืืื ืกืืจืื ืืื ืืื, ืืืืืืช ืงืื ืฉ... ืืชื ืื ืืืืจืื ืื ืืืฉืจ ืืืืื ืืกืืจืชืืื ืืืืืืื ืื. ืื ืืืืื ืงืืจืืฆืืืช ืขืืื ืืช ืืื ืขืืืง ืืืื, ืืชื ืฉืืืช ืืืฉืชื ืื ืืฆืคืืคืืช ืืกืชืขืคืืช, ืฉืืขืชืื ืงืจืืืืช ืืขืืืืช ืขื ืขืืืคืืช ืืื ืืช ืืืขืจืืืช COBOL ืืืืจ ืงืืื.
ืืื ืฉืืืืืจื ืืืฆืื ืืืืฆืช, ืืจืืื ืื ืืฉืชืืฉืื ืืืืืืื ืฉื ืืื ื ืืืืืืชืืช ืืื ืืกืจืืง ืืจืืฉ ืชืืงื ืืืฆืจืื ืืืืจ ืงืืื ืืคื ื ื ืืชืื ืืขืืืง. ืื ืืขื ืืืืจืืกืืืงื ืืื ืืืืื ืืืื ืืืืืืื ืขืฉืืืื ืืืจืื ืืกืคื ืืชืืืืงื, ืืืื ืืืคืืืช ืืช ืชืงืืจืช ืื ืืชืื ืืืืื. ืืฉืืืื ืขื ืืฉืืื ืกืืืืช ืืืืืื ืฉื ืชืืืช, ืื ืืกืคืงืื ืืขืจืื ืืืืืงืช ืืืชืจ ืฉื ืืืืฅ ืืืืืจื ืืืฆืื ืืืืงืฃ ืืืืืงื. ืืืืฉื ืืฉืงืคืช ืืช ืืืฉืืื ืืืืืืื ืืืชืืืจืช ื... ืืืืจืช ืืืืืช ืืงืื, ืฉืื ืืืืืจืืชืื ืืืืื ืืืคืืื ืืช ืงืืืขืช ืืขืืืคืืืืช ืืืืืืืืืช ืขื ืกืื ืืืฆืืขืื ืืืกืืืจืืื ืืืืื ืกืืืื.
ืืืืืื ืฉื ืืืืืช ืืืื ื ืืืืืื ื ืงืืืืช ืืืืช ืฉื ืืืจืืืืช
ืืืืืื ืฉื ืืืืืช ืืืื ื ืฉืืืื ื ืขื ืืขืจืื ื ืชืื ืื ืืืืืื ืฉื COBOL ืืืืืื ืืืืืช ืืืื ืืืืจืืืืช ืชืืื ืืืืื ืขืื ืืคื ื ืืฉืืืช ืื ืืชืื. ืื ืืฉืชืืฉืื ืืืืืื ืืืื ืขืืืง ืืืืื ืืืืฆืข, ืชืืืจืืช ืืืืืช ืืคืชื (IF, PERFORM, EVALUATE) ืืื ืืจืืคืื ืฉื ืืืื ืืื ืืืขืจืื ืฆืคืืคืืช ืืืืืช. ืขื ืืื ืืื ืช ืืืืื ืืื ืืืืืืื ืฉื ืจืืจืกืื ืื ืจืฉืช ื ืืืจืื ืื, ืื ืืืกืืื ืืืืืื ืืกืื ืืืืคื ืืืืืืื ืืืืืืื ืฉืขืฉืืืื ืืืืื ืฆืืืืจื ืืงืืืง ืืื ืืื.
ืืืืืื, ืืืื ืืื ื ืืืืืืชืืช ืขืฉืื ืืืืื ืฉืชืืื ืืืช ืืืืจืืืช ืืืืฉ ืคืงืืืืช PERFORM ืืงืื ื ืืช ืขื ืขืืืื ื ืืืกืื ืขืืืื ืืืคืคืื ืืชืืืืืช ืืขืืชืื ืงืจืืืืช ืขื ืืฉืืื ืืฉืืคืืฅ. ืืขืช ืกืจืืงืช ืงืื ืืืฉ, ืืื ืืืจื ืืืืืืื ืืื ืืืื ืืืชืจ ืืืืืงื. ืกืื ืื ืืืงืื ืื ืืคืืืช ืืช ืืืงืฃ ืื ืืชืื ืชืื ืฉืืืจื ืขื ืืืืง. ืืืืื ืคืฉืืื:
ืืฆืข ืขืจืื ืืชืืืชืืื
ืืืฆืืข ืจืืฉืืื ืชืืืืืื
ืืฆืข ืืืืืช ืคืื
ืืฆืข ืืชืืืช ืืื
ืืฆืข ื ืืงืื
ืืืจืืช ืฉืื ืงืจืืื ื ืจืืืช ืคืฉืืื, ืืืืืช ืืืื ื ืืืื ืจืฆืคืื ืืืืจืื ืขื ืคื ื ืืืืช ืชืืื ืืืช, ืื ืฉืืืืชืช ืขื ืืืจื ืืืจืืืืืช ืฉืืืืืจื ืืช ืืกืืืื ืืชืืืืงื.
ืชืืืืืช ืืื ืืืื ืืช ืืฉืืจืืช ืืืืืืช ืืืืื ืื ืฉื ืืืืจื ืืืฆืื, ืืืฉืืืืืช ืขื ืืืืื ืืืกืืจืืช ืืืืืืืืืฆืื ืฉื ืชืืืืืช ืืืืืงืืช. ืืื ืืงืืช ืืืืื ืืืืืช ืืฉืืฉืืช ื ืืืจืืืืช ื ืืืื ืชืืื ื, ืฉืื ืืืืื ืืชื ืืืืชื ืฆืืคื ืชืงืืจื ืชืคืขืืืืช. ืืคืืื, ืืืืืช ืืืื ื ืืฉืคืจืช ืืช ืื ืืชืื ืืกืืื ืขื ืืื ืืคืืืช ื ืชืื ื ืืืจืืืืช ืืืกืืืจืืื ืืืืืช ืืขืฉืืช, ืื ืฉืืืืื ืฉืชืื ืื ืืืืืจื ืืืฆืื ืืชืืื ืืงืืืขืช ืกืืจื ืขืืืคืืืืช ืืื ืื ื ืชืื ืื.
ืงืจืืืืช ืงืื ืืืืกืกืช NLP ืื ืืงืื ืืื ื
ืขืืืื ืฉืคื ืืืขืืช (NLP) ืืจืืื ืืช ืื ืืชืื ืืขืืจ ืืชืืืืจ ืืื ืืืืื ืืช ืืืืจืืืืช ืืืฉืื ืืช ืฉื ืงืื COBOL. ืืืืืื ืฉ-COBOL ืืื ืืคืืจื ืืืืืื ืขืกืงืืช, ืืืืืื ืฉื NLP ืืืืืื ืืคืจืฉ ืงืจืืืืช ืืืืืืืช ืืื ืืช ืขื ืืื ื ืืชืื ืืกืืืื ืื ืืืืื ืืื ืืฉืคืืื. ืืืืืื ืืื ืืขืจืืืื ืืื ืฉืืืช ืคืกืงืืืช, ืืฆืืจืืช ืืฉืชื ืื ืืืขืจืืช ืืืืืขืืช ืขืืงืืื ืืืจ ืืคืืกืื ืกืื ืืืื ืขืงืืืื, ืืืงืฉืจืื ืื ืกืืืจืืช ืฉืคื ืขื ืืืจืืืืช ืฆืืงืืืืืืช ืืืืื ืืืชืจ.
ืืืืืื, ืชืืืืืช ืคืกืงื ืืื CHK1, CHK2 ื-CHK3 ืืื ื ืืกืคืงืืช ืืฉืืขืืช ืกืื ืืืช, ืืขืื ืฉืืฉืชื ืื ืืื WS-A, WS-B ื-TEMP-X ืืขืืจืคืืื ืืช ืืืืจื. ื ืืงืื NLP ืืขื ืืฉ ืืืกืจ ืขืงืืืืช ืืื ืืืชื ืฉืืืช ืืฉืื ืฉืืื ืืืืืจ ืืช ืืขืืืก ืืงืืื ืืืืื ืืืช ืืกืืืื ืืฉืืืืืช. ืขื ืืื ืืฆืืจืช ืืืงื ืืืฆืื ืฉื ืงืื ืืงืืจ ืืืืืขืืช ืืงืฉืจืืืช, ืืืืื ืืขืจืื ืฆืืื ื ืงืจืืืืช ืืืืืื ืืืื ืืืฉืืฉืื ืื ืืชืื ืชืืขืื.
ืื ืชื ืืืคืืกื ืืืืกืก NLP ืื ืื ืฉืชื ืชืืฆืืืช: ืืื ืงืจืืืืช ืืฆืืื ืงืืืจื ืืืืช. ืืจืืฉืื ื ืืืืืช ืืืืจืืช ืืจืืช ืืฉืืจื, ืืขืื ืฉืืฉื ืืื ืืขืจืืื ืจืฆืืคืืช ืืืืืช ืืื ืืงืืขืื. ืชืืื ืืืช ืขื ืงืืืจื ืืืืช ื ืืืื ืืืืืืช ืืขืชืื ืงืจืืืืช ืฉืื ืืืื ืคืชืืืืืื ืืืงืฉืจ ืื ืืืืืงื ืขืกืงืืช ืืืงืจื ืืขืืจืืช. ืืืฉืจ ืืืืื ืืื ืืฉืืืืื ืขื ืืืจืืืืช ืืื ืืช, ืืชืื ื ื ืืืืจื ืืืฆืื ืืงืืืื ืคืจืกืคืงืืืื ืืคืืื ืื ืขื ืชืืืืงื ืชืืืืจืืช ืืื ืขื ืกืื ืืืช. ืชืืื ื ืจื-ืืืืืช ืื ืืชืืืฉืืช ืขื ืืจื ืกืคืืจืืฆืื ื ืงืืื ืฉื ืงืื, ืฉืื ืชืืื ืืฉืื ื ืืฉืืื ืืช ืืขืืฆืื ืืืืจืืืื. ืืขืจืื ืืืืกืกืช NLP ืืกืคืงืช ืืคืื ืืช ืืืงืืืื ืืืืืืชื ืืช ืืืืจืืืืช ื ืืืจืืช, ืืืืคืืช ื ืืชืื ืกืืื ืื ืืก ืืืืจื ืืืฆืื ืืืืงื ืื ืืฉ.
ืืืืืช ืืืจืืืืช ืกืืื-ืืื ืื ืืืืจืืื
ืืื ืืงืืช ื ืืชืื ืืืืจืืืืืช ืกืืืจืืช ืืช ืืคืขืจ ืืื ืชืืืืืช ืกืืืืืช ืืืชื ืืืืช ืืืื ืจืืฆื ืืืืชื. ืื ืืฉืืืืช ืืืืืช ืืืจืืืืช ืฆืืงืืืืืืช ืขื ืคืจืืคืื ืืื ืื ืืื ืืืืช ืืช ืชืืืจืืช ืืืฆืืข ืืกื ืืคืื ืืกืคืฆืืคืืื ืืคืืขื. ืฉืืืื ืื ืืกืคืง ืืงืฉืจ ืฉืืืืื ืกืืืืื ืืืืจืื ืืื ื ืืืืืื ืืืืื. ืืืืืื, ืชืืื ืืช COBOL ืขืฉืืื ืืืืื ืขืฉืจื ื ืชืืืื ืคืืื ืฆืืืืืื, ืื ื ืชืื ื ืืืฆืืจ ืขืฉืืืื ืืืคืขืื ืจืง ืฉืืืฉื ืืชื ืืื ืจืืืืื. ืืืืืช ืืืืจืืื ืืืืื ืืืืฉ ืืช ืฆืืื ื ืืืืจืืืืช ืขื ืืื ืฉืงืืื ืืกื ืืคืื ืืืชืื ืืชืืืจืืช ืืืืฆืืข ืฉืืื.
ืืืืื ืืื ืืืืืช ืืืืืจ ืฉื ืื ืชื ืกืืื ืขื ืืืฉืืจ ืืืื ืจืืฆื:
ืื ืกืืืืก ืืืงืื = "ืคืขืื"
ืืืฆืืข ืชืืืื-ืืืื ื
ืืืจ
ืืฆืข ืืืื ืช ืืจืืืื
END-IF
ื ืืชืื ืกืืื ืกืืคืจ ืฉื ื ืขื ืคืื, ืื ืืืืื ืืื ืืืช ืขืฉืืื ืืืฉืืฃ ืฉืื ืชืื ืืฉื ื ืืืืฆืข ืจืง ืืืืื ืืื ืืืืงืจืื. ืืื ืชื ืืืืืจืืื ืืชืืื ืืช ืืืืจืืืืช ืืืคืงืืืืืช, ืืืืคืฉืจ ืืฆืืืชืื ืืืงื ืืช ืืืืคืืืืืืฆืื ืืขื ืคืื ืฉืืืฆืื ืืืชื ืืขืชืื ืงืจืืืืช.
ืฉืืื ืื ืืืจืฉืช ืงืืจืืฆืื ืืื ืืืื ืชืืื ืืช, ืืืื ืืื ืจืืฆื ืืขืงืืืช ืืืฆืืข. ืืืื ืืืืจื ืืื ืจืืื ืืฉืืืื ืืืื ืื ืชืื ืืืื ืื ืขื ืกืืจืงื ืืืจืืืืช ืืื ืืืืฆืจ ืืืื ืืืจืืืืช ืืฉืืงืืืื ืืขืืื ืืืืืชื. ืืงืื ืกืคื ืืงืืื ืืงืืจืืฆืื ื ืืืืืืช ืืืฉืืฉืช ื- ืืืืื ืงืืจืืฆืื ืฉื ืืืจืืขืื, ืืืงืฉืจ ืืืฆืืขืื ืฉื ืฆืคื ืืืื ื ืืงืจื ืืกืืกืืื. ื ืืชืื ืืืืจืืื ืืกืคืง ืืืืจืืืื ืืืืจื ืืืฆืื ืคืจืืคืื ืืืจืืืืช ืจืืืืืกืื, ืืืืืื ืฉืืฉืงืขืืช ืฉืื ืื ืคืงืืืจืื ื ืืืืื ืืช ืืืืืืงื ืืขืืช ืืฉืคืขื ืืืืื ืืชืืืจืืช ืืืืื ืืื ืื ืชืืืื ืชืืืืจืืืื.
ืืื ืืงืืช ืืืืืืืืืฆืื ืืืืืื
ื ืืชืื ืกืืื ืืืืฆืจ ื ืชืื ืื ืืกืคืจืืื ืืงืจื ืขืจื, ืื ืืื ืืืืืืืืืฆืื, ืืืื ืืืจืืืืช ื ืืชืจืื ืงืฉืื ืืคืืจืืฉ ืืงื ื ืืืื ืืืื. ืืกืืืืืช COBOL ืืืืืืช, ืืืคื ืืืืืืื ืืงืืืืื ืืื ืืจืืงืฆืื ืืืืฆืขืืช ืืื ื ื ืชืื ืื ืืฉืืชืคืื, ืื ืฉืืืคื ืืช ืื ืืืืื ื ืืจืืืช ืืืื ืืืจืืืืช ืืฆืืืจืช ืืืืฆื ืืื ืืชืคืฉืืช ืขื ืคื ื ืืืขืจืืช. ืืืืืืืืืฆืื ืืชืจืืืช ืืืฆืืื ืื ืืืืืื ืืืืฆืืืื ืืื ืืืืืืืืืื ืืื ืืื ืงืืืช ืืืืืืช ืืืืื ืืืืืจื ืืืฆืื. ืขื ืืื ืืืคืื ืืจืืืช ืืงืจื, ืืืกื ืชืืืช ืื ืชืื ื ืฉืื ืื ืืืกืืืจืืื, ืฆืืืชืื ืืืืืื ืืชืขืืฃ ืืืืจื ืขืืืื ืืืืฉ ืืืืคื ืืืืืืื ืืื ืืืืฆืขืืช ืืืืงื ืืื ืืช.
ืืืืื ืืขืื ืืืคื ืชืืื ืืช ืืืจืืืืช ืืืืืืขืื ืืืืจื ืืืฆืื ืืขืฉื. ืืืืืช ืืืืื ืื ืืืืชืืื ืืืืืืช ืืฆืืืจืื ืืืืืฉืื ืืฉืืืืืช ืืกืืืื ืืืื, ื ืงืืืืช ืืืืช ืืงืื ืืืืืืืื ืืืืจืืื ืืกืคื ืืืืจืืืืช. ืืืืืืืืืฆืืืช ืืื ืืฉืืฉืืช ืื ืืืื ืชืงืฉืืจืช ืืื ืืขืื ืขื ืืื ืืื ืืื ืืื ืืื ืืื, ืืืืฉืจืืช ืขื ืืคืขืจ ืืื ื ืืชืื ืืจืืช ืืงืื ืืืกืืจืืืื ืืจืืช ืืขืกืง. ืืคื ืฉื ืืชื ืืจืืืช ื ืชืจืฉืื ืืจืืืช ืืชืงืืืืชืืฆืืช ืืืื ืชืืื ื ืืืจืืืื ืืืืฆืขืืช ืืงืฉืจ ืืืืชื ืืฉืคืจืช ืืช ืืืื ื ืืืืืฆื ืืช ืชืืืื ืืืืฉืืจ ืฉื ืืืืืจื ืืืฆืื ืืื ืฆืืืชืื.
ืืืืืจืืืช ืืจืืืช ืืงืจื ืืืจืคืื ืฉื ืชืืืช ืืืืชืืช
ืืืืืจืืืช ืืจืืืช ืืงืจื (CFDs) ืืฆืืขืืช ืืช ืืืืืืืืืืืฆืื ืืืฉืืจื ืืืืชืจ ืฉื ืืืจืืืืช ืฆืืงืืืืืืช ืืืขืจืืืช COBOL. ืื ืฆืืืช ืืืืฆื ื ืงืืืช ืืืืื ืื ืคืกืงื, ืืงืฆืืืช ืืฆืืืื ืืขืืจืื ืืืงืจื. ืืืขืจืืืช ืืืืืืช, CFDs ืืฉืืืืื ืืืจืคื ืชืืืช ืืจืืื ืชืืื ืืืช, ืืืืคืฉืจืื ืืฆืืืชืื ืืฆืคืืช ืื ืืฃ ืืืฉืืืื ืฉืืืื ืืืช ืืืช. ืืืืืจืืชืืื ืฉื ืืฉืืื ืืืืืืื ืืงืืฆืื ืชืืื ืืืช ืงืฉืืจืืช ืืคื ืชืืืจืืช ืืื ืืจืืงืฆืื, ืืืืฉืคืื ืฆืคืืคืืช ืชืืืช ืืฆืืืืจื ืืงืืืง ืืื ืืื.
ืืืืืื, ืื ืชื ืขืฉืื ืืืฆืื ืจืฉืช ืฉืื ืฆืืชืื ืืกืืืืื ืืืืจืื ืืืืื ืืื ืืฆืืื ืืืจืืืืช ืืืืื. ืฆืืชืื ืืื ืืืืฆืืื ืืืจื ืืื ืคืกืงืืืช ืขื ืืืืงืื ืืงืื ื ืื ืขืืืง ืฉื IF ืื EVALUATE ืื ืฉืืจืืช ืื ืงืจืืืช ืขื ืืื ืืืืืืื ืจืืื ืืืจืื. ืืงืืจื ืืืืชืืช ืืืคืฉืจืช ืืืื ืืกืื ืืืืื ืืช ืืฆืืชืื ืืืืืืจืื ืืืืชืจ, ืฉืืขืชืื ืงืจืืืืช ืืืืฆืืื ืฉืืจืืช ืืจืืืืืช ืืืืจืฉืืช ืชืื ืื ืืืืจื ืืืฆืื ืงืคืื ื.
ืืชืืื ืืช ืฉืืชืงืืื ืื ืืชืื ืชืืืช ืืงืืื ืืืืืื ืฉืืื, ืืืฉืืฉ ื ืืคื ืืช ืื ืืื ืืฉืืื ืืื, ืฉืื ืืืคืื ืืจืืืืช ืขืืืื ืืืคืฉืจ ืืื ื ืืืฆืช ืืขืจืืืช. ืืื ืืืืืืืืืฆืื ืืืืจื ืืื ืชืืืืื ืื ืืขืืืื ืื ืืืจืืชืืื, ืืืืืจ ืืคืืช ืืื ืฉื ืืืจืืืืช ืืชืคืชืืืช ืืื ืฉืืขืืืื ืืืืฉ ืืชืงืื. ืื ืืกืคืง ืชืฆืืื ืืื ืฉื ืชืงืื ืืช ืืืืืจื ืืืฆืื, ืืืงืฉืจืช ืชืืฆืืืช ื ืืชืื ืกืืื ืขื ืืื ื ืืจื ืืืืชืืืช ืืืจื ืกืคืืจืืฆืื.
ื ืืชืื ืืืืืช ืืืจืืืืช ืืืฉืืืื ืืกืืกืืช
ืืขืืจ ืืชืืื ืืช ืกืืืืืช, ื ืืชืื ืืืืืช ืืืฉืฃ ืืืฆื ืืืืจืืืืช ืืชืคืชืืช ืืืืจื ืืื. ืชืืงื COBOL ืจืืื ืืืืืื ืขืฉืจืืช ืฉื ืื ืฉื ืืืกืืืจืืืช ืฉืื ืืืื, ืฉืื ืขืืืื ืื ืืฆืืืจืื ืืืืืจื ืืืืจืื ืืช ืฆืคืืคืืช ืืืืืืืช. ืขื ืืื ืืขืงื ืืืจ ืืืื ืืืจืืืืช ืืื ืืจืกืืืช ืฉืื ืืช, ืฆืืืชืื ืืืืืื ืืืืืช ืืชื ืืืืืข ืืขืจืืืช ืืคืื ืืฉืืจืืจืืืช. ืืื ืืืืื ืืืืืืืืื ืืืืฆืจืื ืชืจืฉืืืื ืืืืกืกื ืืื ืืืจืืื ืืืฆื ืืืืฆื ืฉืืคืืฅ ืืคืืืชืื ืืช ืืืืจืืืืช ืืืืืืช.
ืงืื ืืืืืื ืืขืจืืช ืืฆืืื ืคืื ื ืกืืช ืฉืื ืืืืจืืืืช ืืืืขื ืืฉืืื ืืฉื ืช 2018 ืขืงื ืชืืกืคืืช ืืืืืงื ืืืจืื ืืืืื ืฉืื ืืืื ืจืืืืืืจืืื. ืืฉืืืืช ืขืจืื ืืกืืก ืืืกืืืจืืื ืืืคืฉืจืช ืืฆืืืชืื ืืืืืื ืืื ืืืจืืืืช ืืืจืืืช (ืืื ืขืช ืขืกืงืืช) ืืืืจืืืืช ืืงืจืืช (ืืื ืืื ื). ืชืืื ืืช ืืื ืื ืืืช ืืกืืจืืืืืช ืืืืจื ืืืฆืื ืขื ืืื ืืืืฉืช ืืืืืืื ืฉืฆืืืจืื ืืืจืืืืช ืืืืคื ืขืงืื ืืืืจ ืื ืืืืืจ ืฉืื ืื.
ืืฉืืืืช ืืกืืก ืื ืืฉืคืืขื ืขื ืืืื ืืืช ืืืืฉื, ืืงืืืขืช ืกืคืื ืืงืืืืื ืืคืืชืื ืขืชืืื. ืืืื ืืงื ืืฉืงืคืช ืืขืจืืช ืืืืืจ ืืืื ืฉื ืืฆืื ื ืขืจื ืชืืืืงืช ืืชืืื ื, ืฉืื ืืชืคืชืืืช ืงืื ืืืขืงื ืืืืืื ืชืืืืงื ืืืืื ืืจืื. ืืืืืจื ืืืฆืื, ืืืืืช ืืื ืืืืืช ืืืง ืืืืื ืืฆืืื ืืืืชืืื, ืืืืคืฉืจืื ืืื ืืืื ืืืขืจืื ืืื ืืืืืืช ืืืืจื ืืืฆืื ืืกืคืงืืช ืคืืฉืื ืืืื ืืืืจื ืืื.
ืืืืืช ืืืืื ืื ืืืืืื ืกืืืื ืื ืืืืืจื ืืืฆืื ืฉื ืกืืจื ืขืืืคืืืืช
ืืืืืืืืืืืฆืื ืืืืขื ืืฉืืื ืืืืืืช ืืืืื ืื ืืืืกืกื ืกืืืื ืื ืืืฉืืืื ืืืืื ืืจืืืื ืืชืฆืืืช ืืืืจื ืืืฆืื ืืืช. ืืืืืช ืืืืื ืื ืืื ืืฉืืืื ืืืจืืืืช ืฆืืงืืืืืืช, ืฆืคืืคืืช ืคืืืื, ืชืืืจืืช ืฉืื ืืืื ืืงืจืืืืืช ืขืกืงืืช ืืชืื ืฆืืื ื ืกืืืื ืืืจืืืื. ืื ืืืืื ืืงืื ืืืจืื ืืฉืืงืื ืืงืืืข ืืช ืกืืจ ืืขืืืคืืืืช ืฉืื ืืขืืืื ืืืืฉ. ืืืืืืช ืืจืื ืืกืืืืื ืชืืื ืืืช ืืจืืืช ืกืืืื ื ืืื, ืืื ืื ื ืืืืื, ืืขืืืจืื ืืฆืืืชืื ืืืงืฆืืช ืชืงืฆืืื ืืืืจื ืืืฆืื ืืืขืืืืช.
ืืืืืื, ืืื ืืืืื ืื ืขืฉืื ืืืฉืืฃ ืื ืืจืืื "ืืืืืช ืืงืื" ืืฉ ืืืจืืืืช ืืื ืื ืืช ืื ืชืืืจืืช ืืืฆืืข ืืืืื ืืืืชืจ, ืื ืฉืืืคื ืืช ืชืืืื ืืขืืืื ืฉืื ืืงืจืืื ืืืชืจ ืืืฉืจ ืืชืืื ืืช ืฉื ืืฆืืช ืืฉืืืืฉ ื ืืืจ ืืืขืืช ืืืจืืืืช ืืืืื ืืืชืจ. ืืืจืื ืืืืืืื ืืืืืกืก ืขื ืกืืืื ืืงืฉืจื ืืืื ืืช ืืคืขืืื ืืืื ืืช ืขื ืืืฉืคืขื ืืขืกืงืืช.
ืืจืืื ืื ืจืืื ืืืืืขืื ืืช ืืืืืช ืืืืืื ืื ืืืื ืืฆืื ืืจืืช CI/CD, ืฉืืื ืคืขืืืืช ืงืื ืืคืขืืืืช ืืืืืืืืช ื ืืชืื ืืืืฉ. ืืืืฉื ืขืืงืืช ืืืจ ืฉืืืืช ืืืืืจื ืืืฆืื ืฉื ืืื ื ืฉื ืจืื ื- ืืืืืขืื ืชืืื ื, ืฉืื ื ืืชืืืื ืืฉืคืืขืื ืขื ืฉืืคืืจ ืืชืืื. ืขื ืืื ืืืืื ืืืืืืืืืฆืื ืืืืืื, ืฆืืืชื ืืืืจื ืืืฆืื ืืืืืืื ืฉื ืืืื ืืืจืืืืช ืืื ื ืืืงืืจืช ืืืืื ืช ืืื ืืืง ืืืชื ื ืคืจื ืืชืืืื ืืื ืืกื, ืืชืืื ืืฉืงืืคืืช ืืืงืืืช ืืืืืืช ืืื ืืืช ื ืชืื ืื ืืืืจื ืื ืืืืืฉ ืืืขืจืืืช ืืืฉื ืืช.
ืฉืืืื ื ืืชืื ืืืจืืืืช ืืฆืื ืืจืืช ืืืืจื ืืืฆืื
ื ืืชืื ืืืจืืืืช ืกืืื ืืืคื ืืขื ืขืจื ืจื ืืืืชืจ ืืืฉืจ ืืื ืืืืืข ืืฉืืจืืช ืืฆื ืจืช ืืืืืจื ืืืฆืื. ืืืงืื ืืืชืืืืก ืืืื ืืื ืชืจืืื ืืืืื ืื ืคืขืื, ืืจืืื ืื ืฆืืคืื ืคื ื ืขืชืื ืืฉืืืื ืืืืืช ืืืจืืืืช ืืืจืืืืช ืขืืืื ืฉื ืืื ืืืจืฆืื ืืืกืืจื ืืชืืฉืืืช (CI/CD). ืื ืืืืื ืฉืื ืฉืื ืื ืงืื, ืฉืืคืืฅ ืื ืืืืจืฆืื ืฉื ืืืืจื ืืืืืช ืืื ืกืื ืืจืืื ืืืืืืงืืืืืื ืฉื ืชืืืืงื ืืืืฆืืขืื. ืขื ืืื ืืืฉืืจ ืกืคื ืืืจืืืืช ืขื ืฉืืื ืืืืืจื ืืืฆืื, ืืจืืื ืื ืืืฆืจืื ืืืืืช ืืฉืื ืืชืคืชืืช ืืืืืคืช ืืืืืช ืืื ืืช ืืงื ื ืืืื ืืืื.
ืืื ืืืจืฆืื ืื ืชืืืืช ืื ืืืืฉื ืืืืืืืช ืืืงืืจืช ืืชืืื ืืืช ืืืืจื ืืืฆืื ืืจืืืืช ืฆืืืชืื. ืืืฉืจ ืื ืืชืื ืคืืขื ืืืืคื ืืืืืืื ืืืืื ืืืฉืช ืงืื ืื ืคืจืืกื, ืกืืืืช ืืจืืืช ืืืจืืืืช ืืงืืืืืช ืืืืืืช ืืืงืื, ืื ืฉื ืื ืข ืืชืืงืื ืืงืจ ืืืืืจ ืืืชืจ. ืืืืืช ืืืืื ืื ืืืืชืืื ืืืชืจืืืช ืืืืืืืืืช ืืกืคืงืื ืฉืงืืคืืช ืื ืืฆืืืชืื ืืื ืืื ืืื ืืื ืืืื ืืืืืจื ืืืฆืื. ืืืกืฆืืคืืื ื ืชืคืขืืืืช ืื ืืฉืงืคืช ืืช ืืชืจืืืช ืืืื ืขืช ืืืืง ืืืงืืืืช ื- ืืืืืืฆืื ืฉื ืืืงืืจืืช ืงืื, ืฉืื ืืืืืืฆืื ืืืืืื ืขืงืืืืช ืืืืืืช ืืขืงื ืืืืจื ืื ืืืืืจ ืฉืืจืืจ.
ืืืืขืช ื ืืชืื ืกืืื ืืืจืืืืช ืขืืืื ืฉื CI/CD
ืืฉืื ืืจืืฉืื ืืืื ืืืจืฆืื ืฉื ืฆืื ืืจืืช ืงืื ืืื ืืืืขืช ืื ืืขื ื ืืชืื ืกืืืืื ืืกืงืจืืคืืื ืฉื ืืืืืืฆืื ืฉื CI/CD. ืคืืืคืืจืืืช ืืืืจื ืืืช ืืื Jenkins ืื GitLab ืืืืืืช ืืืจืืฅ ืื ืชืื COBOL ืืฉืืื ืื ืืื, ืืืืฆืืจ ืืืืืช ืืืจืืืืช ืืืืจ ืื ืืืืื ืงืื ืื ืกืืืืืฆืืืช ืคืจืืกื. ืืืื ืืืช ืืืืกืกืช ืกืฃ ืืกืื ืช ืืืืืืืืช ืื ืืื ืฉืืืจืืช ืืฆืืื ื ืืืจืืืืช ืฆืืงืืืืืืืื ืืืืืจืื ืืจืืฉ, ืื ืฉืื ืืข ืืช ืืืคืชืืื ืืืคื ืืืขืืืช ืืื ืืืช ืืคื ื ืคืจืืกืช ืืืืฆืืจ.
ืืืืืื, ืฆืื ืืจ Jenkins ืขืฉืื ืืืืื ืืช ืืฉืื ืืื:
stage('ื ืืชืื ืืืจืืืืช COBOL') {
ืฆืขืืื {
sh 'runCobolAnalyzer โinput src โoutput reports/complexity.json'
}
}
ืืืื ืฉื ืืฆืจ ืืืืืฉ ืืืืืืื ืขื ืฆืืื ื ืืืจืืืืช ืืขื ืืืืืื ืฉื ืงืืขื, ืืืื 20. ืื ื ืฉืขืจืื ืืืืืจ ืืื ืืืืคืื ืชืืืืืช ืขื ืืื ืื ืืขืช ืืืืืืื ืืื ืื ืื ืืฆืืื ืื ื ืืคืืื ืืืืืืื ืืงืืืืื. ืื ืื ืื ืืฉืื ืืชืืฉื ืื ืืืคื ืืช ื ืืืื ืืืืจืืืืช ืืคืจืงืืืงื ืืืื ืืืช ืืื ืืกืงืืจื ืชืงืืคืชืืช.
ืขื ืืื ืงืืฉืืจ ืชืืฆืืืช ื ืืชืื ืขื ืชืืืืื ืขืืืื ืงืืืืื ืฉื ืืืืงืืช ืืคืจืืกื, ืฆืืืชื ืืืืจื ืืืฆืื ืืงืืืื ื ืจืืืช ืืงืฆื ืืงืฆื ืืืื ืชืงืื ืืช ืืืื ื. ืืชืืืื ืชืืื ืื ืืืขืงื ืืฆืืืจ, ืืืจืื ืืืฆื ืืืืืืช ืฉืืคืืฅ ืืคืืืชืืช ืืช ืืืืจืืืืช ืืืืจื ืืื. ืืื ืขื ืฉืืืื ืฉืืคืืฅ CI/CD, ืืืืืืฆืื ืืืืืื ืฉืชืืืืงื ืืืคืืช ืืืืืื ืืชืืฉืืช ืืื ืืืืฉืื ืฉืืืืจ ืืขืฉื, ืื ืฉืืืืง ืืช ืืฆืืืืช ืืืืืจื ืืืฆืื ืืืืจื ืื ืืืืืจ ืฉืืจืืจ.
ืฉืืืืฉ ืืืืื ืืืจืืืืช ืืฆืืจื ืฉืืคืืฅ ืืืฉื
ืืืืขืช ื ืืชืื ืืืจืืืืช ืืฆืื ืืจืืช ืืืืจื ืืืฆืื ืืืคืฉืจืช ืืืจืืื ืื ืืืืืืจ ืืืืืืฃ ืืืฉื ืืื ื. ืืืงืื ืืืกืชืื ืขื ืืืงืืจืืช ืงืื ืกืืืืืงืืืืืืช, ืฆืืืชืื ืงืืืขืื ืฉืขืจื ืืืืืช ืืืืืื ืืืืืกืกืื ืขื ืกืคื ืืืจืืืืช ืฆืืงืืืืืืื. ืืืืื ืืื ืืืืืืื ืฉืืืืฆื ืืืืืจื ืืืฆืื ืื ืื ืืื ืืื ืืื ื ืืืฉ ืื ืืืฉืจ ืืขืจืืืช ืืืืจ ืงืืื ืืชืคืชืืืช ืืขืืจ ืืจืืืืงืืืจืืช ืขื ื.
ืืืืืื, ืืืื ืืืช ื ืืืื ืืืืจื ืืืฆืื ืขืฉืืื ืืงืืืข ืฉืื ืชืืื ืืช ืขื ืฆืืื ืืืจืืืืช ืืขื 25 ืืืืืช ืืขืืืจ ืืืงืืจืช ืขืืืชืื ืืขืืืื ืืืืฉ ืืืืงื ืืคื ื ืืฉืงืชื. ืืืืื ืืืืืืื ืืืื ืื ืืกืืื ืืช ืืืืจืช ืืกืืืื ืืืืฆืขืืช ืืื ืืืงืืืจืื ืืฆืืขืื ืืืืืคืื ืืฉืืจืืช ืืืืืืช ืืืืืื ืื ืฉื ืงืืืช ืืืืืืช. ืฉืงืืคืืช ืื ืืืฆืจืช ืืืจืืืช ืืฉืืชืคืช ืืื ืืคืชืืื, ืืืจืืืืื ืืื ืืื ืืืืจื ืืืฆืื.
ืืืฉืช ืืืืฉื ืืฉืงืคืช ืืช ืืขืงืจืื ืืช ืืืฉืืฉืื ื ืื ื ืืืื ืกืืืื ืื, ืืืฉืจ ืืืื ืกืืืื ืืืืชืืื ืชืืืืื ืืืงืจื ืชืคืขืืืืช. ืืืื ืืืจืืืืช ืืืคืืื ืืืืง ืืจืืืืช ืืฆืืืช, ืืืืืืืื ืื ืืืืจื ืืืฆืื ืืคืืืชื, ืืื ืืขืืืจื, ืืื ืืื ื. ืขื ืืืื, ืืืฉื ืืืืืกืก ืขื ืืืจืืืืช ืืืืื ืืืืง ืืช ืืฉืืขืช ืืืืืจื ืืืฆืื, ืืืืคืฉืจ ืืืจืืื ืื ืืฉืืืจ ืขื ืชืืืืงื ืื ืืืืจื ืชืืื ืืืช ืืจื ืกืคืืจืืฆืื ืจื ืฉื ืชืืืช.
ืืขืงื ืืชืืื ืืืจ ืืืื ืืืืืช ืืืืืจื ืืืฆืื
ืฉืืืื ื ืืชืื ืืืจืืืืช ืืฆืื ืืจืืช ืืกืคืงื โโืจืฆืืคืื ืืืคืฉืจ ืื ืืืืืช ืืชืืฉื ืืืืืืช ืืืืืช. ืื ืื ืืืช ืงืื ืชืืจืืช ื ืชืื ืื ืืืฉืื ืืืืืจ ื ืืชืืื ืืืืืจื ืืืฆืื, ืืืืคืฉืจืช ืืฆืืืชืื ืื ืืจ ืืช ืืชืคืชืืืช ืืืืจืืืืช ืืื ืืจืกืืืช ืฉืื ืืช. ืืืืื ืืื ืืืคืืื ืืืืื KPI ืฉื ืืืืืจื ืืืฆืื, ืืืงืืฉืจืื ืืฉืืจืืช ืืืืืืช ืืืืื ืื ืฉื ืืืืืช, ืืืฆืืขืื ืื ืืืื ืกืืืื ืื.
ืืืืืื, ืืืืืช ืฉืืืขืืื ืขืฉืืืื ืืืจืืืช ืฉืืืืจืืืืช ืืืืืฆืขืช ืืื ืชืืื ืืืช COBOL ืืจืื ื-18 ื-12 ืืืืจ ืฉืืคืืฅ ืืืืงื, ืืขืื ืฉืฉืืขืืจื ืืคืืืื ืืจืื ื-30 ืืืื. ืืชืื ืื ืืกืคืง ืืืืื ืงืื ืงืจืืืช ืืื ืฉืฉืืคืืจ ืืื ื ืื ืื ืืชืจืื ืืช ืชืคืขืืืืื ืืืืืื. ืืชืจ ืขื ืื, ืืืืืช ืืืืืช ืืืืืืืืื ืืืืืื ืืืืืช ืืืื ืจืืืืื ืฆืคืืืื ืื ืกืืื, ืื ืฉืืคืขืื ืคืขืืื ืืื ืขืช ืืืงืืืช.
ืืขืงื ืจืฆืืฃ ืืื ืืชืืืฉื ืขื ืืืื ืืืฆืืขื ืชืืื ื, ืฉืื ื ืืืืจ ืืจืื ืืืื ืืืืช ืืช ืชืืฆืืืช ืืืืืจื ืืืฆืื. ืืืฉืจ ืืื ืืฉืืื ืืืขืจืืืช ืืืืื ืืจืืื ืืืช, ื ืืชืื ืืืจืืืืช ืืชืคืชื ืืืื ืืื ื ืืืืื ืืืฆืืขืื ืืกืืจืืื ืฉื ืืืืจื ืืืฆืื. ืืืืืช ืืชืืฉื ืืืืื ืฉืืชืงืืืืช ืืืืืจื ืืืฆืื ืชืืฉืืจ ืฉืงืืคื, ืืืืื ืืชืืืืช ืืช ืืขืื ืืืชืคืชืืืช ืืืจืืืืงืืื ืืช ืฉื ืืืจืืื.
ืืกืืจืืืืืช ืฉืืคืืฅ ืืืืืื COBOL ืืืจืืืื
ืฆืืฆืื ืืืืจืืืืช ืืฆืืงืืืืืืช ืืื ื ืจืง ืขื ืืื ืฉื ืืกืจืช ืงืื ืืืืชืจ. ืืืืืจื ืืืฆืื ืฉื COBOL, ืจืืคืงืืืจืื ื ืืืจืฉ ืืืืื ืืื ืฉืืืืจ ืคืื ืงืฆืืื ืื ืืืื ืืืืจืืช ืืืจืืืืืช. ืื ืคืขืืืช ืจืืคืงืืืจืื ื ืืืืืช ืืฉืืืจ ืขื ืฉืืืืช ืืืืืืงื ืืขืกืงืืช ืชืื ืคืืฉืื ืืจืืืช ืืืงืจื, ืืืขืืจ ืขืืืง ืืชืืืช ืืฉืืคืืจ ืืืืืช ืืืืืงื ืืืืืืืจืืช. ืืืืืื ืฉืืืฉืืื COBOL ืืืืจ ืงืืื ืงืฉืืจืื ืืขืชืื ืงืจืืืืช ืขืืืงืืช ืืืขืจืืืช ืืืฆืื ืืืช, ืจืืคืงืืืจืื ื ืืขืื ืืืื ืืืืืช ืื ืืืจืืจืื ืืื ืืกืืจืืื, ืืื ืื ืขื ืืื ืชืืฆืืืช ื ืืชืื ืืจืืจืืช ืืื ืขื ืืื ืืื ืืืืืฆืื.
ื ืืชืื ืกืืื ืืกืคืง ืืช ืืืกืืก ืืืืืื ืืืื ืืงืืขื ืงืื ืืฉ ืืืจืื ืืืืฉ ืืืืฆื. ืืืืืืื ืืขืื ืืืจืืืืช ืืืืื ืืืืืื ืืขืชืื ืงืจืืืืช ืชื ืื ืื ืืื ืืงืื ื ืื, ืฉืจืฉืจืืืช ืคืจืืฆืืืจืืืืช ืืจืืืืช ืืืขืืจืืช ืืงืจื ืืืคืคืืช. ืืืืฆืขืืช ืคืืจืืง ืืืืงื, ื ืจืืื ืืกืชืขืคืืช ืืฉืืืืฉ ืืกืืจืืื ืืืืืืืจืืืฆืื ืฉื ืชืช-ืชืืื ืืืช, ื ืืชื ืืืคืื ืืื ืื ืืื ืืจืืืืื ื ืงืืื ืื ืืชื ืื ืืชืืืืงื. ืืชืืืื ืืฉืงืฃ ืืช ืืขืงืจืื ืืช ืืืชืืืจืื ื ืืคืก ืืื ืืฉืืชื ืืืืฉ, ืืืฉืจ ืฉืื ืืืื ืืืจืืชืืื ืืืคืืืื ืืืืืืื ืืืฉืืืืช ืขืกืงืืช ืืืืื ืืืจื ืกืคืืจืืฆืื.
ืคืืจืืง ืืืืืืจื ืืืืืืฅ ืคืกืงืืืช
ืืืช ืืืจืืื ืืืขืืืืช ืืืืชืจ ืืืคืืืช ืืช ืืืืจืืืืช ืืชืืื ืืืช COBOL ืืื ืืคืจืง ืคืกืงืืืช ืืืืืืช ืืืืืืืื ืงืื ืื ืืืชืจ, ืกืคืฆืืคืืื ืืคืื ืงืฆืื. ืื ืืืืื ืฉืืืืฅ ืฆืจืื ืืืคื ืืืืจืืืช ืืืืืช ืืืช, ืืืืืืืจ ืชืืฆืื ืฆืคืืื ืืงืืจื ืฉืื. ืืืฉื ืื ืืืืืืช ืืช ืืืืืงืช ืืืกืชืขืคืืช, ืืืืขืจืช ืืช ืืกืคืจ ืืืืืืืช ืืื ืืืืื ืืืืคืฉืจืช ืืงืจืช ืืืจืืืืช ืืืืืงืช ืืืชืจ.
ืฉืงืื ืืช ืืืืืื ืืืื ืฉื ืงืื ืคืจืืฆืืืจืื ืืืืจ ืงืืื:
ืื ืกืื ืืืื ื = "ืืงืืื"
ืืฆืข CALC-DOM-TAX
ืืฆืข ืืืืืช ื ืชืื ืื
ืืืฆืืข ืขืืืื ืงืืฆืื
ืืืจ
ืื ืกืื ืืืื ื = "ืืืฆืื"
ืืฆืข ืืืฉืื ืืก ืืืฆืื
ืืฆืข ืฉืืืืช ืืกืืืื
ืืืฆืืข ืขืืืื ืงืืฆืื
END-IF
END-IF
ืืืืง ืื ืืืื ืืกืคืจ ืชืืืื ืืืจืืืช ืฉืืืืื ืื ืืื - ืืืฉืื ืืก, ืืืืืช ืืขืืืื ื ืงืืฆืื. ืคืืจืืง ืืืืืืจื ืืคืจืื ืืฉืืืืช ืืื ืืชืช-ืชืืื ืืืช ืขืฆืืืืืช, ืฉืื ืืืช ืืื ืฉืืืจืช ืขื ืืจืืืช ืืงืจื ืืฉืื. ืืืืจ ืจืืคืงืืืจืื ื, ืืชืืื ืืช ืืจืืฉืืช ืืืฆืขืช ืจืง ืชืืืืจ, ืืขืื ืฉืชืชื-ืชืืื ืืืช ืืืืืืช ืืืืืงื ืืืืืืช.
ืืื ื ืืชืื ืกืืื ืืืืชืื ืืช ืืฆืืืช ืืคืืจืืง ืขื ืืื ืืฉืืืืช ืฆืืื ื ืืืจืืืืช ืืคื ื ืืืืจื ืขืืืื ืืืืฉ. ืืืืจื ืืื ืืืืืื ืฉืื ืชืช-ืชืืื ืืช ืฉืืืจืช ืขื ืฆืืื ืืจ-ื ืืืื (ืืชืืช ื-10, ืืืืคื ืืืืืืื). ืืื ืืงื ืื ืืชืืืฉืืช ืขื ืืกืืจืืืืืช ืืจืืื ืืืืฉ ืืืืืืจืืืช ืืืืฆืืืช ื ืฉืืคืืฅ ืืืงืจื-ืฉืืจืืชืื, ืฉืื ืืคืจืืช ืคืื ืงืฆืืื ืืืืช ืืฉืคืจืช ืืช ืืืืืช ืืชืืืืงื ืืืช ืืืืืช ืืืจืืื ืืืืื ืืจืื.
ืืืืคืช ืชื ืื ืืงืื ื ืื ืืืขืจืืืช ืืืื ืืช
ืืฉืคืื IF ืืงืื ื ืื ืขืืืง ื ืืชืจืื ืืื ืืชืืจืืื ืืขืืงืจืืื ืืืืจืืืืช ืฆืืงืืืืืืช ืืืืื ื-COBOL. ืืืืคืชื ืืืฉืคืื EVALUATE ืืืื ืื ืื ืืืืืืืช ืืืืื ืืคืฉืืช ืืช ืืจืืืช ืืืงืจื ืขื ืืื ืฆืืฆืื ืขื ืคืื ืืจืืืื ืืืื ืื ืืจืื ืืืช. ืืจื ืกืคืืจืืฆืื ืื ืื ืืืืืจื ืืช ืืืืืืงื ืืื ืืคืืืชื ืืช ืืกืคืจ ื ืชืืื ืืืืืื, ืืืื ืืืจืืื ืืืืคื ืืฉืืจ ืืช ืืืื ืืืืจืืืืช.
ืืืืื ืืชืื ืืช ืืืืจ ืงืืื:
ืื ืกืื ืืงืื = "A"
ืื ืืืืจ = "ืื ืจืืืื ืื"
ืืฆืข ืืืฉืื-ืืืืื
ืืืจ
ืืฆืข ืืจืืืช ืืื
END-IF
ืืืจ
ืื ืกืื ืืงืื = "B"
ืืฆืข ืืช ืืืืช ืืืืืื ืฉื ALT
END-IF
END-IF
ืืืืจ ืขืืืื ืืืืฉ:
ืืขืจื ื ืืื
ืืืฉืจ ืกืื ืืงืื = "A" ืืืืืจ = "ืื ืจืืืื ืื"
ืืฆืข ืืืฉืื-ืืืืื
ืืืฉืจ ืกืื ืืงืื = "A" ืืืืืจ ืื = "ืื ืืืื"
ืืฆืข ืืจืืืช ืืื
ืืืฉืจ ืกืื ืืงืื = "B"
ืืฆืข ืืช ืืืืช ืืืืืื ืฉื ALT
ืืืฉืจ ืืืจืื
ืืฆืข ืคืขืืืช ืืจืืจืช ืืืื
ืกืืื ืืขืจืื
ืืืื ื ืืืืืืฉ ืืกืืจ ืขื ืคืื ืืงืื ื ืื ืืืืื ืืช ืืืืืืงื ืืืื ื ืืืื. ืื ืชื ืืจืื ืืช ืืกืืืืืืืช ืืฆืืงืืืืืืช ืืืคืืชืช ืืืกืคืจ ื ืงืืืืช, ืืืชืืืงืื ืืืืืื ืืขืช ืืคืจืฉ ืืช ืชืืฆืืืช ืืืืืืืช ืืฆืืจื ืืื ืืืืืืืืืช ืืืชืจ.
ืฉืืื ืื ืืฉืคืจืช ืืช ืืืืืช ืืชืืืืงื ืืืื ืืฉื ืืช ืืช ืืืชื ืืืืช ืืืชืืืฉืืช ืขื ืืกืืจืืืืืช ืฉืืคืืจ ืืงืจืืืืช ืฉื ืืื ื ื ืืืคืื ืืฉืชื ืื ืืืฉืืขืืชืืืฉืจ ืื ืืืืฉืืืช ืืืืคื ืฉืืืชื, ืืขืจืืืช ืืืื ืืช ืืฉืืฉืืช ืืืงืืืงืช ืืืืจื ืืืฆืื ืืขืืช ืกืืืื ื ืืื ืื ืืขืืช ืืฉืคืขื, ืืืืื ืืช ืืช ืืืืืงืช COBOL ืืืืจื ืืืืืจืช ืืืชืจ ืืื ืืขื ืืืืื ืื ืฉืืจืืชืื ืืืืกืกื API.
ืฉืื ืื ืคืงืืืจืื ื ืฉื ืืจืืืช ืืืงืจื ืืืคืืชืช ืฉืจืฉืืจ ืชืืืืืช
ืืื ื ืืจืืืช ืืงืจื ืฉื COBOL ืืืื PERFORM THRU, GO TO ืืฉืจืฉืจืืืช ืคืกืงืืืช ืืฉืืชืคืืช ืื ืืงืืจืืช ืืฉืืขืืชืืื ืืืืจืืืืช ื ืกืชืจืช. ืื ืืืฆืจืื ื ืชืืื ืืืฆืืข ืื ืืื ืืืจืืื ืืืกืืืื ื ืืคืื ืฉืืืืืช ืืืืืงืืช. ืขืืืื ืืืืฉ ืฉื ืืื ืื ืืื ืืืจืฉ ืืจืืื ืืืืฉ ืฉื ืืขืืจืืช ืืงืจื ืืฉืืจืืช ืืคืืจืฉืืช, ืืขืืืช ืื ืืกื ืืืืื ืืืฆืืื ืืืืื. ืืื ื ืืชืื ืกืืืืื ืืืืืื ืืขืงืื ืืืจ ืชืืืืืช ืืงืจื ืืืืืืืฅ โโืขื ื ืงืืืืช ืขืฆืืจื ืืืคืืืืืืืช ืืืคืจืืช ืืืืืงื.
ืืืืื ืืฉืจืฉืืจ ืืืจืื:
ืืืฆืืข ืชืืืื-ืืืื ื ืืจื ืขืืืื ืกืืืืกืืืงืืช
...
ืชืืืื-ืืืื ื.
ืืฆืข ืืืืืช ืืืื ื
ืขืืืื ืกืืืืกืืืงืืช.
ืืืกืฃ 1 ืืกืคืืจืช ืืืื ืืช
ืขืืืจ ืืกืืฃ ืืชืืืื
ืืืฉื ืืืืืฉืช:
ืืืฆืืข ืชืืืื-ืืืื ื
ืืฆืข ืขืืืื ืกืืืืกืืืงืืช
ืึฐืฆึดืืึธื.
ืืืืฉืื
ืืื, ืจืฆืฃ ืืืงืจื ืืืคื ืฆืคืื ืืืืืืืจื, ืชืื ืืืืื ืงืคืืฆืืช ืืจืืืืืช. ืฉืจืฉืืจ ืชืืืืืช ืืืืืฃ ืืงืจืืืืช ืืฉืืจืืช, ืื ืฉืืคืืืช ืื ืืช ืืืืจืืืืช ืืื ืืช ืืกืืืื ืืชืืืืงื.
ืืืืจืืช ืืื ืืช ืื ืืฉืคืจืช ืื ืืช ืืืืง ืืื ืชื ืืกืืื, ืืืืืื ืฉื ืชืืื ืืืงืจื ืืืคืืื ืงืืื ืืืชืจ ืืืืคืื. ืืชืืฆืื ืืฉืงืคืช ืืช ืขืงืจืื ืืช ืคืืฉืื ืืชืืืช ืฉื ืืฆืื ื ืืืฆื ืืืชืืืื ืขื ืฉืืคืืฅ ืืกื ื ืชืื ืื, ืืืฉืจ ืจืืฆืืฃ ืืคืืจืฉ ืืื ืข ืืฉืืื ืืืืจืืื. ืืืืฆืขืืช ืืจืืื ืืืืฉ ืืืืฉืืข ืฉื ืืจืืื, ืฆืืืชื ืืืืจื ืืืฆืื ืืืืืื ืืืื ืืช ืืื ืืืืกืืืื ืืขืงืฉื ืืื ืืืืชืจ ืืืจื ืกืคืืจืืฆืื ืฉื COBOL: ื ืืืื ืคืจืืฆืืืจืื ืืืชื ืฆืคืื.
ืืืืืช ืืืฉืคืขื ืืขืกืงืืช ืฉื ืืคืืชืช ืืืืจืืืืช
ืืคืืชืช ืืืืจืืืืช ืืฆืืงืืืืืืช ืืืขืจืืืช COBOL ืขืืฉื ืืืชืจ ืืคืืฉืื ืงืื ืืืงืืจ. ืืื ืืกืคืงืช ืชืืฆืืืช ืขืกืงืืืช ืืืืืืช ืืืฉืคืืขืืช ืืฉืืจืืช ืขื ืืืืจ ืืืฉืงืขื (ROI) ืฉื ืืืืืจื ืืืฆืื, ืืกืืืื ืืชืคืขืืื ืืืฆืืืืช ืืืขืจืืช. ืื ืืคืืชื ืืืืจืืืืช ืืชืืจืืืช ืืคืืืช ืืืืืจื ืืืืงื, ืืื ืช ืงืื ืืืืจื ืืืชืจ ืืืกืชืืจืืช ื ืืืื ืืืชืจ ืืคืืืื. ืืืฉืจ ืฉืืคืืจืื ืืื ืืฉืืืืื ืขื ืคื ื ืืืืช ืชืืื ืืืช, ืื ืืืืฆืจืื ืืืกืืื ืืืืชื ืื ืืขืืืืืช ืืืืืจื ืืืฆืื ืืื ืืชืืืืงื ืืฉืืืคืช.
ืืคืืชืช ืืืืจืืืืช ืืฉืคืจืช ืื ืืช ืืืืืฉืืช ืฉื ืืืจืืื ืขื ืืื ืงืืฆืืจ ืืืื ืื ืืจืฉ ืืืืฉืื ืฉืื ืืืื ืขืกืงืืื. ืืขืจืืืช ืืืืจ ืงืืื ืืขืืืช ืืืจืืืืช ื ืืืื ืืืชืจ ืชืืืืืช ืืืชืืื ืืืืจื ืืืชืจ ืืชืงื ืืช ืืชืคืชืืืช, ืืจืืฉืืช ืฉืืง ืืืื ืืืจืฆืืืช ืืื ืืืืืืืช. ืืฉืืคืืจ ืืื ื ืจืง ืืื ื ืืื ืื ืืกืืจืืื: ืืขืจืืืช ืืืคืืืช ืืงืืืช ืืืชืจ ืืืืงืืจืช, ื ืืืื ืืืจืืื. ืงืฉืจ ืื ืืื ืืืืืช ืืงืื ืืชืืืืชืืืช ืขืกืงืืช ืชืืื ืืช ืืืจืื ืืืฆืืื ืฉื ืืืืืจื ืืืฆืื ืฉื ืืงืจื ื... ืืืืจื ืืืฆืื ืฉื ืืคืืืงืฆืืืช, ืฉืื ืฉืงืืคืืช ืืื ืืช ืื ืืขื ืืืกื ืืืืื ืืจืื ืืืืืืฉ ืขืจื.
ืืืืืช ืืืืจ ืืฉืงืขื (ROI) ืืืฉืงืขืืช ืขืืืื ืืืืฉ
ืืจืืื ืื ืจืืืื ืืขืชืื ืงืจืืืืช ืืืืจื ืืืฆืื ืืืจืื ืขืืืช, ืื ืืคืืชืช ืืืจืืืืช ืืืื ืืช ืืกืคืงืช ืชืฉืืื ืืกืคืืช ืืฉืืจื. ืขื ืืื ืืคืืชืช ืืกืคืจ ื ืชืืื ืืืืฆืืข ืืฉืืคืืจ ืืืืืช ืืชืืืืงื, ืื ืืืืื ืฉืขืืจ ืฉืืคืืฅ ืืคืืืช ืื ืืช ืขืืืืืช ืืืืืงื ืืืืื ืงืฆืจ ืืื ืืช ืืืฆืืืช ืชืืงืื ืืคืืืื ืืืืื ืืจืื. ืคืืืคืืจืืืช ื ืืชืื ืกืืื ืืืคืฉืจืืช ืืฆืืืชืื ืืขืงืื ืืืจ ืจืืืื ืืขืืืืช ืืืืืื ืืคื ื ืืืืจื ืฉืืคืืฅ, ืืืืฆืจืืช ืจืืืืช ืืืืืืก ืืืืจ ืืฉืงืขื (ROI).
ืืืืืื, ืื ืืืืจืืืืช ืืืืืฆืขืช ืืื ืชืืื ืืช ืืืจืืช ื-25 ื-12, ืฆืคืืคืืช ืืคืืืื ืืืืื ืืจืืช ืขื 40 ืืืื, ืืขืื ืฉืืืืฅ ืืืืงืืช ืืจืืจืกืื ืขืฉืื ืืจืืช ื-30 ืืืื. ืืืฉืจ ืชืืฆืืืช ืืื ืืืืคืืืช ืขื ืคื ื ืชืืง ืฉื ืืืคื ืืืืืื COBOL, ืืืืกืืื ืืืื ืืืืืข ืืืืืืื ืื ืืชืงืฆืืื ืชืืืืงื ืฉื ืชืืื. ืื ืืกืฃ, ืคืืืช ื ืชืืื ืืืืืงื ืคืืจืืฉื ืคืืืช ืืงืจื ืืืืงื, ืื ืฉืืงืฆืจ ืืช ืืืืืจื ืืฉืืจืืจ.
ืืืืื ืืืืืืื ืืฉืื ืืืฆืืื ืืื ืืืืืืช ืืืืื ืื ืฉื ืืืืจื ืืืฆืื, ืืืืื ืื ืืืืจ ืืขืืืืช ืขืืืช ืฉื ืจืื ื ืขืืืช ืืขืืืช ืืืืืชืืืฉื ืื, ืืืืืกืกืช ืขื ื ืชืื ืื, ืืืคืฉืจืช ืืื ืืืื ืืืขืจืื ืืช ืชืืฆืืืช ืืืืืจื ืืืฆืื ืื ืจืง ืืคื ืืื ื ืืจื ืืืฉืืื, ืืื ืื ืืคื ืชืืขืืช ืืืืืืช ืืชืืฉืืช. ืืคืืื, ืืคืืชืช ืืืืจืืืืช ืืืคืืช ืืื ืืฃ ืืืืื ืืืื ืืชืื ืชืืง ืืืืืจื ืืืฆืื ืืื ืืืคืฉืื ืืื ืืช.
ืฆืืฆืื ืกืืืื ืื ืชืคืขืืืืื ืืจืืืืืืจืืื
ืืชืขืฉืืืช ืืืกืืจืืช ืืื ืื ืงืืืช, ืืืืื ืืืจืืืืช, ืืืจืืืืช ืงืื ืืืืื ืืกืชืืจื ืืขืชืื ืงืจืืืืช ืคืืืขืืืืช ืืชืืืืืช. ืืจืืืืช ืืืืืืช ืืืจืืืืช ืืงืฉืืช ืขื ืืขืงื ืืืจ ืฉืืฉืืช ื ืชืื ืื, ืืืืืช ืืืื ืขืกืงืืื ืื ืืืืืช ืขืงืืืืช ืจืืืืืืจืืช. ืขื ืืื ืคืืฉืื ืืจืืืช ืืืงืจื ืืืคืืืช ืืืืืงืช ืืืืืืืช ืืืคืืจืฉืช, ืฆืืืชื ืืืืจื ืืืฆืื ืืคืืืชืื ืื ืืช ื ืื ืืืืงืืจืช ืืื ืืช ืืกืืืจืืช ืืืฉื ืืชืืืืืช.
ืงืื ืืืฉืืื ืืขืจืืช ืขืืืื ืชืืืขืืช COBOL ืฉืื ืืฉืคืื EVALUATE ืืงืื ื ืื ืงืืืขืื ืืืืืช. ืืืฉืจ ืืื ืื ืืื ืฉืืืืื ืืืชืืขืืื ืืืืฆืขืืช ื ืืชืื ืกืืื, ืฆืืืชื ืืืงืืจืช ืืืืืื ืืขืงืื ืืืจ ืืงืืจ ืื ืืื, ืืืื ืืฉืคืจ ืืช ืืฉืงืืคืืช. ื ืชืืื ืืงืจื ืคืฉืืืื ืืืชืจ ืื ืืงืืื ืขื ืืืืืช ืคืืืื ืืืืื ืืืืงืืช ืืกืืื.
ืฉืืคืืจืื ืืื ืืชืืจืืืื ืืฉืืจืืช ืืืฉืืคื ื ืืืื ืืืชืจ ืืกืืืื ืืืืืฉืืจืื ืจืืืืืืจืืื ืืืืจืื ืืืชืจ. ืืืืฉื ืืฉืงืคืช ืืช ืืกืืจืืืืืช ืืืืฉื ืฉื ืืื ื ื ืื ื ืืืื ืกืืืื ืื, ืฉืื ื ืจืืืช ืืืืืคื ืืช ืืืกืจ ืืืืืืืช ืืืกืืก ืืืืืืช ืชืืืืืช. ืืื, ืืคืืชืช ืืืจืืืืช ืืื ื ืจืง ืฉืืคืืจ ืงืื - ืืืื ืืืจื ืืืคืฉืจ ืชืืืืืช ืืืื ืขื ืืฉืงืขืืช ืืืืจื ืืืฆืื ืืคื ื ืงืฉืืื ืืฉืคืืืื ืืชืคืขืืืืื.
ืืืฆืช ืืืืืจื ืืืืจื ืืืฆืื ืืืืฆืขืืช ืคืฉืืืช ืืื ืืช
ืืคืืชืช ืืืืจืืืืช ืืฉืคืืขื ืืฉืืจืืช ืขื ืืืืจืืช ืืืืืจื ืืืฆืื ืขื ืืื ืืคืืชืช ืชืืืช ืืืืืช ืืืืกืืืื ืงืืื ืืืืืืื ืืืืื ืืืจื ืกืคืืจืืฆืื. ืืืืืืื ืคืฉืืืื ืืืจืฉืื ืคืืืช ืื ืืกื ืืืืืจ, ืื ืฉืืคืืืช ืืช ืืืื ืืืจืืฉ ืืืืคืื ืืืืืงื ืงืืืืช ืืืืื ืช ืชืืื ืืืช ืืืืจื. ืืืฆื ืื ืืขืืช ืขืจื ืจื ืืืืืื ืืชืืื ืืืช ืืืืจื ืืืฆืื ืืืืจืืืืืช ืืืฉืืืืช ืจืืคืืืคืืจืื ืืืืฉ ืขื ืจืืคืงืืืจืื ื.
ืืืืืื, ืคืจืืืงื ืืืืจื ืืืฆืื ืฉื ืืืงืืืื ืืงืฆืื ืฉืืื 1,000 ืืืืืื COBOL ืืฆื ืื ืคืืฉืื ืฉื 20 ืืืื ืืืจืืืืื ืืืืจืืืื ืืืืชืจ ืืคืืืช ืืช ืืื ืืืขืืจื ืืืืื ื-35 ืืืื. ืืืืืงื ืืขืืื ืืคืฉืจื ืืืืืจืื ืืืืืืืืื ืืืฆืข ืคืขืืืืช ืืืืืงืืช ืืืชืจ ืืืคืฉืจื ืืฆืืืชื ืืื ืืืจืฆืื ืืชืื ื ืืืฉืงื API ืขื ืคืืืช ืฉืืืืืช ืชืจืืื.
ืืืฆื ืื ืืชืืืฉืืช ืขื ืืืืืช ืฉืืคืืจ ืืืจืืืืช ืฉื ืืงืจื ื ืืืืจื ืืืฆืื ืฉื ืคืืืคืืจืืช ื ืชืื ืื, ืฉืื ืคืืฉืื ืื ืืข ืืช ืืชืืืื ืืชืคืขืืืืช. ืขื ืืื ืืคืืชืช ืืืืจืืืืช, ืืืืืจื ืืืฆืื ืืืคืืช ืืืืืจืืืืืช ืืื ืืื ืืืืืืช - ืฆืืืชืื ืืืืืื ืืืขืืืจ ืืืืืืื ืงืื ืื ืื ืงืืื ืืืชืจ ืืขื ื ืืืื ืืืกืชืื ืืืคืจืขื ืขืกืงืืช. ืืื, ืคืฉืืืช ืืื ืืช ืืืคืืช ืืืชืจืื ืืื ื ืืืกืืจืืื ืืืื, ืืืืคืฉืจ ืงื ื ืืืื ืฆืคืื ืฉื ืืืืืจื ืืืฆืื.
Smart TS XL ืื ืืชืื ืืืจืืืืช ืืืืืจื ืืืฆืื ืฉื ืืื ืื ืืืืจ ืงืืื
ืืืืืื ืฉืืืฉืืื COBOL ืืืืจ ืงืืื ื ืืชืจืื ืืจืืืืื ืืคืขืืืืช ืืืจืืื, ืืื ืช ืืืืจืืืืช ืืคื ืืืืช ืฉืืื ืืืคืืช ืืชื ืื ืืืจืื ืืืฆืืืช ืืืืืจื ืืืฆืื. ืืื ื ืืชืื ืกืืื ืืกืืจืชืืื ืืืืืื ืืืืืช ืืื ื ืืกืชืขืคืืช ืืืืืืืช ืชืืืช, ืื ืืขืชืื ืงืจืืืืช ืื ืืชืงืฉืื ืืงืฉืจ ืืื ืืืฆืืื ืืื ืืื ืืขืจืืืช ืืืืืจืืช. Smart TS XL ืกืืืจ ืคืขืจ ืื ืขื ืืื ืืืืื ื ืืชืื ืกืืื ืืกืื ืื ืขื ืืืืืืืืืฆืื ืืื ืืืช, ืืืืคืฉืจ ืืืจืืื ืื ืืจืืืช ืื ืจืง ืขื ืืื ืืืจืืืืช ืืชืืื ืืืช ืฉืืื, ืืื ืื ืืืืข. ืคืจืกืคืงืืืื ืื ืืืคืืช ืืช ืชืื ืื ืืืืืจื ืืืฆืื ืืืขืจืื ืืื ืืช ืืจืืื ืืืกืืจืืืืืช ืืืคืืืืืืฆืื ืืื-ืืขืจืืชืืช.
ืขื ืืื ืฉืืืื ืืืคืื ืืจืืืช ืืงืจื, ืืขืงื ืืืจ ืชืืืืืช ืื ืืชืื ืืื-ืืืื, Smart TS XL ืืกืคืง ืกืืืื ืืืืืืช ืื ืืชืื ืืืจืืืืช ืฆืืงืืืืืืช ืืชืื ืืขืจืืืช ืืงืืืืืืืช ืืืืืืช ืฉื COBOL. ืืชืืื ืืช ืฉืื ืืืจืืืช ืืขืืจ ืืืืืงืช ืงืื, ืืืืฉืคืืช ืงืฉืจืื ืืื ืคืจืืฆืืืจืืช, ืกืคืจื ืขืืชืงืื, ืงืืฆืื ืืืคืืกื ืืืฉื ืืืกื ื ืชืื ืื. ืืืืขืืช ืืจืืืืงืืื ืืช ืื ืืืคืฉืจืช ืืืจืืื ืื ืืืืช ืืช ืืืฉืคืขื ืืืื ืืช ืฉื ืื ืืืืืช ืืืืจื ืืืฆืื. ืืคื ืฉืชืืืจ ื... ืืืืืขืื ืชืืื ื, ื ืจืืืช ืืื ืืืกืืก ืืืืฉื ืืืืืจื ืืืฆืื - ื-Smart TS XL ืืืืฉื ืขืืงืจืื ืื ืขื ืคื ื ืื ืืกืืก ืืงืื.
ืืืืื ืืืืคืื ืกืืืืืืืช COBOL ืืงื ื ืืืื ืืืื
Smart TS XL ืื ืชื ืืืืืืืืช ืงืืฆื ืืงืืจ ืฉื COBOL ืืื ืืืืฅ ืงืฉืจื ืืงืจื ืืืจืืืช ื ืชืื ืื. ืืื ืืื ื ืืจืฃ ืชืืืช ืืงืืฃ ืืืืืืฉ ืืืฆื ืคืกืงืืืช, ืชืืื ืืืช ืืืื ื ื ืชืื ืื ืืงืืืืื ืืื ืืจืืงืฆืื, ืืืชืคืงื ืืืขืืืืช ืืืคืช ืืืจืืืืช ืืืืืืืืช. ืื ืฆืืืช ืืืืื, ืงืจืืื ืืชื ืืขืช ื ืชืื ืื ืืชืืขืืื, ืื ืฉืืืคืฉืจ ืืฆืืืชืื ืืืืืช ื ืงืืืืช ืืืืช ืฉืืื ืฆืคืืคืืช ืืืกืชืขืคืืช ืื ืืฆืืืื ืืืื ื ืืืจืืื ืืกืคืื ืืืืืจืื.
ืืืืืื, ืืืฉืจ ืชืืื ืืช COBOL ืืืืื ืคืงืืืืช ืงืื ืื ืืืชื ืืช ืื ืคืงืืืืช PERFORM THRU ืืฉืืจืฉืจืืช, Smart TS XL ืืืืืฉ ืฆืืชืื ืืื ืืืืฆืขืืช ืืื ืืืงืืืจืื ืืืืชืืื, ืืืงืฉืจ ืืืชื ืืฉืืจืืช ืืืืื ืืืจืืืืช ืฆืืงืืืืืืงื. ืชืฆืืื ืื-ืฉืืืชืืช ืื ืืกืืืขืช ืืฆืืืชื ืืืืจื ืืืฆืื ืืืืื ืื ืืช ืืืืืื ืืืกืคืจืืื ืืื ืืช ืืืืืื ืืืืจืืืืืื ืฉื ืืืืจืืืืช. ืื ืืืกืืื ืืืืืื ืืขืงืื ืืืจ ืืืืคื ืฉืื ืขื ืฃ ืืืชื ื ืืืื ืืฉืคืืข ืขื ืืืืืืื ืชืืืืื ืืจืืืื, ืื ืืืฆื ืืืืืืช ืืงืื ื ืืช ืืคืืฆืืช ืกืืืื ืืืฆืืขืื ืขื ืคื ื ืคืขืืืืช ืืฆืืื.
ืื ืืืื ืืื ืชืืื ืืกืืจืชืืื ืืืืืฆืจืื ืืืืืช ืกืืืืื, Smart TS XL ืืืืฆืจ ืืืืืจืืืช ืืื ืืจืืงืืืืืืช ืืืืืจืืช ืืืื ืืื ืฉื ืงืื ืืืงืฉืจ ืืชืคืขืืื ืฉืืื. ืฆืืืชืื ืืืืืื ืื ืืื ืืืืชืืช ืืชืฆืืืช ืืืฉืื ืืจืื ืืืืื ืื ืฉืืจืืช COBOL ืกืคืฆืืคืืืช ืืืืืฆืจืืช ืกืคืืจืช ื ืชืืืื ืืืืืืช. ืชืืื ืืช ืืื ืขืืืจืืช ืืชืขืืฃ ืืฉืืืืช ืฉืืคืืฅ ืืืจืฆืฃ ืฉืืื ืืืืจื ืืืฆืื ืืืขืืืืช. ืืืืฉื ืืฉืงืคืช ืืช ืชืืื ืืืืืื ืืืฆืื ื... ืืขืงื ืืืจ ืงืื, ืฉืื ืืืคืื ืืืื ืืงืืฉืจ ืชืืื ืืืืืืื ืืืืืจื ืืืฆืื.
ืฉืืืื ืชืืฆืืืช ื ืืชืื ืืชืืืืื ืขืืืื ืฉื ืืืืจื ืืืฆืื
Smart TS XL ืืฉืชืื ืืฆืืจื ืืืงื ืขื ืฆืื ืืจืืช CI/CD, ืืขืจืืืช ืืงืจืช ืืจืกืืืช ืืชืืืืื ืขืืืื ืฉื ื ืืชืื ืืฉืคืขื. ืืืืจ ืฉื ืชืื ื ืืืืจืืืืช ื ืงืืืื, ืื ืืืคืืื ืืืืง ืืชืืืื ืืืืืขืื ื ืืืืจื ืืืฆืื ืืชืืฉื. ืื ืฉืื ืื ืงืื ืืคืขืื ืืขืจืื ืืืืฉ ืืืืืืืืช ืฉื ืฆืืื ื ืืืืจืืืืช, ืื ืฉืืืืื ืฉืืืืืืงื ืืืืฉื ืฉืืืฆืื ืขืืืืช ืืชืงื ื ืืืืืช ืืื ืืื. ืืืื ืืืื ืืืืืฃ ืกืคื ืืืฉื, ืืืกืื ืืืืืืืืช ืืืืืืื ืฉืฆืืืืช ืืืืจืืืืช ืฉืืื ืืืจืืช ืืืืืืืืช ืืืงืืืืืช.
ืืืืืื, ืฆืืืช ืืืืจื ืืืฆืื ืขืฉืื ืืงืืืข ืืื ืืคืื ืื ืชืืื ืืช COBOL ืขื ืฆืืื ืืืจืืืืช ืืขื 20 ืืืืืช ืืขืืืจ ืืืงืืจืช ืขืืืชืื. Smart TS XL ืืืฆืข ืืืืืืฆืื ืฉื ืืืืืช ืื ืขื ืืื ืงืืฉืืจ ืฆืืื ื ืืืจืืืืช ืืืฆื ืืจืืืช ืืขืืืื, ืืืื ืืืืื ื ืืืื ืงืื ืืื ืืชืขืจืืืช ืืื ืืช. ืืืืคื ืคืจืืืงืืืืืช ืื ืชืืืืช ืืช ื ืืืื ืืคืืชืช ืืกืืืื ืื ืืืชืืืจืื ื- ืืืืงืืช ืชืืื ื ืื ืืชืื ืืฉืคืขื, ืืืฉืจ ื ืจืืืช ืืฉืื ืื ืืื ื ืืคื ื ืจืืจืกืื ืืืืืื ืคืื ืงืฆืืื ืืืืช.
ืืื ืืืจืฆืื ืืืคืฉืจืช ืื ืฆืืืจืช ืืืืื ืืื ืฆืืืชื ืืืืจื ืืืฆืื ืืจืืืื. ืื ืืืื ืืจืืฉื ืืื ืืื ืืงืืืื ืืื ืืืืื ืื ืืืืื ืืืฆืื ืืช ืืชืคืืืืช ืืืืจืืืืช ืืคื ืืขืจืืช, ืฆืืืช ืื ืืืืืจ ืฉืืจืืจ. ืืืืืืช ืืงืฉืจ ื ืชืื ื ืืืจืืืืช ืขื ืชืืืืืื ืขืกืงืืื ืื ืชืืืื ืืืฉืืืื ืืืคืฉืจืช ืงืืืช ืืืืืืช ืืืืจื ืืืฆืื ืืืืื ืืช ืืื ืืืืฅ ืืื ื ืืืื ืขืจื ืขืกืงื. Smart TS XL ืืืืจื ืืืขืืืืช ืืช ื ืืชืื ืืืืจืืืืช ืืืขืจืืช ืืงืจื ืชืคืขืืืืช ืขืืืจ ืชืืื ืืืช ืืืืจื ืืืฆืื.
ืฉืืืืฉ ื-Smart TS XL ืืื ืืืืช ืืคืืชืช ืืืจืืืืช ืืขืืืื ืืืืฉ
ืืืืจ ืืืืื ื ืงืืืืช ืืืืช ืฉื ืืืจืืืืช, Smart TS XL ืชืืื ืืฉืืคืืฅ ืืืืงื ืืืืฆืขืืช ืืืืืืืืืฆืื ืฉื ืชืืืืืช ืืืืคืื ืืฉืคืขื. ืชืฆืืืืช ืืืคื ืื ืืฆืืืืืช ืืืคืืจืืืช ืฉื ืืคืืืคืืจืื ืืืฉืคืืช ืืืืืง ืืืื ืคืจืืฆืืืจืืช ืื ืงืืฆืื ืืืฉืคืขืื ืืื ืืื ื ืืงืจื, ืืขืืืจืืช ืืืื ืืกืื ืืื ืืช ืืืืฉ ืืช ืืืืืืงื ืืื ืชืืคืขืืช ืืืืื ืื ืืืืื ืืช. ืชืืืื ืืฉืืคืืฅ ืืืืืจื ืืื ืืืืื ืฉืืืืฆื ืืคืืชืช ืืืืจืืืืช ืืชืืงืื ืืจืืืืื ืืงืจืืืืื ืืืืฉืคืืขืื ืืืืชืจ.
ืืืืืื, ืื ืฉืืจืช COBOL ืืฆืืื ืฉืจืฉืจืืืช ืืืืื ืืงืื ื ืืช ืืืืืืืช, Smart TS XL ืืืื ืืืืืื ืืืื ืืืืืืื ืืืืจื ืืืจื ืืกืชืืืื ืขื ืืคืื ืฉืื. ืืืืจ ืืื, ืืคืชืืื ืืืืืื ืืคืจืง ืืช ืืฉืืจื ืืชืช-ืชืืื ืืืช ืงืื ืืช ืืืชืจ ืขื ืืืจืืืืช ืืืืงืจืช, ืืืืืืื ืฉืืืืืืืื ืืชืืืืื ืืืฉืืจื ืืื ืฉืื ืื. ืืืฉื ืื ืืฉืืืช ืืืืืช ืืืจืืืืช ืขื ืืืจืื ืืขืฉืืช, ืืืคืืืชื ืืช ืืกืืืื ืืจืืจืกืื ืคืื ืงืฆืืื ืืืช.
ืืชืจ ืขื ืื, Smart TS XL ืืชืืืงืช ืชืืขืื ืืืกืืืจื ืฉื ืืชืคืชืืืช ืืืืจืืืืช, ืืืืคืฉืจ ืืฆืืืชืื ืืืืื ืฉืคืขืืืืช ืฉืืคืืฅ ืืืืืืืช ืืฉืืคืืจ ืืืื. ืื ืชืืื ืืช ืชืคืืกืืช ืืืืืจื ืืืฆืื ืืืชืืฉืืช ืืืชืืืจืืช ื ืจืืืฃ ืืืจ ืฉืื ืื, ืฉืื ืืฉืื ืืืื ืืืช ืืืืื ืฉืืืืืจื ืืืฆืื ืืชืงืืืช ืืฆืืจื ืฆืคืืื. ืขื ืืื ืฉืืืื ืฉื ืืืืืืืืืฆืื, ืืืฉื ืื ืืชืื ื ืชืื ืื, Smart TS XL ืืืคื ืืช ืืคืืชืช ืืืืจืืืืช ืืชืืื ืืืืจื ืืืฆืื ืืกืืจืืื ืืื ืืชืืงืื ืืื ื ืื ืคืขืื.
ืืืืจืืืืช ืืกืืจืชืืช ืืืืืจืืช ืืืืจื ืืช
ื ืืืื ืืืจืืืืช ืฆืืงืืืืืืช ืืกืืืืืช COBOL mainframe ืืื ืืื ืืืชืืจืื ืืืฉืืขืืชืืื ืืืืชืจ ืืืืืจื ืืืฆืื ืืืืจ ืงืืื. ืื ืืฉื ืืืจื ืืขืืจ ืืกืคืืจืช ืืฉืคืื ืชื ืื; ืืื ืืืื ืขืฉืจืืช ืฉื ืื ืฉื ืืืืืืช ืขืืฆืื ืืฆืืืจืืช, ืชืืืช ืคืจืืฆืืืจืืืช ืืจืืืืช ืืืืืืืฆืื ืฉื ืืืืืงื ืขืกืงืืช ืฉืื ืขืืงืื. ืืืืฆืขืืช ื ืืชืื ืกืืื ืืืืืจืืกืื, ืืจืืื ืื ืืืืืื ืกืืฃ ืกืืฃ ืืจืืืช ืืืฆื ืืืจืืืืช ืืชืืืืช ืืืขืจืืืช ืฉืืื, ืืืืฉืืฃ ืืืื ืืืื ื ืขืฆืื ืืืืื ืืช ืืืืจืืช ืืืืืจื ืืืฆืื. ืขื ืืื ืืืืืช ืืคืืกืื ืืื ืืืงืื, ืฆืืืชืื ืืืคืืื ืืช ืืืืืจื ืืืฆืื ืืชืืืื ืื ืืกื ืืืืงืจ ืืื ืืชืจืืื ืืืืจื ืื ืืืื.
ืืืืืฅ ืฉืืืืช ืืชืงืืืืช ืฉื ื ืืชืื ืกืืื ืืืืืื ืืขืืืจ ืืช ืืืืืจื ืืืฆืื ืืืฉืืื ืืืืงืืช ืงืื ืืืืกืฆืืคืืื ื ืืจืืช ืืืขืจืืช. ืืื ืืงืืช ืืืื ืื ืืืช ืืจืฃ ืืจืืืช ืืงืจื, ื ืืชืื ืชืืืืจ ืืืคืฉื, ืงืืจืืฆืื ืฉื ืืจืืืช ื ืชืื ืื ืืืืืื ืืืจืืืืช ืืกืืืข ืืื ื ืืืืืืชืืช ืืืคืฉืจืืช ืืืจืืื ืื ืืืฉืช ืืฉืืคืืฅ ืืืืฉ ืืืืืืื ืืืื. ืื ืฉืืื ืื ืืืืืช ืชืืจืืช ืืืฉืืืช ืืืืืจื ืืืฆืื, ืืืกืคืงืช ืืกืืจืช ื ืืชื ืช ืืืืจื ืืฉืืคืืจ ืืื ื ืืืฆืืืืช ืืืฆืืขืื. ืืคื ืฉืืชืืืจ ื... ืืืฉืืช ืืืืจื ืืืฆืื ืฉื ืืขืจืืช ืืืืจ ืงืืื, ืืืชืงืืืืช ืชืืืื ืื ืจืง ืืืืืจืืช ืืื ืืืืืืืช, ืืื ืื ืืืืืืช ืืืคืื ืืช ืืืืจืืืืช ืืืฉื ื ืืฉืงืืคื ืื ืืชื ืช ืื ืืืื.
ืืืฉืจ ื ืืืื ืืืืจืืืืช ืืฉืืื ืืฆืื ืืจืืช ืืืืจื ืืืฆืื ืืชืืฉืืื, ืืื ืืชืคืชื ืืืืื ืืืฉื ืืจ-ืงืืืื. ื ืืชืื ืืืืืืื ืืืืื ืฉืื ืฉืื ืื ืืขืืื ืืกืคื ืืืืืช ืฉื ืงืืขื, ืืืื ืข ืืฆืื ืืืืฉ ืฉื ืืื ืืื ื. ืืืืืช ืืืืื ืื ืืืืืื ืืงืืืขืช ืกืืจื ืขืืืคืืืืช ืืืืกืกื ืกืืืื ืื ืืขื ืืงืื ืืื ืืืื ืืืืืจื ืืืฆืื ืืช ืื ืจืืืช ืื ืืจืฉืช ืืื ืืืื ืืื ืขืืืช, ืืืืจืืช ืืืงืจื. ืคืืงืื ืืชืืฉื ืื ืงืฉืืจ ืืฉืืจืืช ืืืืืฉืืช ืขืกืงืืช, ืืืืืื ืฉืชืืฆืืืช ืืืืืจื ืืืฆืื ืืืฉืืจื ืชืืืืืช ืืืกืืจืืืืืช ืืืจืืื ืืื ืจื ืืืืจ ืกืืื ืืืขืืจื.
ืืกืืคื ืฉื ืืืจ, ืืืจืืื ืื ืฉืืฆืืืืื ืืฉื ืืช ืืช ืืขืจืืืช ื-COBOL ืฉืืื ืื ืืื ืฉืืชืืืืกืื ืืืืจืืืืช ืื ืืชืืฆืจ ืืืืื ืฉื ืืื, ืืื ืืืืืื ืืช ืื ืืืืืช. ืขื ืืื ืืคืืืช ืืขืจืืืช ืืืืจ ืงืืื ืื ืืืื ืืช ืืืจืืืืงืืืจืืช ืฉืงืืคืืช ืืืืืืืช, ืื ืืืคืฉืจืื ืืืฉื ืืช ืืืืจื ืืืชืจ ืืืจืืืืช ืืขืจืืช ืืช ืงืืืื. ืื ืืคืืชืช ืืืจืืืืช ืืืคืืช ืืฆืขื ืืงืจืืช ืืืืจื ืืืฆืื, ืืืืืช ืืืืื, ืืืืจืืช ืืืจืืืืืช ืืืืืืช ืืืฆืืขืื ืืคืืืคืืจืืืช ืืชืคืชืืืช.
ืืื ืืืฉืื ื ืจืืืช ืืืื, ืฉืืืื ืืืืืง ืืืืจื ืืืฆืื, ืืฉืชืืฉื ื-Smart TS XL - ืืคืืืคืืจืื ืืืืื ืฉืืืืชืช ืืืจืืืืช ืฆืืงืืืืืืช, ืืืคื ืืืืืงืช COBOL ืชืืืื ืื ืืื, ืืืขืฆืืื ืืจืืื ืื ืืืฆืข ืฉืืคืืฅ ืฉื ืืจืืืืงืืืจืืช ืืืืจ ืงืืื ืืืืืง, ืืืืืื ืืชืืื ืืช ืืืืจื ืืืฆืื ืืืืืืช.