ืžืฆื™ืืช ื”ืฆืคื•ืช ืžืื’ืจ ื‘-COBOL ื‘ืืžืฆืขื•ืช ื ื™ืชื•ื— ืกื˜ื˜ื™

ื›ื™ืฆื“ ืœืžืฆื•ื ื”ืฆืคื•ืช ืžืื’ืจ ื‘-COBOL ื‘ืืžืฆืขื•ืช ื ื™ืชื•ื— ืกื˜ื˜ื™

ืžืขืจื›ื•ืช 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 ืžืœืื”, ื›ื•ืœืœ:

  1. ืงื•ื“ ืžืงื•ืจ (ืชื•ื›ื ื™ื•ืช, ืžื—ื‘ืจื•ืช)
  2. ืงื‘ืฆื™ JCL ื•ื›ืœ ืชืฆื•ืจื” ืงืฉื•ืจื”
  3. ืœื•ื’ื™ืงื” ืกืคืฆื™ืคื™ืช ืœืกื‘ื™ื‘ื” ืœืคื™ืจื•ืฉ ื“ื™ืืœืงื˜

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

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

ื”ืขื™ืฆื•ื‘ ืฉืœ 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 OF or INSPECT ืกืžื•ืš
  • ืฉื ื™ ื”ืฉื“ื•ืช ืžืžื•ืคื™ื ื™ืฉื™ืจื•ืช ืื• ืžืฉื•ืชืคื™ื ื‘ืืžืฆืขื•ืช ืžืฉืชื ื™ ืงื‘ื•ืฆื” ืื• 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 ืชืžื™ื“ ืžื ื•ืงื” ืžืจืืฉ ืื• ืžืฉืžืฉ ืจืง ืœืจื™ืฉื•ื. ืกืงื™ืจื” ื™ื“ื ื™ืช ื™ื›ื•ืœื” ืœื”ื•ืจื™ื“ ืืช ื“ืจื’ ื”ืžืžืฆื ืื• ืœืชืขื“ ืืช ื”ืชื›ื ื•ืŸ ืขื‘ื•ืจ ืžื‘ืงืจื™ื.

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

ืชื—ื–ืง ื•ืื•ื˜ื•ืžื˜ื™ื–ืฆื™ื” ืฉืœ ื–ืจื™ืžืช ื”ืขื‘ื•ื“ื” ืฉืœ ื”ื ื™ืชื•ื— ืฉืœืš

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

ื˜ื™ืคื™ื ืœืฉื™ืœื•ื‘ ืชื”ืœื™ื›ื™ ืขื‘ื•ื“ื”:

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

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

ื“ื•ื’ืžื” ืœืœื•ืœืืช ืžืฉื•ื‘ ืื•ื˜ื•ืžื˜ื™ืช:

  1. ื”ืžืคืชื— ืฉื•ืœื— ืฉื™ื ื•ื™ ื”ื›ื•ืœืœ ืฉื™ื ื•ื™ ื’ื•ื“ืœ ืฉื“ื”
  2. ืžื ืชื— ืกื˜ื˜ื™ ืžืกืžืŸ ืกื™ื›ื•ืŸ ื—ื“ืฉ ื”ื›ืจื•ืš ื‘ืชื—ื•ื ื–ื”
  3. ื”ื›ืœื™ ื™ื•ืฆืจ ืื•ื˜ื•ืžื˜ื™ืช ื›ืจื˜ื™ืก ืขื ืฉื ืงื•ื‘ืฅ, ืžืกืคืจ ืฉื•ืจื” ื•ืชื™ืงื•ืŸ ืžื•ืฆืข
  4. ื”ื‘ื•ื“ืง ืžืืฉืจ ืืช ื”ื‘ืขื™ื” ื•ืžืงืฆื” ืคืขื•ืœื” ืžืชืงื ืช
  5. ื”ืฉื™ื ื•ื™ ืžืžื•ื–ื’ ืจืง ืœืื—ืจ ืฉื ื™ืชื•ื— ื—ื•ื–ืจ ืžืืฉืจ ืืช ื”ืคืชืจื•ืŸ

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

ืงื‘ืข ืกื˜ื ื“ืจื˜ื™ื ื‘ืจื•ืจื™ื ืœืงื™ื“ื•ื“ ืœื‘ื˜ื™ื—ื•ืช ื‘ืฉื˜ื—

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

ืฉื™ื˜ื•ืช ืขื‘ื•ื“ื” ืžื•ืžืœืฆื•ืช:

  • ื”ื™ืžื ืขื• ืžืคืขื•ืœื•ืช MOVE ื‘ื™ืŸ ืฉื“ื•ืช ืขื ืื™-ื”ืชืืžื•ืช ื’ื•ื“ืœ ืืœื ืื ื›ืŸ ืื•ืžืชื•
  • ื”ืขืจื” ื‘ืจื•ืจื” ืžื’ื“ื™ืจื” ืžื—ื“ืฉ ืืช ื’ื‘ื•ืœื•ืช ื”ืฉื™ืžื•ืฉ ื•ื”ืขืจืš ื”ืฆืคื•ื™
  • ื”ื™ืžื ืขื• ืžืงื™ื ื•ืŸ OCCURS ื‘ืชื•ืš REDEFINES ืืœื ืื ื›ืŸ ื”ื“ื‘ืจ ื—ื™ื•ื ื™ ื•ืžืชื•ืขื“ ื”ื™ื˜ื‘.
  • ื”ืฉืชืžืฉ ื‘ืžื•ืกื›ืžื•ืช ืฉืœ ืกืขื™ืคื™ PIC ื”ืžืฉืงืคื•ืช ืฆื™ืคื™ื•ืช ืื•ืจืš ื ืชื•ื ื™ื ืžื”ืขื•ืœื ื”ืืžื™ืชื™
  • ืชื™ื™ื’ ืฉื“ื•ืช ืงืจื™ื˜ื™ื™ื ื‘ืชื’ื•ื‘ื•ืช ื›ื“ื™ ืœืฉืคืจ ืืช ืžื™ืงื•ื“ ื”ื›ืœืœื™ื ื•ืืช ื”ืžื™ืงื•ื“ ื‘ื‘ื™ืงื•ืจื•ืช

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

ืงืฉืจ ืžืžืฆืื™ื ืขื ื ืชื•ื ื™ื ืชืคืขื•ืœื™ื™ื

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

ืื™ืš ืœืงืฉืจ:

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

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

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

ื—ื™ื–ื•ืง ืงื•ื“ ืžื“ื•ืจ ืงื•ื“ื ืขืœ ื™ื“ื™ ื‘ื™ื˜ื•ืœ ืกื™ื›ื•ื ื™ื ืฉืงื˜ื™ื

ื’ืœื™ืฉื•ืช ืžืื’ืจ (Buffer Overflows) ื‘-COBOL ื”ืŸ ืื™ื•ื ื ืกืชืจ ืืš ืžืชืžืฉืš ื‘ืขื•ืœื ื”ืžื—ืฉื•ื‘ ื”ื™ืฉืŸ. ืœืขืชื™ื ืงืจื•ื‘ื•ืช ื”ืŸ ื ื•ืชืจื•ืช ื‘ืœืชื™ ืžื–ื•ื”ื•ืช ื‘ืžืฉืš ืฉื ื™ื, ื•ืคื•ื’ืขื•ืช ื‘ืฉืงื˜ ื‘ื“ื™ื•ืง ื”ื ืชื•ื ื™ื, ื‘ืืžื™ื ื•ืช ื”ืชืคืขื•ืœื™ืช ื•ื‘ืื‘ื˜ื—ืช ื”ืžืขืจื›ืช. ืฉืœื ื›ืžื• ื‘ืกื‘ื™ื‘ื•ืช ืชื›ื ื•ืช ืžื•ื“ืจื ื™ื•ืช, ื’ืœื™ืฉื•ืช COBOL ืœืขื™ืชื™ื ืจื—ื•ืงื•ืช ื’ื•ืจืžื•ืช ืœืงืจื™ืกื•ืช ืื• ื”ืชืจืื•ืช ื’ืœื•ื™ื•ืช. ื‘ืžืงื•ื ื–ืืช, ื”ืŸ ืžืชื‘ื˜ืื•ืช ื›ืงื™ืฆื•ืฆื™ื ืฉืงื˜ื™ื, ืจืฉื•ืžื•ืช ืคื’ื•ืžื•ืช ืื• ื›ืฉืœื™ื ื‘ืœืชื™ ืžื•ืกื‘ืจื™ื ื‘ืœื•ื’ื™ืงื” ืขืกืงื™ืช ืฉืงืฉื” ืœืืชืจ ืืš ื™ืงืจ ืœื”ืชืขืœื ืžื”ืŸ.

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

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

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