ืืขืจืืืช COBOL ืืืืจ ืงืืื ืืืฉืืืืช ืืืคืขืื ืชืฉืชืืืช ืงืจืืืืืช ืืชืืืื ืืื ืงืืืช, ืืืืืื, ืฉืืจืืชื ืืืจืืืืช ืืืืืฉื. ืืขืื ืฉืืืฉืืืื ืืื ืขืืื ืืืืื ืืืื, ืื ืืขืชืื ืงืจืืืืช ืืืืืื... ื ืงืืืืช ืชืืจืคื ื ืกืชืจืืช ืืฉืจ ืืฆืืืืช ืกืืืื ื ืืืืื ืืชืคืขืื ืืืืจืื. ืืื ืืกืืืื ืื ืืคืืืช ืืืืจืื ืื ืืขืื ืืฉืคืขืชื ืืืืืื ืืืืชืจ, ื ืื ืืช ืฉืืืืืช ืืืืฉืช ืืืืจ ืืืชืจืืฉืืช ืืืฉืจ ืื ืชืื ืื ืืืจืืื ืืืืืืืช ืืงืฆืืืช ืืืืืจืื ืืงืืืขืืช.
ืื ืืืื ืืฉืคืืช ืชืื ืืช ืืืืจื ืืืช, COBOL ืื ืชืืื ื ืชืื ืืืฉืื ืขื ืืืืืืช ืืืืจืื. ืืืืจืืช ืื ืชืื ืื ืื ืืงืฉืืช ืฉืื, ืืืกืชืืืืช ืขื ืฉืืืช ืืืืจื ืงืืืข ืืืฉืืืืฉ ืืืื ืื ืืื MOVE, STRING, ื REDEFINES ืื ืืื ืขืืืืื ืืืืืื ืืืืืงื ืื ืืืืื ืช. ืงืฉื ืืืืืช ืืขืืืช ืืื ืืืืฆืขืืช ืืืืงืืช ืืืื, ืืืืืื ืืืกืืกื ืงืื ื ืจืืืื ืืืชืืืืงืื ืืืฉื ืขืฉืจืืช ืฉื ืื ืขื ืืื ืฆืืืชืื ืืจืืืื.
ืืฉืืคื ืฉื ืืืืฉืืช ื ืกืชืจืืช
Smart TS XL ืขืืืจ ืื ืืืืืช ืืืืฉืืช ืืืืจ ืฉืงืืืช ืืืืฉืืื COBOL ืืืืืง ืืืืืืจืืช.
ืืื ืขืืฉืืืืืจืืฉื ืืืืืจืช ืืชืืืืืช, ืืืืืง ืืืืื ืืืืื ืืช ืืขืจืืช ืืคืื ืืช ืื ืืืืื ื ืืืืืช ืืืืกื ืคืืืขืืืืช ืืืื. ืกืงืืจืืช ืงืื ืืื ืืืช ืืจืื ืืื ื ืืขืฉืืืช ืืงื ื ืืืื ืืืื, ืื ืฉืืืชืืจ ืืจืืื ืื ืืืกืชืื ืขื ืฉืืืืช ืืืืืืืืืช ืืงืืืช ืชืืื ืืช ืืขืืืงืืช ืืืชืจ. ื ืืชืื ืกืืื ืืกืคืง ืืืฆืขื ืจื ืขืืฆืื ืืืฉืืคืช ืืขืืืช ืืื ืืคื ื ืฉืื ืืืืืืืช ืืืคืกืงืืช ืื ืคืจืฆืืช.
ืืืืื ืืืืฉืืช ืืืืจ ื-COBOL ืืืจืฉ ืืืฉื ืืืขืืืืช. ืืื ืืืืืช ื ืืชืื ืืื ื ื ืชืื ืื ืืืจืืืื, ืืื ืช ืืกืื ืืืงื ืฉื ืฉืืืืฉ ืืืืืจืื ืืจืืช ืืฉืื, ืืืขืงื ืืืจ ืืจืืืืช ื ืชืื ืื ืขื ืคื ื ืคืจืืฆืืืจืืช, ืกืคืจื ืขืืชืงืื ืืืคืืื ืกืงืจืืคืืื ืฉื JCL. ืืืื ืืกืืจืชืืื ืฉื ืื ื ืขืืืจ ืฉืคืืช ืืืืจื ืืืช ืืืงืื ืืืกืจ ืืืงืฉืจ ืื.
ืืขืืจืช ืืืชืืืืืืืื ืื ืืื ื, ื ืืชื ืืืชืจ ืืืืืืง ืืช ืืกืืืื ืื ืฉื ืืืืฉืช buffer, ืืืคืืืช ืชืืฆืืืช ืืืืืืืช ืฉืืืืืช ืืืฉืคืจ ืืช ืืชืืืืงื ืืืืืืืืช ืืจืืืืช ืืืืื ืฉื ืืืฉืืืื ืืืืจ ืงืืื. ื ืงืืืช ืืืฉื ืืืื ืืช ืืืืืืืืืช ืืื ืืืคืชื ืืืืืืช ืืืฉื ืืืืื ืชืคืงืืืืื ืืงืจืืืืื ืืฆืืจื ืืืืืืืช ืืืืื ื.
ืืื ืช ืืฆืคืืช ืืืืจ ื-COBOL
ืืืืฉืืช ืืืืจ (buffer overflows) ื-COBOL ืืจืื ืืชืขืืืื ืืื ืืฉื ืืืื ืืืื ืฉื ืืฉืคื ืืฉืคื ืืจืื ืืืืื ืืืืื ืืช. ืขื ืืืช, ืืืื ืืืคืื ืื ืชืื ืื ืฉื COBOL, ืืืกืชืื ืขื ืฉืืืช ืืืืจื ืงืืืข, ืืงืืขื ืืืืจืื ืืืืืจืื ืืืืฉ ืืืืืงืืช ืืื ืจืืฆื ืืืืืืืช, ืืืคื ืืืชื ืืคืืืขื ืืชื ืื ืืืืฉื ืขืืื ืื ืืขืืืืื ืืืืืช ืืกืืื ืื. ืืืืฉืืช ืืื ืขืืืืืช ืืืืืื ืืฉืืืชืืช ื ืชืื ืื ืฉืงืื, ืฉืืืืืช ืืืืืืช, ืืืืงืจืื ืืืจืืขืื ืืืืชืจ, ืืืฉื ืืขืจืืช ืื ืคืืืขื ืืฉืืืืช ืื ืชืื ืื.
ืืืจืืช ืืืคืฉืื ืฉื COBOL ืืืืฉื ืืฉืืจื ืืืืืจืื, ืชื ืืขื ืื ื ืืื ื ืฉื ื ืชืื ืื, ืคืขืืืืช ืืืจืืืืช ืื ืืืืืชืืช ืืฉืืืืฉ ืืจืขื ืืงืืขื ืืืืจืื ืืฉืืชืคืื ืขืืืืื ืืืจืื ืืืืืคืช ืฉืืืช ืกืืืืื. ืื ืืกืืื ืืืืืื ืืืขืจืืืช ืคืื ื ืกืืืช, ืขืืืื ืจืฉืืืืช ืจืคืืืืืช ืืืจืืืืช ืขืืืื ืฉื ืืืื ืคืจืืื ืืื ืืืช ืืฆืืื ืฉืืื ืืืื ืืช ืื ืชืื ืื ืืื ืงืจืืืืช ืืืฉืืื ืืืืืื ืืืื ืืจื ืืขืจืืืช ืชืืืืืช. ืืื ืช ืืืืคื ืฉืื ืืืืฉืืช ืืื ื ืืฆืจืืช ืืืื ืืช ืืชืืืืงืช COBOL ืืืืืืืช ืืืฆืืื.
ืืื ืืฆืคืช ืืืืจ?
ืืืืฉืช ืืืืจ ืืชืจืืฉืช ืืืฉืจ ื ืชืื ืื ืฉื ืืชืืื ืืฉืื ืืืืจืื ืืืจืืื ืืืฉืื ืืืืงืฆื, ืืืืจืืื ืืื ืืืืืฉ ืืืืืจืื ืกืืื. ื-COBOL, ืื ืงืืจื ืืืจื ืืื ืืืืฆืขืืช ืคืขืืืืช ืืื MOVE, STRING, ืื UNSTRING, ืืฉืจ ืขืฉืื ืฉืื ืืกืคืง ืืืืจืืช ืืืฉืจ ืงืืืืืช ืื ืืชืืืืช ืืืืจื ืื ืชืื ืื.
ืืขืื ืฉ-COBOL ืืกืจื ืืจืืชืืืืงื ืฉื ืืฆืืืขืื ืื ืืงืฆืืช ืืืืจืื ืืื ืืืช, ืืืืฉืืช ืืืืจ ืขืืืื ืืืืืืช ืื ืืืข ืืฉืืืช ืืืืื ืฉืืื ืื ืืื ืืืช ืฉืืืืืช ืืืื ืืืจื ืื ืชืื ืื. ืืืขืื ืืืืืจื ืืขืชืื ืงืจืืืืช ืขื ืืื ืขืืฆืื ืืฉืคื, ืฉืื ืืฉืชื ืื ืืืืืจืื ืืงืคืื ืืช ืืืืฆืขืืช PIC ืกืขืืคืื ืื ืืืืคืช ืืืืืืช ืืืืจื ืืื ืืืืืช ืืืืื ืืืืฆืืข.
ืืืืื:
01 CUSTOMER-NAME PIC X(10).
...
MOVE "JonathanSmith" TO CUSTOMER-NAME.
ืืืืืื ืื, CUSTOMER-NAME ืืืงืฆื 10 ืืชืื. ื ืืกืืื ืืืขืืืจ ืืืจืืืช ืืช 13 ืชืืืื ืืื "JonathanSmith" ืืงืฆืจ ืืช ืื ืชืื ืื ืืฉืงื ื- "JonathanSm", ืฉืื ืื ืคืืื ืฆืืืื ืฉื ื ืชืื ื ืืืืช ืืจืืืืื ืืืื ืืืจืื ืืฉืืืื.
ืชืจืืืฉื ืืฆืคืช ืืืืจ ื ืคืืฆืื ื-COBOL
ืืขืืจ ืืฉืืืช ืงืฆืจืื ืืืชืจ:
ืืฉืืืื MOVE ืืฉืคื ืงืื ืืื ืืื ืืืงืืจืืช ืื ืคืืฆืื ืืืืชืจ ืืืืืฉื ืื ืืืืื ืช. COBOL ืืื ื ืืื ืข ืืขืืจืช ืขืจืืื ืืจืืืื ืืืชืจ ืืฉืืืช ืงืื ืื ืืืชืจ, ืืงืืฆืืฅ ืื ืืจืืกื ืื ืืืืื ืช ืขืืืืื ืืืชืจืืฉ.
01 ACCOUNT-NUMBER PIC X(8).
01 INPUT-DATA PIC X(20).
...
MOVE INPUT-DATA TO ACCOUNT-NUMBER.
If INPUT-DATA ืืืื ืืืชืจ ื-8 ืชืืืื, ืืชืืืื ืื ืืกืคืื ื ืงืืขืื ืืฉืงื. ืืืจ ืื ืขืืื ืืืืืื ืืืืืข ืืืงื ืื ืืืขื, ืืืืืื ืืืขืจืืืช ืจืืฉืืื ืืกืคืื ืื ืจืฉืืืืช ืืงืืืืช.
ืฉืืืืฉ ืืจืขื ื-STRING ืื-UNSTRING:
ืคืขืืืืช ืืืืืืืช STRING ื UNSTRING ืคืืืขืื ืืืฉืจ ืฉืืืช ืืคืื ืืื ื ืืืืื ืื ืืืคืจืืื ืืจืืื. ืื ืฉืื ืืืขื ืงืฆืจ ืืื, ืื ืชืื ืื ืขืืืืื ืืืืืฉ ืืฉืืืช ืกืืืืื ืื ืืืกืชืืื ืืฆืืจื ืื ื ืืื ื.
01 FULL-NAME PIC X(15).
01 FIRST-NAME PIC X(10).
01 LAST-NAME PIC X(10).
...
STRING FIRST-NAME DELIMITED BY SPACE
LAST-NAME DELIMITED BY SIZE
INTO FULL-NAME.
ืื ืืืืจื ืืืฉืืื ืฉื FIRST-NAME ื LAST-NAME ืขืืื ืขื 15 ืชืืืื, ืืืืืฉื ืชืืจืื ืืืชืืื ืฉื ืืืง ืืฉื ืืืฉืคืื ืื ืืืืฆืจ ื ืชืื ืื ืืขืื ืืื ื ืฉืืื.
ืืืืืจ ืืืืฉ ืฉืืืืฉ ืืจืขื:
ืืฉืืืื REDEFINES ืคืกืงืืืืช ืืืคืฉืจืช ืืืฉืชื ืื ืฉืื ืื ืืืืืง ืืช ืืืชื ืฉืื ืืืืจืื. ืื ืฉืื ืืื ืืื ืืชืจ ืขื ืืืืื, ืืื ืขืืื ืืคืืืข ืื ืชืื ืื ืืืฉืชื ื ืืืจ ืฉืืืืง ืืช ืคืจืืกืช ืืืืืจืื ืฉืื.
01 PAYMENT-RECORD.
05 PAYMENT-TYPE PIC X(1).
05 PAYMENT-AMOUNT REDEFINES PAYMENT-TYPE
PIC 9(6)V99.
...
MOVE 1234.56 TO PAYMENT-AMOUNT.
ืืืงืจื ืื, ืืืืจ ืืืืืจืื ืืืฉืืฉ ืขืืืจ PAYMENT-TYPE ืืฉืืชืฃ ืขื PAYMENT-AMOUNTืืชืืืช ืขืจื ืืกืคืจื ืืจืืื ืืืืืื ืืชืื PAYMENT-AMOUNT ืืืจืืก ืืช ืืชื ืืืงืืจื ื PAYMENT-TYPE.
ืืชืจืืฉ ืขื ืฉืืืืืช ืืชื ืชืืชื:
ืืื ืืืงืก ืืขืจืืื ื-COBOL ืืื ื ืืืืฃ ืืืืงืช ืืืืืืช ืืืจืืจืช ืืืื. ืืคื ืื ืืืืื ืืื ืืืืฅ ืืืืื ืืืื ืืงืก ืืืืฆืืจ ืขืืืื ืืืืืื ืืงืจืืื ืื ืืชืืื ืฉื ืืืืจืื ืืืงืื ืฉืืื ื ืืืืจ ืืืืงืจื.
01 TRANSACTIONS.
05 TRANSACTION OCCURS 10 TIMES
PIC 9(5).
...
MOVE 10000 TO TRANSACTION(11).
ืืฉืคื ืื ืืืชื ืืืืื ื ืืขืืจ ืืืืื ืืืขืจื ืฉื 10 ืืืื ืืื. ืืืชืื ืืคืจืืกืช ืืืืืจืื, ืืืืจ ืขืืื ืืคืืืข ืื ืชืื ืื ืื ืงืฉืืจืื ืื ืืืืืื ืืืืกืจ ืืฆืืืืช ืืืื ืจืืฆื.
ืืืืข ืืฉืื ืืืฆืืฃ ืืช ืืืืจ ืืื ืจืืื ืืืขืจืืืช ืืืืจ ืงืืื
ืืขืจืืืช COBOL ืจืืืช ืฉืขืืืื ืืฉืืืืฉ ืืืื ืืขืืืืช ื ืชืื ืื ืคืื ื ืกืืื ืจืืืฉืื, ืืืฆืขืืช ืืืืืืื ืจืืืืืืจืืื ืื ืื ืืืืช ืจืฉืืืืช ืืจืืืืช. ืืืืฉืช ืืืืจ ืืืืืช ืืกืืืืืช ืืืื ืขืืืื ืืคืืืข ืืฉืืืืชื ืฉื ืืฆืืืช ื ืชืื ืื ืฉืืืืช, ืืืจืื ืืฉืืืืืช ืืืฉืื ืื ืืืจืื ืืืฉืืื ืืืืจืืื ืืืขืจืืืช ืืืืจื ืืืจื. ืืืืืื ืฉื-COBOL ืืกืจืืช ืืื ืืช ืืืืจื ืืืช ืืืื ืจืืฆื, ืฉืืืืืช ืืื ืืจืื ืืื ื ืืชืืืืช ืขื ืฉืื ืืืจืืืช ืืืฉืคืขื ืืขืืื ืืืืืชื.
ืืืืืจืื ืืืกืืจืื, ืืืืฉืืช ืืืืจ (buffer overflows) ืขืืืืืช ืื ืืืจืื ืืืคืจืืช ืชืืืืืช, ืืฉืืื ืืืืงืืจืช ืืืืื ืื ืืง ืืืื ืืืื. ืื ืืืื ืืชืืื ืืช ืืืืจื ืืืช ืฉืขืืืืืช ืืงืจืืก ืื ืืืืื ืืจืืืื, ืชืืื ืืืช COBOL ืืืฉืืืืช ืืคืขืื ืืขืชืื ืงืจืืืืช ืขื ื ืชืื ืื ืคืืืืื. ืขืืืื ืื ืืืคืืช ืืช ืืืืืื ืืืชืืงืื ืืืืืืื ืฉื ืกืืืื ื ืืืืฉื ืื ืจืง ืืฉืืื ืืืืืฆืช, ืืื ืื ืืฆืืจื ืืืืืืืช ืชืคืขืืืืช ืืืืื ืืจืื.
ืฆืืฆืื ืกืืืื ืื ืืื ืืชืืื ืืืืืื ืืืฆื ืืืืื ืื ืืชืจืืฉืื. ื ืืชืื ืกืืื ืฉื ืงืื COBOL ืืื ืืืช ืืืจืืื ืืืืืืืช ืื ืืชื ืืช ืืืจืืื ืืื ืคืืืฉื ืืืช ืืชืคืืก ืืขืืืช ืืืื ืืคื ื ืฉืื ืืืจืืืช ื ืืง ืืืืฆืืจ.
ืืืื ืื ืืชืื ืกืืื ืขืืืจ COBOL
ื ืืชืื ืกืืื ืืื ืฉืืื ืืืืื ืช ืงืื ืืงืืจ ืืืื ืืืจืืฅ ืืืชื. ืขืืืจ ืืืฉืืื COBOL, ืืฉืจ ืืจืื ืคืืขืืื ืืขืืืืืช ืืฆืืื ืื ืืกืืืืืช ืืืื ืคืจืืื ืขื ืืืืืช ืฆืคืืื ืืืืืืช, ื ืืชืื ืกืืื ืืฆืืข ืืจื ืืืืื ืื ืืชื ืช ืืืจืืื ืืืฉืืคืช ืคืืืขืืืืช ื ืกืชืจืืช. ืืื ืืืคืฉืจ ืืืจืืื ืื ืืืืืช ืืืืฉืืช ืืืืจ, ืงืื ืืช ืื ืชืืื ื ืืง ื ืชืื ืื ืืฉืื ืืืงืื ืฉื ืืืืืจ ืืคืืชืื ืื ืืชืืืืงื.
ืืขืจืืืช COBOL ืืืืืืช ืืืฉืชืจืข ืขื ืคื ื ืืืืืื ื ืฉืืจืืช ืงืื, ืืืืื ืขืฉืจืืช ืฉื ืื ืฉื ืืืืืงื ืขืกืงืืช ืืืืกืชืื ืขื ืกืคืจื ืงืื ืืืฆืื ืืื, ืงืืฆื JCL ืืืืืจืืช ื ืชืื ืื. ืกืงืืจืืช ืืื ืืืช ืืืงืฉืจ ืื ืืืืืืช ืืื ืืืืขืืืช ืืืขืืืืช. ืืื ื ืืชืื ืกืืื ืื ืชื ืืช ืืกืืก ืืงืื, ืืื ืืช ืืื ื ืกืื ืืืช ืฉื ืืืื ื ืฉืื, ืืืขืงืื ืืืจ ืืจืืืช ื ืชืื ืื, ืืืืืงืช ืืงืจื ืืคืจืืกืช ืืืืจืื ืืืื ืืืืืงืง ืืืคืขืืช ืืชืืื ืืช. ืื ืืขื ืขืจื ืจื ืืืืืื ืืืฉืจ ืื ื ืืชื ืืืคืจืืข ืืืขืจืืืช ืื ืืืฉืจ ืงืฉื ืืฉืืคื ืกืืืืืช ืืืืงืืช ืืืฆืืจ.
ืืื ื ืืชืื ืงืื ืกืืื?
ื ืืชืื ืกืืื ืืจืื ืืืขืจืืช ืงืื ืืืงืืจ ืืืฆื ืื ืืื, ืืคื ื ืืื ืจืืฆื, ืืื ืืืืืช ืฉืืืืืช ืืืืืืช, ืกืืืื ื ืืืืื ืืคืืืื ืืื ืืื. ืื ืืืื ืืืืืงืืช ืืื ืืืืช, ืืืืจืฉืืช ืืืฆืืข ืงืื ืขื ืืงืจื ืืืืงื, ื ืืชื ืืืืฉื ื ืืชืื ืกืืื ืืฉืืจืืช ืขื ืืกืืก ืืงืื, ืืืกืคืง ืชืืื ืืช ืืืื ืืขืืืช ืคืืื ืฆืืืืืืช ืืื ืงืฉืจ ืื ืชืื ืืืืฆืืข.
ื-COBOL, ื ืืชืื ืกืืื ืืชืืงื ืืืืืื ืฉืืืืฉ ืืจืขื ืืฉืืืช ื ืชืื ืื, ืฉืืชืืฃ ืืืืจืื ืื ืชืงืื, ืชื ืืขืช ื ืชืื ืื ืืืชื ืืืืืืช ืืคืขืืืืช ืืืจืืืืช ืื ืืืืืืช. ืืื ืืืื ืื... ืืืืืช ืชืืืืืช ื ืชืื ืื ืืงืฉืจื ืฉืืืช ืืื ืืืืจืืช, ืชืืื ืืืช ืืืคืืื ืชืช-ืืขืจืืืช.
ืืืชืจืื ืืช ืืืืืื:
- ืืืืื ืืืงืื ืฉื ืคืืื ืงืืืื ืืคื ื ืฉืื ืืืืขืื ืืืืฆืืจ
- ืืืืืช ืกืจืืงืช ืืืฉืืืื ืฉืืืื ืืืื ืืืฉืคืืข ืขื ืืขืจืืืช ืืื ืจืืฆื
- ืขืงืืืืช ืืืืจืืช ืืืงืืจืช, ืชืืขืื ืืชืืืืืช
- ืืืืืืฆืื ืฉื ืืืืงืืช ืชืงืื ืืช ืงืื ืืืืจืืช ืืืืื ืืืืืจื ืชืืืืงื
ืืชืืจื ื ืืชืื ืกืืื ืกืคืฆืืคืืื ื-COBOL
ืืขืื ืฉื ืืชืื ืกืืื ื ืคืืฅ ืืฉืคืืช ืชืื ืืช ืืืืจื ืืืช, COBOL ืืฆืื ืืชืืจืื ืืืืืืืื ืืฉื ืืขืืฆืื ืืืฉื ืฉืื, ืืืื ื ืืคืจืืฆืืืจืื ืฉืื ืืืืกืชืืืืช ืขื ืื ืืืืช ืงืื-ืืขืื.
1. ืฉืื ืืช ื ืื
COBOL ืงืืื ืืืืืื ืจืื ืฉื ืฉืคืืช ืืืื IBM Enterprise COBOL, Micro Focus COBOL ื-RM/COBOL. ืฉืคืืช ืืื ื ืืืืืช ืื ืืื ืืืจืืืืช ืชืืืืจ, ืืืฉืงื ืืขืจืืช ืืืชื ืืืืช. ืืื ื ืืชืื ืืขืื ืืืื ืืืืื ืืืืกืชืื ืืฉืื ืืืื ืืื.
2. ืฉืืืืฉ ืืืืืจืืช ืฆืืืื ืืฉืืืื JCL
ืชืืื ืืืช COBOL ืงืืืืืช ืืขืืชืื ืจืืืงืืช ืืงืืฆืื ืขืฆืืืืื. ืื ืชืืืืืช ืืกืคืจื ืขืืชืงืื ืืืืืื, ืืืืืืจืื ืืื ื ื ืชืื ืื ืืืฉืืฉืื ืฉืื ืืฉืื ืืื ืชืืื ืืืช. ืงืืฆืื ืืืฆืื ืืื ืืื ืืืืืื ืืืืืช ืคืชืืจืื ืืืืืื ืืืืื ืื ืืชืื. ืื ืืกืฃ, ืชืืื ืืืช ืขืฉืืืืช ืืืืืช ืงืฉืืจืืช ืืกืงืจืืคืืื ืฉื JCL ืื ืืชืฆืืจืืช ืืื ืจืืฆื ืฉื ืืืื ืคืจืืื, ืื ืฉืืืกืืฃ ืืืจืืืืช ืชืืืืช ืืงืฉืจ.
3. ืืืืจืืช ื ืชืื ืื ืืืจืืืืช ืืืืืจืืช ืืืืฉ
ื ืืชืื ืกืืื ืืืื ืืคืจืฉ ืืืฆื ืืฉืชื ืื ืืงืืืืื ืืื ืืจืืงืฆืื ืืืืืจืื, ืืืืืื ืขื REDEFINES, OCCURS, ืืฉืืืช ืงืืืฆื ืืืจืจืืืื. ืคืืจืืฉ ืฉืืื ืฉื ืงืฉืจืื ืืื ืขืืื ืืืืืื ืืืืืื ืืืืฉื ืื ืืืืืง ืื ืืชืืฆืืืช ืืืืืืืช ืฉืืืืืช.
4. ืืงืืื ืืคืืจืฉืช ืืืืืืช ืืืืืจืืช ืืจืืืช ืืงืจื
ื-COBOL ืืื ืืืืืช ืืงืืื ืืืงื ืืืขืชืื ืงืจืืืืช ืืฉืชืืฉ ืืืจืืืช ืืงืจื ืืจืืืืช, ืื ืฉืืงืฉื ืขื ืงืืืขืช ืืืืืืช ืืฉืชื ืื ืื ื ืชืืื ืืืฆืืข ืืื ื ืืชืื ืกืื ืื ืืขืืืง. PERFORM, GO TO, ื THRU ืืฉืคืืื ืืืืืื ืืืฉืืฉ ืขื ืคื ืืืืืงื.
5. ืงืจืืืืช SQL ืืืืืขืืช ืื CICS/IMS
ืชืืื ืืืช COBOL ืจืืืช ืืืืืขืืช SQL ืื ืืฉืชืืฉืืช ืืืขืจืืืช ืืจื ืืงืฆืืืช ืืื CICS ื-IMS. ืืื ืืฆืืืื ืชืืืืืช ืืืฆืื ืืืช ืืชืืคืขืืช ืืืืื ืฉืื ืชื ืกืืื ืืืื ืืืืืช ืื ืืคืฉื ืืืืื.
ืืืืื ืืืคืืคื ืฉื ืืฉืชื ืื ืืจืืืืื:
01 EMPLOYEE-RECORD.
05 EMP-ID PIC 9(5).
05 EMP-NAME PIC X(20).
05 EMP-DATA REDEFINES EMP-NAME.
10 EMP-FIRST PIC X(10).
10 EMP-LAST PIC X(10).
ืืืื ื ืื, ืื ืืืช ืฉืืืืืช ืืืื ืืืจื ืืฉืื ืื ืืืฆื EMP-NAME ืืืืืืก ืขืืื ืืืืืื ืืืืืคืช ืืืงืื ื EMP-LAST ืื ืืืืืืช ืื ืชืื ืื ืืื ื ืืืืืืื. ืืื ื ืืชืื ืกืืื ืืขืื ืฆืจืื ืืืืื ืืช ืืืกื ืืืืืจืื ืืื ืฉืืืช ืืืืืจืื ืืืืฉ ืืื ืืื ืืืืืช ืกืืืื ืฉื ืืืืฉื.
ืืื ืช ืืืืจืืืืืืช ืืกืคืฆืืคืืืช ื-COBOL ืืืื ืืช ืืืืืจื ืืคืืจืืฉ ื ืืื ืฉื ื ืืชืื ืกืืื. ืืืฉืจ ืืื ืืืืืจ ืืืืื, ืืื ืืืคื ืืฉืืื ืจืืช ืขืืฆืื ืืืฉืืคืช ืืืืฉืืช ื ืกืชืจืืช ืืืฉืืคืืจ ืืืืื ืืช ืืืืืืื ืฉื ืืกืืกื ืงืื ืืืืจ ืงืืื.
ืฉืืืืฉ ื-Smart TS XL ืืืืืื ืืฆืคืืช ืืืืจ ื-COBOL
ืืขืจืืืช COBOL ืืงื ื ืืืื ืืืื ืืืจืฉืืช ืืื ื ืืชืื ืฉื ืื ื ืืืืืื ืืื ืืืคื ืืืื ื ืืฉืคื, ืืืืื ืืืืืจืื ืืืกืืืืช ืืืืฆืืข. ืืืืื ืืืืฉืืช ืืืืจ ืืืงืฉืจ ืื ืืจืื ืืืืชืจ ืืืฉืจ ืืชืืืช ืชืื ืืืช ืคืฉืืื. ืืื ืืืจืฉ ืื ืืข ืืืกืืื ืื ืชื ื ืืืื ืฉื ืืขืจืืืช ืืืื ืคืจืืื, ืืคืจืฉ ืืืืจืืช ื ืชืื ืื ืืืจืจืืืืช, ืืคืชืืจ ืชืืืืืช ืืืฆืื ืืืช ืืื ืกืคืจื ืขืืชืงืื ื-JCL, ืืืืืืช ืืืฆื ื ืชืื ืื ืืืจืืื ืืจื ืืืืจืืช ืืืืฉ ืืืื ื ืืขืจืืื. Smart TS XL ืื ืื ืชืื ืืชืืฉืืืช ืืฆืจืืื ืืื ืืืืืง, ืื ืฉืืืคื ืืืชื ืืชืืื ืืืืคื ืืืืืื ืืืืืื ืคืืืขืืืืช ืืืืฉื ืืืืฉืืื COBOL.
ืคืืืคืืจืื ืื ืืืืืช ืืขืืจ ืืืืืงืช ืชืืืืจ. ืืื ืืืฆืขืช ื ืืชืื ืกืื ืื, ืืืื ื ืืืืืืช ืืืืจืื ืืืืคื ืืื ืืจืืงืฆืืืช ื ืชืื ืื ืืจืืื ืืืคืืืงืฆืื ืืืื. ืืื, ืืื ืืกืืืขืช ืืืจืืื ืื ืืืฉืืฃ ืืืืฉืืช ืืกืืื ืืช ืฉืืืจืช ืขืืืืืช ืืืืืง ืืชืฉืืืช ืื ืืืืืงืืช ืื ืืกืงืืจื ืืื ืืช. ืชืคืงืืื ืืืคื ืงืจืืื ืืืืืื ืืชืขืฉืืืช ืืืกืืจืืช ืฉืืื ืฉืืืืช ื ืชืื ืื ืืืขืงื ืืืจ ื ืชืื ืื ืื ืืืื.
ืกืงืืจื ืืืืืช ืฉื Smart TS XL
Smart TS XL ื ืืขื ืืกืคืง ืืืืืืช ื ืืชืื ืกืืื ืขืืืจ ืฉืคืืช ืชืื ืืช ืืืืจ ืงืืื ืืื COBOL, PL/I ื-JCL. ืืื ืชืืื ื ืืืืื ืืช ืื ืืืื ืกืื ืฉื ืืขืจืืืช ืืืื ืคืจืืื, ืืืื ืืขืืื ืืจื ืืงืฆืืืช, ืฉืืืืช ืืืฉื ืืืกื ื ืชืื ืื ืืืจืืืืช ืืงืจืช ืืฉืืืืช ืืืจืืืืช.
ืืืคืืื ื ืืคืชื ืืืืืื:
- ืชืืืื ืืืื ืื ืืชืื ืขืืืจ ืกืคืจื ืขืืชืงืื ืฉื COBOL, ืืื ื ื ืชืื ืื ืืงืื ื ืื ื-REDEFINES
- ืืืืื ืกืื ืื ืฉื ืชื ืืขืืช ื ืชืื ืื, ืืืื ืืฉืชื ืื ืืืืืืงืช ืืงืจื
- ืงืืืืช ืืกืืก ืงืื ืืืืืืืืช ืืงื ื ืืืื ืืืื, ืืืกืืืืช ืืืคื ืืืืืืื ื ืฉืืจืืช
- ืฉืืืื ืขื ืืืืจื ืืื-ื ืชืื ืื, ืฉืจืฉืจืืืช ืืืื ืฉื DevOps ืื ืฉืืืืช ืืืืื ืืืชืืืืช ืืืฉืืช
ืืืืืชื ืืืืืช ืฉืืืืฉ ืืืืืจืื ืืจืืช ืืฉืื ืืืืืืช ืชื ืืขืช ื ืชืื ืื ืืืคืฉืจืช ืืืืื ืืืืืง ืฉื ืืืงืืืืช ืืื ืกืืืจ ืืืชืจืืฉ ืืืืฉืืช ืืืืจ.
ืชืืื ืืช ืขืืงืจืืืช ืืืืืื ืืฆืคืช ืืืืจ
Smart TS XL ืืชืืงื ืืืื ืื ืืกืคืฆืืคืืื ื-COBOL ืฉืืื ื ืืืื ืืืืคืืข ืืืืฉืืช. ืืื ืืืืืื:
- ืคืขืืืืช MOVE ืืื ืืืจืื ืฉืืืช ืื ืชืืืืื
- STRING ื-UNSTRING ืืชืื ืืืจืืช ืืืืื ืื ืืกืคืืง
- ืฉืืืืช ืืืืจื ืืืืฉ ืฉืืื ืืื ื ื ืชืื ืื ืืื ืืืชื ืืขืืจ ืืืืืืืช ืฉื ืืืจ
- ืืืืืืช OCCURS ืืืื ืืงืกืืช ืฉื ืืืฉื ืืืืื ืืืืฆืขืืช ืืชืื ืชืืชืื ืืืืฅ ืืชืืื
ืืืืื โ ืืืืื ืื-ืืชืืื ื-MOVE:
01 PRODUCT-NAME PIC X(12).
01 INPUT-FIELD PIC X(30).
...
MOVE INPUT-FIELD TO PRODUCT-NAME.
ืื ืืข ืื ืืชืื ืืกืื ืฉืืจื ืื ืืืืืื ืฉืฉืื ืืืงืืจ ืืืื ืืฉืืขืืชืืช ืืฉืื ืืืขื, ืืืื ืืื ื ืืคื ื ืงืืฆืืฅ ืื ืืืืืงืช ืืืืืช ืืงืืื. ืืื ืืืื ืืืช ืืืืืฉื ืฉืงืื ืคืืื ืฆืืืืืช ืฉืขืืืื ืืืจืืก ืฉืืืช ืกืืืืื.
Smart TS XL ืืืื ืื ืืขืงืื ืืืจ ืืืืคื ืฉืื ื ืชืื ืื ืืืจืืื ืืจื ืืกืคืจ ืืืืืื ืขื ืคื ื ืคืกืงืืืช ืืชืืื ืืืช, ืืืื ื ืืคื ืืืื ืฉื ืืืืคื ืฉืื ืขืจืื ืงืื ืืชืคืฉืืื ืื ืงืืืืช ืกืืืื.
ืืืฆื Smart TS XL ืืกืืืข ืื ืืชืื ืกืืื
ืืืื ืืื ื ืืืื ืืืคืฉื ืฉื ืืกืืก ืืงืื ืฉื COBOL, ืชืื ืคืืชืจ ืืช ืื ืืืืืืืช, ืืืืืจืืช ืืืืฉ ืืืขืืจืืช ืืืงืจื. ืืื ืืืฆืจ ืืืืื ื ืชืื ืื ืืืืื ืฉื ืืืื ืฉืืืช, ืืืืื ืืฉืชื ืื ืืืงืืขื ืืืืจืื ืืฉืืชืคืื, ืืืืืจ ืืื ืื ืชื ืืืฆื ืื ืชืื ืื ืืืืคืืื ืืืืขืืจืื.
ืืืืืืช ืจืืืื ืืืืช ืืืืืื ืืืืฉื ืืืืืืช:
- ืืขืงื ืืืจ ื ืชืื ืื ืืื-ืชืืื ืืืช (ืืืฉื, ืืขืงื ืืืจ ืฉืื ืืืงืื ืืขื ืืฉืืืืฉ ืืกืืคื)
- ืืืฉืืจ ืฉืืืช ืืืืืืงืช ืืืืคืช ืืืื
- ืืืคืื ืืืืชื ืฉื ื ืชืืื ืืจืืืช ื ืชืื ืื ืืืืืืืื ืื ืงืืืืช ืืืืฉื
- ื ืืชืื ืชืืืขืช ืืงืฉืจ ืืืืื ืืจืืืฆืืืช ืฉื ืืืืืงืืื ืืืคืฉืจืืืืช ืืื ืจืืฆื ืฉื COBOL
ืืืืื ืื ืืืคืฉืจ ืืืื ืื ืจืง ืืืืืช ืื ืืชืืืืช ืืจืืจืืช ืืืืจื, ืืื ืื ืืชืคืืก ืืงืจื ืงืฆื ืืืืืืื ืฉืืืืฉ ืืืืจ ืืืจืื ืืืืืจืื ืื ืืคืืกื ืืงืฆืื ืขืงืืคืื.
ืืชืจืื ืืช ืืฉืืืืฉ ื-Smart TS XL
ื ืืชืื ืกืืื ืขืืืจ COBOL ืืืื ืืืื ืืื ืขืืืง, ืืืืง ืืงื ื ืืืื. Smart TS XL ืืกืคืง ืืช ืื ืฉืืืฉืช ืืชืืืืื:
- ืืื ืฆืืจื ืืืฆืข ืฉืื ืืืื ืื ืืจื ืกืคืืจืืฆืื ืฉื ืงืื ืืืืจ ืงืืื ืืฆืืจื ื ืืชืื
- ื ืืื ืืช ืืืืื ืืืืืื ืชืืืืจ ืืกืื ืืืงื ืฉื ื ืชืื ืื ืกืคืฆืืคืืื ื-COBOL
- ื ืืชื ืืืืืืจ ืื ืฉืืกืื ืจืง ืกืืืื ื ืืืืฉื ืื ืืชื ืื ืืคืขืืื, ืืืื ืืืคืืืช ืจืขืฉ
- ืืืืฆืจ ืืืืืช ื ืืชื ืื ืืืขืงื ืืืงืจื ืขืืืจ ืฆืืืชื ืชืืืืืช ืื ืคืืชืื
ืืืืฉืื ืฉืื ืืืื ืืืงืจ ืืกืืืืืช ืืื ืฉืืืืืช ื ืชืื ืื ืขืืืืืช ืืืชืืื ืืคืขืจืื ืคืื ื ืกืืื, ืืคืจืืช ืจืืืืืืจืืืช ืื ืืฉืืื ืืื ืืืงืื. ืขื ืืื ืืชืืงืืืช ืืืืืง ืืชืืืืืช ืืืขืจืืืช ืืืืจ ืงืืื, ืืคืืืคืืจืื ืืืืืื ืฉืืืืื ืืืืฉืืช ืืืื ืืกืืื ืืืขืฉื ืืืื.
ืชืืืืช ืืขืืืื ืขื Smart TS XL
ืืคืจืืกื ืืืืืช ืกืจืืงื ืฉื ืกืืืืช ืืืฉืื COBOL ืืืื, ืืืื:
- ืงืื ืืงืืจ (ืชืืื ืืืช, ืืืืจืืช)
- ืงืืฆื JCL ืืื ืชืฆืืจื ืงืฉืืจื
- ืืืืืงื ืกืคืฆืืคืืช ืืกืืืื ืืคืืจืืฉ ืืืืืงื
ืืืืจ ืืืืขื, ืืคืืืคืืจืื ืืืคืฉืจืช ืืฆืืืชืื ืืืืืืจ ืืืืื ืืืชืืืื ืืืฉืืช, ืืชืขืืฃ ืกืืื ืกืืืื ืื ืืืืฆืืจ ืคืื ืืคืืจื ืืืืื ืืขืืืช ืืจืืช ืืงื, ืืืืืจืืืช ืืจืืืช ืืงืจื ืืกืืืืื ืกืืืื ืื.
ืืืชืงื ื ืืจืืฉืื ืืช ืขืฉืืื ืืืืื ืืื ืืืจืฆืื ืขื ืฆืื ืืจืืช ืคืืชืื ืงืืืืื ืื ืืขืจืืืช ืืืืืช ืืืืืช. ืืืืจ ืืกืจืืงื ืืจืืฉืื ื, ืืจืืื ืื ืืืืืื ืืชืืื ื ืืชืื ืืชืืฉื ืื ืืฉืื ืชืืฆืืืช ืืชืืืืื ืืงืจืช ืฉืื ืืืื.
ืืขืืฆืื ืฉื Smart TS XL ืืืชืื ืืืขืจืืืช ืืจืื ืฉื ืืืฆืืจ ืืื ืืื ืืฉืืชื ืืื ื ืืืคืฆืื ืืืืฉืจ ืืืืชืืจ ืืขืืืช ื ืกืชืจืืช ืืื ืืืืฉืืช ืืืืจ ืืฉ ืขืจื ืชืคืขืืื ืืืืชื.
ืชืืืื ืฉืื ืืืจ ืฉืื ืืืืืื ืืฆืคืืช ืืืืจ
ืืืฆืืข ื ืืชืื ืกืืื ืืืฉืืคืช ืืืืฉืืช ืืืืจ ื-COBOL ืืืจืฉ ืชืืืื ืขืืืื ืืืื ื ืืืืจืชื. ืืขืจืืืช ืืืืจ ืงืืื ืืืจืืืืช ืืจืื ืืืืืืืื ืืืืืจืื ืืืื, ืกืคืจื ืขืืชืงืื ืืืืืขืื, ืืืืจืืช ืืืืจืื ืืฉืืชืคืืช ืืืืืืงื ืขืกืงืืช ืืคืจืืกื ืขื ืคื ื ืขืฉืจืืช ืฉื ืื ืฉื ืืจืกืืืช. ืืื ืชืืืื ืืืืจื, ืืคืืื ืืื ื ืืชืื ืืขืื ืื ืื ืชืืฆืืืช ืื ืฉืืืืช ืื ืืืขืืช. ืกืขืืฃ ืื ืืชืืจ ืืชืืืืืืืื ืืขืฉืืช ืฉืืจืืื ืื ืืืืืื ืืืฉืชืืฉ ืื ืืื ืืืฉืืฃ ืกืืืื ื ืืืืฉื ืืฆืืจื ืืืืืงืช ืืืขืืื.
ืืืืจื ืืื ืืกืจืืง ืืช ืื ืืกืืก ืืงืื, ืืืื ืืืฆื ื ืชืื ืื ืืืจืืื ืืจืื, ืืืืืช ื ืงืืืืช ืื-ืืชืืื ืืื ืืืื ืฉืืืช ืืคืขืืืืช ืฉืื ืฉืขืืืืืช ืืืจืื ืืืืืฉื. ืื ืฉืื ืืชืืกืก ืขื ืืงืืื, ืืืืืื ืฉืชืืื ืืช ืืจืืช ืืฉืื ืืืืกืกืืช ืขื ืืงืฉืจ ืืืื ืฉื ืืชืืื ืืช.
ืฉืื 1 โ ืืื ืช ืงืื ืืืงืืจ
ืืืจืืฉื ืืจืืฉืื ื ืื ืืชืื ืืขืื ืืื ืืืกืืฃ ืื ืืืืจื ืืืงืืจ ืืจืืืื ืืืื. ืื ืืืื ืื ืจืง ืืช ืชืืื ืืืช COBOL ืืื ืื ืืช ืกืคืจื ืืขืืชืงืื, ืกืงืจืืคืืื ืฉื ืฉืคืช ืืงืจืช ืืฉืืืืช (JCL) ืืื ืคืงืืืืช ืืืงืจื ืื ืงืืฆื ืชืฆืืจื ืกืคืฆืืคืืื ืืกืืืื. ืืคืืื ืืืืฆืช ืกืคืจ ืขืืชืงืื ืืื ืขืืืื ืืขืืืช ืืช ืืื ื ืืืืจืืช ืื ืชืื ืื ืืืืืืื ืืืกืงื ืืช ืฉืืืืืช ืืืืื ืื ืืชืื.
ืืจืื ื ืืช ืืงืืฆืื ืืืื ื ืขืงืื ืื ืืืฉ:
- ืชืืื ืืืช ืืกืคืจืืื ืืืช
- ืกืคืจื ืขืืชืงืื ืืชืช-ืกืคืจืืื ืขื ืืคื ืื ืืจืืจื
- ืกืงืจืืคืื JCL ืืชืฆืืจื ืืงืืืฆืื ืืคื ืืจืืืช ืืืฆืืข
ืคืชืืจ ืืฉืชื ืื ืกืคืฆืืคืืื ืืกืืืื ืืืืฉืืจ ืืืจืจืืืืช ืงืืฆืื ืืืืืช ืืฆืืจื. ืืื ืื ืืชืื ืืงืืง ืืชืฆืืื ืืืื ืืืืชื ืืคืจืืขื ืฉื ืื ืืืืืช ืชืืื ืืช ืืื ืืืื ืืืืืืง ืืช ืืชื ืืืืช ืืชื ืืขืช ืืืฉืชื ืื.
ืฉืื 2 โ ืืืืจืช ืื ืชื ืกืืื
ืืืืจ ืืจืืืช ืงืื ืืืงืืจ, ืืฉืื ืืื ืืื ืืืืืืจ ืืช ืืื ืชื ืขืืืจ ืืกืืืื ืฉืื. COBOL ืงืืื ืืืืืืงืืื ืจืืื, ืืืืืจืช ืืืืืงื ืฉืืื ืขืืืื ืืืืืื ืื ืืชืื ืฉืืื ืื ืืกืืืื ืื ืฉืื ื ืืฉืคืื ืืืืื.
ืืืืจ ืืช ืืชืฆืืจืืช ืืืืืช:
- ืืืืืงื COBOL (ืืืฉื, IBM Enterprise COBOL)
- ืคืืจืื ืฉืืจื (ืงืืืข ืื ืืืคืฉื)
- ืืืืจืช ืืืืืช ื ืชืืืื
- ืื ืืืืช ืงืื-ืืขืื (ืขืืืจ ืืืืืงืช ืงืืืคืืืฆืื ืืืชื ืืช)
ืืฉืื ืื ืืืืืืจ ืืขืืคืืช ืืืืืื ืืืืจืื. ืืืืืื, ืืฉ ืืืืืื ืืื ืืืื ืฉืืืช ืืกืคืจืืื ืฆืจืืืื ืืืคืขืื ืืืืจืืช ืื ืื ื ืืชืืื, ืืืื ืืฉ ืืืชืืืืก ืืืงืืขื REDEFINES ืืื ืืงืืขืื ืฉืืื ื ืืืืืื ืื ืืช ืื ืื ืืืคืคืื ืืืืืืงืช ืื ืืชืื.
ืฉืื 3 โ ืืฆืืจื ืื ืืคืขืื ืฉื ืืืื ืืืืื ืืืืฉื
ืจืื ืืื ืชืืื ืืืืขืื ืขื ืืืืื ืืจืืจืช ืืืื ืืืืืื ืืืืฉืืช, ืื ืกืืืืืช COBOL ืืืจืฉืืช ืืขืชืื ืงืจืืืืช ืืชืืื ืืืฉืืช. ืืชืืืื ืืช ืืืืืื ืืกืืื ืืคืขืืืืช ืืืืื ืื ืื ืคืืฆืื ืืืืฉืื ืฉืืื.
ืืืืืืืช ืืืคืืกืื ืืกืืื ืื ืฉืืืื ืืืชืืงื ืืื:
- ืืขืืจ ืืฉืื ืืืคืื ืืืจื ืืจืื ืืฉืื ืงืฆืจ ืืืชืจ
- ืคืขืืืืช STRING ืืืฉืืืืช ืงืื ืืฉืชืืฉ ืืืชื ืืืืื
- ืืืืืจืื ืืืืฉ ืืช ืืืืืืช ืืืื ืืฉืืืช ืืืืฆืืช
- ืืืฉื ืืืขืจืื OCCURS ืืื ืืืืืช ืืืื ืืื ืืงืก
ืืืืื ืืืืืืงื ืฉื ืืืืื:
ืืืืืช ืืชื ื MOVE ืฉืื ืืืงืืจ ืืืื PIC X(30) ืื ืืืื ืืืชืจ, ืืืืืจื ืืฉ PIC X(10) ืื ืงืื ืืืชืจ. ืืืื ืืืืจ ืืกืื ืืืช ืื ืื ื ืืฆืื ืืืืืงืช ืงืืฆืืฅ ืืื ืืื, ืืืื INSPECT or IF LENGTH OF ืืืืืง.
ืฉืื 4 โ ืืืฆืืข ื ืืชืื ืืกืงืืจืช ืืืฆืืื
ืืืืจ ืฉืืืืืื ื ืงืืขื, ืืฉ ืืืฆืข ืืช ืืกืจืืงื ืขื ืคื ื ืื ืืกืืก ืืงืื. ืืืื ืืืืจ ืืืืฆืจ ืจืฉืืื ืฉื ืืืืจืืช ืื ืืืฆืืื ืืืกืืืืื ืืคื ืกืื, ืืืืจื ืืืืงืื.
ืืืืื ืืกืงืืจื, ืืฉ ืืชืขืืฃ ืืช ืืืืฆืืื ืขื ืกืื ืืฉืคืขื ืขืกืงืืช ืื ืืฆืื. ืืืืืื:
- ืืืืฉืืช ืืฉืืืช ืืกืคืจ ืืฉืืื ืขืืืืืช ืืืฉืคืืข ืขื ืืืืื ืืืงืื
- ืืืืฉืืช ืืฉืืืช ืืงืจืช ืืขืจืืช ืขืืืืืช ืืืืืื ืืืฉืืื ืืืฉืืืช ืืฆืืื
- ืืขืืืช ืืืืืืื ืืฆืืจืช ืืืืืช ืขืฉืืืืช ืืืืืช ืืขืืืช ืกืืืื ื ืืื ืืืชืจ ืื ืื ืืืืกืกืืช ืขื ืคืื ืืืื
ืืืื ืขื ืืืืืื ืืืืื ืฉื ืืืืจืืช ืืขืืืช ืกืืืื ื ืืื, ืืืืืื ืฉืื ืขืืืืืช ืืืืืืจ ืืืจืืื ืฉืืื ื ื ืจืืืช ืืขืื ืืืืคื ืืืืื.
ืฉืื 5 โ ืืืืื ืืชืืงืื
ืืืืจ ื ืืชืื ืืืขืืืช, ืืฉ ืืืืฆื ืืช ืืืืฆืืื ืืคืืจืืืื ืืืชืืืืื ืืฆืืืชื ืคืืชืื ืื ืืืงืืจืช. ืืืืืืช ืฆืจืืืื ืืืืื:
- ืฉื ืืชืืื ืืช ืืืกืคืจ ืืฉืืจื
- ืกืื ืืืืฉื ืื ืื-ืืชืืื
- ืชืืงืื ืืืฆืข ืื ืืคืืก ืืืืืงืช ืืคื ืื
- ืืจืืืช ื ืชืื ืื ืขื ืืคื ืืืช ืฆืืืืืช ืืืืืช ืืฆืืจื
ืชืืงืื ืืืื ืืืืื:
- ืืจืืืช ืฉืืืช ืืขื
- ืืฆืืช ืืืืงืืช ืงืืฆืืฅ
- ืืจืืื ืืืืฉ ืฉื ืคืจืืกืืช REDEFINES
- ืืืกืคืช ืืืืืช ืืืจื ืืคื ื ืคืขืืืืช MOVE ืื STRING
ืฉืืื ืฉืืื ืชืืงืื ืืืจืืืืช ืขืืืื ืฉื ืืงืจืช ืืจืกืืืช ืื ืืืขืจืืืช ืืงืฉืืช ืฉืื ืื ืืื ืืฉืืืจ ืขื ืขืงืืืืช ืื ืืืื. ืืืืืช ืืืคืฉืจ, ืืคืขืืื ืฉืื ืืช ืื ืืชืื ืืกืืื ืืืืจ ืืขืืืื ืื ืืื ืืืฉืจ ืฉืืืขืืืช ื ืคืชืจื ืืืืืื ืืื ืืืฆืื ืกืืืื ืื ืืืฉืื.
ืชืืืื ืื, ืืืฉืจ ืืื ืืฉืืื ืืืืืืจื ืชืืืืงื ืฉืืืคืื, ืืกืืืข ืืืืืื ืฉืืขืจืืืช COBOL ืืืืจ ืงืืื ืืืฉืืจื ืืืืืืืืช, ื ืืชื ืืช ืืืืงืืจืช ืืขืืืืืช ืืคื ื ืคืืืขื ืฉืงืื ืื ืชืื ืื ืื ืืจืืช ืืชืืฆืื ืืืืืฉื.
ืืชืืืช ืืืืื ืืืชืืืื ืืืฉืืช ืืืืืื ืืืืฉืช ืืืืจ COBOL
ื ืืชืื ืกืืื ืืขืื ืืืืชืจ ืืืฉืจ ืื ืืข ืืืืืื ืฉืื ืืืชืื ืืืคืืกื ืืชืื ืืช ืืคืืขื ืื ืืฆืืื ืืืขืจืืืช COBOL ืฉืืื. ืืขืื ืฉืขืจืืืช ืืืืื ืืจืืจืช ืืืื ืืืกืืช ืชืจืืืฉื ืืืืฉื ื ืคืืฆืื, ืงืื ืืืืจ ืงืืื ืืืื ืืขืชืื ืงืจืืืืช ืืื ืื ืกืคืฆืืคืืื ืืชืืื, ืืืกืืืืช ืืชื ืฉืืืช ืื ืคืจืืกืืช ืืืืจืื ืืืืจืฉืืช ืคืืชืื ืืืืื ืืืชืืืื ืืืฉืืช. ืืชืืืช ืืืืื ืืื ืืืคืฉืจืช ืืฆืืืชื ืืืืื ืืืืคืชืืื ืืืืื ืืืืคื ืืืื ืืชื ืืืืช ืื ืืืืื, ืืืคืืืช ืชืืฆืืืช ืืืืืืืช ืฉืืืืืช ืืืืืืื ืืช ืืืืกืื ืืืขืืืช ืฉืงืฉื ืืืืืช ืืืื ืืืืฉืืช ืืืืจื ืืืืฉ ืื ืงืืฆืืฆืื ืฉืงืืื ืืฉืืืช ืืงืื ื ืื.
ืืื ืืืชืื ืืืฉืืช ืฆืจืื ืืฉืื ืืืืื ืืื ื (ืืืื ืืฉืคืืื ืื ืกืขืืคืื ืกืคืฆืืคืืื ืฉื COBOL) ืขื ืืืื ื ืกืื ืืืช (ืืืื ืืืืื ืชื ืืขืช ื ืชืื ืื ืื ืืืื ืช ืื ืื ืืืช ืืืื ืฉืื ืื ืืืืืืช). ืกืขืืฃ ืื ืืกืืืจ ืืืฆื ืืขืฆื ืืืืื ืืืื ืืืืืง ืืืืขืืืืช.
ืืชืืืช ืชืื ืืืช ืขื ืื ืืขื ืืื ืกืืืืื
ืื ืชืืื ืกืืืืื ืืชืืืืื ื-COBOL ืืฆืืขืื ืืืจื ืืื ืชืฆืืจืช ืืืืื ืืืืฆืขืืช ืฉืคืืช ืกืคืฆืืคืืืช ืืชืืื, ืกืืืืช XML, ืขืฆื ืชืื ืืืช ืื ืืืฉืงื ืกืงืจืืคืืื. ืืื ืืืืืช ืืืืฉืืช, ืืืื ืืืื ืืืืืช ืืช ืืคืขืืืืช ืืืืืืงืืช ืฉืืืืืืช ืืืจืื ืืื-ืืชืืืืช ืืืืื ืืืขืงืื ืืืจืืื ืืืจื ืืืืืจืืช ืฉืืื.
ืืืืื: ืืืืื ืคืขืืืืช MOVE ืื ืืืืืืช
ืืคืืก ืืืื ืืืืืื ืืืืฉืช ืืืืจ ืืืืฆืขืืช MOVE ื ืจืื ืืื:
IF operation = "MOVE"
AND length(source-field) > length(target-field)
AND no truncation or validation logic is present
THEN flag overflow risk
ืืืง ืืืื ืชืืื ืืฆืืขืื ืืืฉื ืืจืืช AST (ืขืฅ ืชืืืืจ ืืืคืฉื). ืืืงืจืื ืืืื, ื ืืชื ืืืื ืืช ืืืื ืขื ืืื ืืืืงื ืื:
- ืฉืื ืืืงืืจ ืืืืืจ ืืืืฆืขืืช
PIC X(n)ืืืฉืจ n > ืกืฃ (ืืืฉื, 30) - ืฉืื ืืืขื ืืืืืจ ืืืืฆืขืืช
PIC X(m)ืืืฉืจ m < ืกืฃ (ืืืฉื, 15) - ืืฉืืืื
MOVEืืชืจืืฉ ืืื ืชื ืืIF LENGTH OForINSPECTืกืืื - ืฉื ื ืืฉืืืช ืืืืคืื ืืฉืืจืืช ืื ืืฉืืชืคืื ืืืืฆืขืืช ืืฉืชื ื ืงืืืฆื ืื
REDEFINES
ืืืืืช ืงืื:
01 EMAIL-ADDRESS PIC X(40).
01 USERNAME PIC X(12).
...
MOVE EMAIL-ADDRESS TO USERNAME.
ืื ืืืืจ ืืืคืขืื ืืชืืืช ืืืืื ืืืืืื EMAIL-ADDRESS ืขืืื ืขื ืืืงืฆืื ืฉื USERNAME, ืืืื ืืืืืช. ืืื ืืชืื ืืืื ืฆืจืื ืื ืืขืงืื ืืืจ ืืงืืจ ืื ืชืื ืื. ืื EMAIL-ADDRESS ืืืืข ืืงืื ืืฉืชืืฉ ืื ืืจืฉืืื ืืืฆืื ืืช, ืืกืืืื ืขืืื ืืืฉ ืืืชืืื ืืช ืืืืจืชื ืืืชืื.
ืืืืื ืืชืงืื:
ืขืืืจ ืืืืืงื ืฉืืืชืืช ืื ืชืืื ืืืช ืขื ืืจืืื ืืืจืืืช, ืืืชืื ืฉืืืืื ืืฆืืจืื ืืชืืื ื:
- ืืขืงื ืืืจ ืืฉืชื ืื ืืื ืคืกืงืืืช
- ื ืืชืื ืขื ืคื ื ืฉืืจืืช PERFORMed
- ืกืืืื ืฉืจืฉืจืืืช MOVE (A ื-B, B ื-C) ืฉืืื ืืืืืฉื ืืชืจืืฉืช ืืขืงืืคืื
- ืืืืื ืืื ืืืชื ื ืืืฉืจ ืืงืืฆืืฅ ืืืืคื ืืจืืื
ืืขืงื ืืืจ ืืืื ืืืืืืืช ืืฉืชื ืื
ืืืืื ืืืืฉื ืงืฉืืจ ืืืืคื ืืืืชื ืืืื ืช ืืืืื ืืืืฆืืจ ืืืืืชื ืฉื ืืืื ืื ื ืชืื ืื. ืขืืืจ COBOL, ืื ืืจืื ืื ืืชืื PIC ืกืขืืคืื, ืืืืื ืืืฉืื VALUE or USAGE ืืืคืืื ืื ืืคืชืจืื ืืืืจื ืืืกืื ืฉืืืืืจื ืืืืฉ.
ืืืื ืืื ืืจืืืืื ืืืืืื ืืืืืื:
PICืืืืื ืืืื ืืกืคืจืื ืขืฉืจืื ืืื ืืฉืชืืขืื (ืืืฉื,9(6)V99ืฉืืื ืขืจื ื-8 ืืืืืื ืืกื ืืื)OCCURSืืืคืื ืืคืกืงืืืช, ืชืื ืืืืืช ืืืืื ืืืืืืช ืืืขืจื- ืฆืืืจืช ืฉืืืช ืงืืืฆืชืืื, ืืืฉืจ ืฉืืืช ืื ืืืืืื ืชืชื-ืฉืืืช ืืงืื ื ืื
REDEFINESืืคืืคื, ืฉืื ืืืืจืื ืืฉืืชืฃ ืขืฉืื ืืืืืช ืืฉืืืืฉ ืื ืขืงืื
ืืืืื ืืฉืืืืฉ ืืจืขื ื-OCCURS:
01 TRANSACTION-HISTORY.
05 ENTRY OCCURS 10 TIMES.
10 DATE PIC 9(8).
10 AMOUNT PIC 9(5)V99.
...
MOVE 12345 TO AMOUNT(11).
ืืื ืืชืคืืก ืืช ืื, ืืืื ืฉืื ืืืื ืืืืื:
- ืืืืื ืืขืืืื ืืืืฆืืจ (
OCCURS 10) - ืืื 11 ืืืืฅ ืืืืื
- ืฉืืื ืืืืงืช ืืืืืืช ืืืืืืงื
ืืืง ืืืื ืชืืื ืืืคืฉืจืื ืืืืื ืฉื ืกืคืื ืืื ืืืื ืื ืงืืืขืื ืืืืืจืื ืขื ืืื ืืืฉืชืืฉ. ืื ืืืื ืืงืก ืืื ืข ืขื ืืื ืืฉืชื ื (AMOUNT(I)), ืื ืืืื ืืืื ืืืืื ืืืืืงื ืฉืืืืงืช ืืืฆื I ืืืืืช ืืคื ื ืืฉืืืืฉ.
ืืืืื ืืืืืืงื ืืืืืช (ืคืกืืืื-ืงืื):
IF variable = OCCURS-array-access
AND subscript-value > OCCURS-declared-size
AND no prior validation of subscript
THEN flag as potential out-of-bounds write
ืืืืื ืืชืงืืืื ืืืชืจ, ื ืืชื ืืฉืคืจ ืขืื ืืืชืจ ืืช ืืืืืื ืืืืฆืขืืช ื ืืชืื ืืืืืืื. ืื ืืืคืฉืจ ืืื ืืข ืืขืงืื ืืืจ ืืื ืขืจืืื ืื ืืืืืื ืืงืืจื ืืงืื ืืฉืชืืฉ, ืจืฉืืืืช ืืกื ื ืชืื ืื ืื ืงืืฆืื ืืืฆืื ืืื - ืชืื ืืืืฉืช ืกืืืื ื ืืืืฉื ืฉืืื ื ืจืง ืชืืืืจืืืื, ืืื ืื ืจืืืื ืืืื ืืชืงืืคื.
ืืื ืืงืืช ื ืืกืคืืช ืืขืืฆืื ืืืืื
- ืืืืื ืืืืข ืืืงืฉืจ: ืื ืืืืืช ืงืื ืืกืืื ืืชืื ืืืืงืื ืืืืงืจืื ืกืคืฆืืคืืื (ืืืฉื, ืืืืืงืช ืงืืฆืืฅ ืืืืื ืืืืขื)
- ื ืืงืื ืืืืจื: ืืืจืื ืืืฆืืื ืขื ืกืื ืกืื ืืฆืคื, ืงืจืืืืืช ืื ืชืื ืื ืื ืจืืช ืืืฉืืคื
- ืชืืื ืฉืื: ืืืกืืคื ืชืื ืืื-ื ืชืื ืื ืืฉืืืช ืงืจืืืืื (ืืืื ืืืืื, ืืชืจืืช ืื ืืืื ืืงืจื) ืืื ืืืืื ืกืคื ืืืืฉื ืืืืืจืื ืืืชืจ.
ืืืืื ืืฉืืืืฉ ืืชืืื:
01 CUSTOMER-ID PIC X(10). *> #critical
ืืืืืงืช ืืืืืื ืฉืื ืืืืื ืืืืื ืืืืงื ืืืืงืืงืช ืืืชืจ ืขื ืฉืืืช ืฉืชืืืื ื #critical ืืืืฆืืจ ืืชืจืืืช ืืืืืืช ืืืชืจ.
ืืชืืืช ืืืืื ืืืชืืืื ืืืฉืืช ืืืงืื ืืืจืฉืช ืฉืืชืืฃ ืคืขืืื ืืืืง ืืื ืืคืชืืื, ืฆืืืชื QA ืืฆืืืชื ืืืืื. ืืืฉืจ ืืืืืื ืืชืืืฉืืื ืขื ืืคืืกื ืืงืืืื ืฉื ืืืคืืืงืฆืื ืืืืืืงืช ืืืืืืื, ืื ืืืคืืื ืืืืฆืขื ืืื ื ืจืื ืขืืฆืื ืืคื ื ืคืืืขื ืฉืงืื ืื ืชืื ืื ืื ืืจืืช ืขื ืืื ืืืืฉืืช ืืืืจ ืฉืื ืืืืืช ืืชืฉืืืช ืื.
ืฉืืืืช ืขืืืื ืืืืืฆืืช ืืืืคืื ืืงืฆืืขืืื
ืืืืื ืืืืฉืืช ืืืืจ ื-COBOL ืืื ื ืืืจืืข ืื ืคืขืื. ืืื ืืืจืฉ ืชืฉืืืช ืื ืขืงืืืช, ืืืืืื ืืกืืืืืช ืืืืจ ืงืืื ืฉืืื ืฉืื ืืื ืงืื ืืจืื ืืืื ืืืื ืืืจื ืืื ืฉืื ืฉืืชืื ืืืชื ืืืงืืจ. ื ืืชืื ืกืืื ืืืคื ืืืขืื ืืืืชืจ ืืืฉืจ ืืื ืืฉืืื ืืชืจืืืช ืจืืื ืืืชืจ ืฉื ืคืืชืื ืืืืืื ืื ืืืื ืืขืจืืช ืืจืื ืืืื. ืกืขืืฃ ืื ืืชืืจ ืฉืืืืช ืขืืืื ืืืืืฆืืช ืืืื ืืงืืช ืืงืฆืืขืืืช ืืฉืืคืืจ ืืืืืง, ืืืืื ืืช ืืืขืจื ืฉื ืืืืื ืืืืฉืืช ืืืืจ ืืืขืจืืืช COBOL.
ืฉืื ื ืืชืื ืกืืื ืขื ืกืงืืจืช ืงืื ืืื ืืช
ืืขืื ืฉืืื ื ืืชืื ืกืืื ืืฆืืขืื ืืืืจืืช ืืืืกืื, ืื ืืจืืืืืื ืจืืืช ืืคืืงืื ืื ืืฉื. ืชืืื ืืืช COBOL ืจืืืช ืืืืืืช ืืืืืงื ืกืคืฆืืคืืช ืืชืืื ืฉืืฃ ืงืืืฆืช ืืืืื ืืืืืช ืื ืืืืื ืืืืื ืืืืืื. ืฉืืืื ืกืจืืงืืช ืืืืืืืืืช ืขื ืกืงืืจืืช ืืื ืืืช ืืืืงืืืช ืืกืืืข ืืืืืืจ ืชืืฆืืืช ืืขืืจืคืืืช ืืืืืช ืกืืืื ืืืืชื.
ืืงืืืงืืช ืื ืืชืื ืืืืจืืื:
- ืชืขืืืฃ ืืืฆืืื ืฉืกืืื ื ืืืืืืืื ืงืจืืืืื ืืขืกืงืื ืืฆืืจื ืืืืงื ืืื ืืช
- ืืชืืงืื ืืืืงืืจืืช ืขื ืฉืจืฉืจืืืช MOVE ืืืฉืชืจืขืืช ืขื ืคื ื ืืกืคืจ ืคืกืงืืืช ืื ืชืืื ืืืช
- ืฉืืืื ืืคืชืื COBOL ืืืืจืื ืืคืืจืืฉ ืืื ื REDEFINES ืืืจืืืื
- ืืฉืชืืฉื ืืืืงืืจืช ืขืืืชืื ืืื ืืืืื ืฉืชืืฆืืืช ืืืืืืืช ืฉืืืืืช ืืื ื ืืกืชืืจืืช ืืขืืืช ืขืืืงืืช ืืืชืจ
ืืืืื:
ืื ืชื ืกืืื ืขืฉืื ืืกืื MOVE ื- FIELD-A ื FIELD-B ืืืกืืื ืขืงื ืื ืืชืืื ืืืืื. ืืคืชื ืขืฉืื ืืืืืช ืืืช FIELD-B ืชืืื ืื ืืงื ืืจืืฉ ืื ืืฉืืฉ ืจืง ืืจืืฉืื. ืกืงืืจื ืืื ืืช ืืืืื ืืืืจืื ืืช ืืจื ืืืืฆื ืื ืืชืขื ืืช ืืชืื ืื ืขืืืจ ืืืงืจืื.
ืงืื ืืื ื ืืื ืงืจืืื ืื ืืคืชืจืื ืืืื ืฉืืืช ืืขืืจืคืืื ืืืฉืจ ืชืืื ืืื ืื ืื ืงืืฆื ืชืฆืืจื ืืืชืืืื ืืช ืืืชื ืืืืช ืืคืืขื. ืกืงืืจื ืื ืืฉืืช ืืืฉืจืช ืขื ืืคืขืจ ืืื ืืื ื ืืงืื ืืืืืืงื ืขืกืงืืช.
ืชืืืง ืืืืืืืืืืฆืื ืฉื ืืจืืืช ืืขืืืื ืฉื ืื ืืชืื ืฉืื
ื ืืชืื ืกืืื ืืืคื ืืขืืฆืืชื ืืืฉืจ ืืื ืืืง ืืชืืืื ืขืืืื ืฉืืจืชื. ืืจืฆืช ืกืจืืงืืช ืืื ืืช ืขื ืืกืืก ืื-ืืืง ืืืืืื ืืขืืชืื ืงืจืืืืช ืืืืฆืืื ืืืืฉื ืื ืืืจืืจืกืืืช ืฉืืืืืฆื. ืืืงืื ืืืช, ืฉืืื ืืช ืื ืืชืื ืืชืืืื ืืืืงืจ ืืื ืืื ืขื ืืื ืืจืกืืืช, ืื ืฉืืชืืฆืืืช ืืชืคืชืื ืขื ืืกืืก ืืงืื.
ืืืคืื ืืฉืืืื ืชืืืืื ืขืืืื:
- ืืชืืื ืกืจืืงืืช ืืืืืช ืชืงืืคืชืืืช (ืฉืืืขืืืช, ืืืืฉืืืช ืื ืืืืจ ืื ืืืื ืืฆืืื)
- ืืืกืื ืืกืจืืงืช ืืจืกืืืช ืฉื ืคืืืื ืืฆื ืงืื ืืืงืืจ ืืืืืจ
- ืฉืื ืืืฆืืื ืืืขืจืืืช ื ืืืื ืฉืื ืืืื ืื ืืชืืจื ืืจืืืกืื
- ืืืืืืฆืื ืฉื ืืฉืืืืืช ืืกืืกืืืช ืืื ืืืืืช ืืืืฉืืช ืืืฉืืช ืื ืฉืืืฆืื ืืืืฉ
ืขืืืจ ืฆืืืชืื ืืืืืื ืืืชืจ ืื ืกืืืืืช ืืืกืืจืืช, ืืฉ ืืฉืงืื ืืืืื ืคืืื ื ืืชืื ืืืืืืืช ืืืืงืืจืช. ืื ืืจืื ืื ืจืง ืฉืืืื ืคืืืขืืืืช, ืืื ืฉื ืขืฉืื ืืืืฆืื ืืขืงืื ืืืจืืื ืืืคืชืืจ ืืืชื ืืืืคื ืขืงืื ืืืืจื ืืื.
ืืืืื ืืืืืืช ืืฉืื ืืืืืืืืช:
- ืืืคืชื ืฉืืื ืฉืื ืื ืืืืื ืฉืื ืื ืืืื ืฉืื
- ืื ืชื ืกืืื ืืกืื ืกืืืื ืืืฉ ืืืจืื ืืชืืื ืื
- ืืืื ืืืฆืจ ืืืืืืืืช ืืจืืืก ืขื ืฉื ืงืืืฅ, ืืกืคืจ ืฉืืจื ืืชืืงืื ืืืฆืข
- ืืืืืง ืืืฉืจ ืืช ืืืขืื ืืืงืฆื ืคืขืืื ืืชืงื ืช
- ืืฉืื ืื ืืืืื ืจืง ืืืืจ ืฉื ืืชืื ืืืืจ ืืืฉืจ ืืช ืืคืชืจืื
ืกืื ืื ืฉื ืืืืืช ืืฉืื ืืกืืืข ืืืืืฃ ืืืืืืช ืืืืฉื ืืกืื ืืจื ืืืืืช ืฉืืจืชื ืืื ืืืฉืืืช ืืืืื ืืืืื ืช.
ืงืืข ืกืื ืืจืืื ืืจืืจืื ืืงืืืื ืืืืืืืช ืืฉืื
ืืืช ืืืืื ืืช ืืจืืืืช ืืืืื ืืืขืืืืช ืืืืชืจ ืืคื ื ืืืืฉืืช ืืืืจ ืืื ืืืืจืช ืืืคื ืืืืื, ืืืืฉื ืืืืืืจื ืืืืฉ ืฉื ืฉืืืช. ืืขืจืืืช COBOL ืืืืจ ืงืืื ืจืืืช ืืกืจืืช ืื ืืืืช ืกืื ืืจืืืืช, ืืืืืื ืืืฉืจ ืื ืคืืชืื ืขื ืืื ืกืคืงืื ืืจืืืื ืื ืืืฉื ืืกืคืจ ืขืฉืืจืื.
ืฉืืืืช ืขืืืื ืืืืืฆืืช:
- ืืืื ืขื ืืคืขืืืืช MOVE ืืื ืฉืืืช ืขื ืื-ืืชืืืืช ืืืื ืืื ืื ืื ืืืืชื
- ืืขืจื ืืจืืจื ืืืืืจื ืืืืฉ ืืช ืืืืืืช ืืฉืืืืฉ ืืืขืจื ืืฆืคืื
- ืืืื ืขื ืืงืื ืื OCCURS ืืชืื REDEFINES ืืื ืื ืื ืืืืจ ืืืื ื ืืืชืืขื ืืืื.
- ืืฉืชืืฉ ืืืืกืืืืช ืฉื ืกืขืืคื PIC ืืืฉืงืคืืช ืฆืืคืืืช ืืืจื ื ืชืื ืื ืืืขืืื ืืืืืชื
- ืชืืื ืฉืืืช ืงืจืืืืื ืืชืืืืืช ืืื ืืฉืคืจ ืืช ืืืงืื ืืืืืื ืืืช ืืืืงืื ืืืืงืืจืืช
ืขื ืืื ืคืืจืืืืืฆืื ืฉื ื ืืืื ืืื, ืฆืืืชืื ืืืืืื ืืืคืืืช ืื ืืช ืืกืืืจืืช ืืฉืืืืืช ืืืืฉื ืืื ืืช ืขืืฆืืช ืืจืขืฉ ืืชืืฆืืืช ืกืจืืงื ืืืืืืืืืช.
ืงืฉืจ ืืืฆืืื ืขื ื ืชืื ืื ืชืคืขืืืืื
ืชืืฆืืืช ืื ืืชืื ืืืคืืืช ืืืืืช ืืจืื ืืืชืจ ื ืืชื ืืช ืืคืขืืื ืืืฉืจ ืื ืืงืืฉืจืืช ืืืฉืคืขื ืขื ืืืืฆืืจ. ืืฉืชืืฉื ืื ืชืื ื ืจืืฉืื, ืจืืฉืืื ืืืจืืขืื ืืืืื ื ืขืกืงืืืช ืืื ืืชืขืืฃ ืืืฆืืื ืื ืืชืื ืกืืื. ืืืืฉื ืงืื ื ืืืืฉืง ืงืจืืื ืขืฉืืื ืืืืืช ืืืืคื ืืืชืจ ืืืืืฉื ืืืืื ืืืชืจ ืืฉืืจืช ืืืคืกืช ืืืืืช.
ืืื ืืงืฉืจ:
- ืืืคืื ืืฉืชื ืื ืืกืืื ืื ืืืคืกืื ืืคืื ืื ืืืฉืชืืฉ ืื ืงืื API
- ืงืืฉืืจ ืืืฆืื ื ืืชืื ืืืืจืืขืื ืืืืขืื ืื ืืืืืืื ืคืืืื
- ืืขืจืืช ืกืืืื ื ืืืฅ ืืืชืืกืก ืขื ืชืืืจืืช ืืื ืจืืฆื ืืชื ืืืชืืืช ื ืชืื ืื
ืืงืฉืจ ืื ืืืื ืืกืืืข ืืืงื ืืช ืืืืฆื ืืชืืงืื ืืืขืืืช ืืขืืืช ืืกืืืื ืืืืื ืืืืชืจ ืืขืืื ืืืืืชื ืืืฉืคืจ ืืช ืืืืขืื ืืืฉืงืขื ืืืืืจื ืืืฆืื ืฉื ืืืืืืื ืืืืจ ืงืืื.
ืขื ืืื ืืืฆืืข ืฉืืืืช ืขืืืื ืืืืืฆืืช ืืื, ืืจืืื ืื ืืืืืื ืืืชืงืื ืืขืืจ ืืกืจืืงื ืจืืืงืืืืืช ืืืขืืืจ ืืืื ืชืืืืงื ืืจ-ืงืืืื ืืืขื ืฉืืืืช ืืืืื ืขืืืจ ืืขืจืืืช COBOL. ืืฆืคืืช ืืืืจ ืืื ื ืจืง ืืืืื ืืื ืืื, ืื ืืื ืืืงืืืจืื ืืืจืืืืช ืงืื ืืืืื ืืจืื ืืืชืงืื ืืช ืืจืืืืงืืื ืืช.
ืืืืืง ืงืื ืืืืจ ืงืืื ืขื ืืื ืืืืื ืกืืืื ืื ืฉืงืืื
ืืืืฉืืช ืืืืจ (Buffer Overflows) ื-COBOL ืื ืืืื ื ืกืชืจ ืื ืืชืืฉื ืืขืืื ืืืืฉืื ืืืฉื. ืืขืชืื ืงืจืืืืช ืื ื ืืชืจืืช ืืืชื ืืืืืืช ืืืฉื ืฉื ืื, ืืคืืืขืืช ืืฉืงื ืืืืืง ืื ืชืื ืื, ืืืืื ืืช ืืชืคืขืืืืช ืืืืืืืช ืืืขืจืืช. ืฉืื ืืื ืืกืืืืืช ืชืื ืืช ืืืืจื ืืืช, ืืืืฉืืช COBOL ืืขืืชืื ืจืืืงืืช ืืืจืืืช ืืงืจืืกืืช ืื ืืชืจืืืช ืืืืืืช. ืืืงืื ืืืช, ืื ืืชืืืืืช ืืงืืฆืืฆืื ืฉืงืืื, ืจืฉืืืืช ืคืืืืืช ืื ืืฉืืื ืืืชื ืืืกืืจืื ืืืืืืงื ืขืกืงืืช ืฉืงืฉื ืืืชืจ ืื ืืงืจ ืืืชืขืื ืืื.
ื ืืชืื ืกืืื ืืฆืืข ืืืช ืืืจืืื ืืืขืืืืช ืืืืชืจ ืืืืืื ืคืืืขืืืืช ืืื ืืืงืื ืืืงื ื ืืืื ืืืื. ืืืฉืจ ืืื ืืืืืจ ืืจืืื, ืืื ืืืื ืืขืงืื ืืืจ ืชื ืืขืืช ื ืชืื ืื ืขื ืคื ื ืกืคืจื ืขืืชืงืื, ืืืืจืืช ืืืืฉ ืืขื ืคืื ืคืจืืฆืืืจืืืื, ืืืืืืช ืืืืืืง ืืืื ืืืจืืื ืืืืืืืช ืืฉืืืช ืื ืืืื ืืืืจื ืืืืจืื ืืืืืคืื. ืืคื ืฉืืจืื ืืืืจ ืื, ืืืืื ืืืืฉืช ืืืืจ ื-COBOL ืืื ื ืขืืกืง ืจืง ืืกืจืืงืช ืฉืืจืืช ืงืื. ืืืืืจ ืืืื ืช ืืืื ืืืืืจืื, ืคืืจืืฉ ืืื ื ืืชืืื ืืช ืืืืฉืื ืืืืื ืืืืงืืื ืืืฉืงืคืื ืกืืืื ืื ืืืขืืื ืืืืืชื.
ืืฆืืื ืชืืืื ืืืื ืขืงืจืื ืืช ืืจืืืืื: ืืื ื ืืกืืืืช ืฉื ืงืื ืืืงืืจ, ืืืืจืช ืืื ืืืืืงืช, ืคืจืฉื ืืช ืืืฉืืืช ืฉื ืืชืืฆืืืช ืืืืืืืืช ืืืืืขืช ื ืืชืื ืืืจืืืืช ืขืืืื ืจืืืืืช. ืืืื ืืืชืืืื ืื ืืชืื ืกืืื ืฉื COBOL ืืืคืฉืจืื ืืฆืืืชืื ืืืฉืืฃ ืืขืืืช ืฉืืืจืช ืืื ืืืจืฉืืช ืฉืืืขืืช ืฉื ืกืงืืจื ืืื ืืช ืืื ืืืืืช ืื ืื ืืืื ื ืืฆืื.
ืืืืืฅ ืืืชืจ ืืืชืงื ืืืืฉืืช ืืืืจ ืืื ืืืง ืืืฉืืื ืจืืื ืืืชืจ: ืืฉืืืจ ืขื ืืขืจืืืช ืืืืจ ืงืืื ืืืืืืืืช, ืืฆืืืืช ืืืืื ืืช. ืืขืจืืืช ืืื ืืืฉืืืืช ืืื ืืข ืืช ืืคืขืืืืช ืืขืกืงืืช ืืืืื, ืืื ืจืืืืืช ืืืืชื ืจืืช ืืืืงื ืืืื ื ืืื ืคืืืคืืจืืืช ืืืืจื ืืืช. ืขื ืืื ืืคืืืช ื ืืชืื ืกืืื ืืืืง ืืืกืืจืืืืืช ืืคืืชืื ืืืชืืืืงื ืฉื COBOL, ืืชื ืืฉืงืืขืื ืืืืืืืช ืืืฉืืืืช ืืจืืืืช ืืืืื ืฉื ืืืืฉืืืื ืืงืจืืืืื ืขืืืื ืืืจืืื ืฉืืื ืืกืชืื.