การใช้งาน try-catch ในภาษา COBOL แบบง่ายๆ พร้อมตัวอย่าง CODE 3 ตัวอย่าง และอธิบายการทำงาน และยกตัวอย่าง usecase ในโลกจริง

บทความ: การควบคุมข้อผิดพลาดใน COBOL ด้วยการใช้งาน try-catch อย่างชาญฉลาด

ในโลกการเขียนโปรแกรมที่ซับซ้อน เราต้องเสมอใจว่า "ข้อผิดพลาด" เป็นสิ่งที่เกิดขึ้นได้ทุกเมื่อ โดยเฉพาะกับภาษาโปรแกรมมิ่งแบบดั้งเดิมอย่าง COBOL ซึ่งถือว่าเป็นภาษาที่มีความทนทานและไว้วางใจสูง แต่ก็จำเป็นต้องมีการจัดการกับข้อผิดพลาดอย่างเหมาะสม การใช้งานโครงสร้างการควบคุมข้อผิดพลาด เช่น try-catch จึงมีความสำคัญในการเขียนโปรแกรม COBOL ที่มีความเสถียรและสามารถตอบสนองต่อปัญหาต่างๆ ได้อย่างมีประสิทธิภาพ

การทำงานของ Try-Catch ใน COBOL:

ก่อนที่เราจะพูดถึงตัวอย่างโค้ด ควรทำความเข้าใจก่อนว่า COBOL ไม่มีโครงสร้าง `try-catch` เหมือนภาษาโปรแกรมมิ่งอื่นๆ โดยตรง อย่างไรก็ตาม เรายังมีวิธีการในการจัดการกับข้อผิดพลาดให้คล้ายคลึงกัน เช่น การใช้ statements อย่าง `EVALUATE` หรือ `PERFORM` และ `GOBACK` ร่วมกับประมวลผลข้อความข้อผิดพลาด (Exception Handling) ในหัวข้อนี้จะพูดถึงวิธีการนั้นเป็นหลัก

Use Case ในโลกจริง:

ในโลกของธุรกิจ เช่น การเงินหรือการประมวลผลข้อมูลใหญ่ๆ การดักจับข้อผิดพลาดในการประมวลผลสามารถป้องกันความเสียหายและเวลาที่เสียไปมหาศาล เช่น สมมุติลูกค้าใช้ระบบ ATM และระหว่างการดำเนินการมีข้อผิดพลาดเกิดขึ้น หากไม่มีการจัดการข้อผิดพลาดที่ดี อาจจะทำให้ระบบธนาคารประสบปัญหา และส่งผลกระทบต่อลูกค้าและธนาคารเป็นอย่างมาก

ตัวอย่างโค้ดที่ 1 - การจัดการข้อผิดพลาดขั้นพื้นฐาน:

IDENTIFICATION DIVISION.
PROGRAM-ID. SampleProgram.
DATA DIVISION.
FILE SECTION.

WORKING-STORAGE SECTION.
01  ERROR-FLAG  PIC X.
    88  ERROR-DETECTED   VALUE 'Y'.
    88  NO-ERROR   VALUE 'N'.
01  ERROR-MESSAGE  PIC X(50).

PROCEDURE DIVISION.
MAIN-LOGIC.

    PERFORM CHECK-TRANSACTION

    IF ERROR-DETECTED
        DISPLAY 'Error encountered: ' ERROR-MESSAGE
        PERFORM ERROR-HANDLING
    ELSE
        DISPLAY 'Transaction completed successfully'
    END-IF.

    STOP RUN.

CHECK-TRANSACTION.

    ...  // ประมวลผลการทำงานที่ต้องการ
    IF SOME-TRANSACTION-ERROR
        MOVE 'Y' TO ERROR-FLAG
        MOVE 'Transaction failed due to ...' TO ERROR-MESSAGE
    END-IF.

ERROR-HANDLING.
    ... // โค้ดการจัดการข้อผิดพลาด

    GOBACK.

ตัวอย่างโค้ดที่ 2 - การจัดการข้อผิดพลาดการเข้าถึงไฟล์:

IDENTIFICATION DIVISION.
PROGRAM-ID. FileAccessProgram.
DATA DIVISION.
FILE SECTION.

WORKING-STORAGE SECTION.
01  FILE-STATUS-CODE  PIC XX.

PROCEDURE DIVISION.
MAIN-LOGIC.

    OPEN INPUT YOURFILE
    READ YOURFILE AT END
        DISPLAY 'End of file reached.'
    NOT AT END
        PERFORM PROCESS-RECORD
    END-READ

    IF FILE-STATUS-CODE NOT EQUAL '00'
        PERFORM FILE-ERROR-HANDLING
    END-IF.

    STOP RUN.

PROCESS-RECORD.
    ... // โค้ดในการประมวลผล record

FILE-ERROR-HANDLING.
    DISPLAY 'An error occurred with file: ' FILE-STATUS-CODE
    GOBACK.

ตัวอย่างโค้ดที่ 3 - การจัดการข้อผิดพลาดในการคำนวณตัวเลข:

IDENTIFICATION DIVISION.
PROGRAM-ID. CalculationProgram.
DATA DIVISION.
FILE SECTION.

WORKING-STORAGE SECTION.
01  NUM-A  PIC 9(4).
01  NUM-B  PIC 9(4).
01  RESULT  PIC 9(4) VALUE ZEROES.
01  CALCULATION-ERROR  PIC X(50) VALUE SPACES.

PROCEDURE DIVISION.
MAIN-LOGIC.

    MOVE 9999 TO NUM-A
    MOVE 1 TO NUM-B

    PERFORM CALCULATE-DIVISION

    IF CALCULATION-ERROR IS NOT SPACES
        DISPLAY 'Error in calculation: ' CALCULATION-ERROR
    ELSE
        DISPLAY 'Result is : ' RESULT
    END-IF.

    STOP RUN.

CALCULATE-DIVISION.
    DIVIDE NUM-A BY NUM-B GIVING RESULT ON SIZE ERROR
        MOVE 'Division by zero or overflow.' TO CALCULATION-ERROR
    END-DIVIDE.

การใช้โครงสร้างการดำเนินการขึ้นอยู่กับคุณที่จะเลือกใช้ให้เหมาะกับกรณีของตัวแอปพลิเคชัน ตัวอย่างข้างต้นเพียงให้ความรู้พื้นฐานในการจัดการข้อผิดพลาด ความชำนาญในการเขียนโค้ด COBOL นั้นถือเป็นทักษะสำคัญที่สามารถส่งผลให้คุณเป็นนักพัฒนาที่มีความสามารถในการจัดการกับสถานการณ์ที่ซับซ้อนได้อย่างยอดเยี่ยม

ที่ Expert-Programming-Tutor (EPT), เรามอบความเข้าใจที่ลึกซึ้งใน COBOL และภาษาโปรแกรมมิ่งอื่นๆ ไม่ว่าคุณจะต้องการยกระดับทักษะในด้านการเขียนโปรแกรมของคุณ หรือจำเป็นต้องจัดการกับโปรเจ็กต์ที่ซับซ้อน เรามีคอร์สการเรียนรู้ที่ออกแบบมาเพื่อตอบสนองความต้องการของคุณทุกระดับ สนใจเข้าศึกษา? เยี่ยมชมเราที่ EPT วันนี้สำหรับการเรียนรู้และการสนับสนุนที่ไม่มีใครเทียบได้!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง