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

บทนำ: ความจำเป็นของการใช้งาน Append File ใน COBOL

ภาษา COBOL (Common Business-Oriented Language) ถือเป็นหนึ่งในภาษาโปรแกรมมิ่งที่ยังคงมีความสำคัญในยุคปัจจุบัน โดยเฉพาะในองค์กรที่มีระบบคอมพิวเตอร์เก่าแก่และขนาดใหญ่ เช่น ธนาคาร หน่วยงานราชการ และบริษัทประกันภัย เป็นต้น การใช้งานแฟ้มข้อมูลหรือ "File" เป็นส่วนหนึ่งที่สำคัญในการทำงานของ COBOL ไม่ว่าจะเป็นการอ่าน (Read) การเขียน (Write) หรือการ Append (การเพิ่มข้อมูลไปยังท้ายไฟล์)

ในบทความนี้ เราจะพูดถึงการใช้งาน "Append" ในแฟ้มข้อมูลของ COBOL ซึ่งเป็นการเพิ่มเนื้อหาใหม่ๆ เข้าไปยังไฟล์ที่มีอยู่โดยไม่ลบข้อมูลเดิม จากนั้นเราจะนำเสนอตัวอย่างโค้ด 3 ตัวอย่าง พร้อมอธิบายการทำงาน และเสนอ usecase ในโลกจริงที่ทำให้เห็นถึงความจำเป็นของการใช้แฟ้มข้อมูลในลักษณะนี้

ตัวอย่างโค้ดที่ 1: การใช้งาน COMMAND `OPEN EXTEND`

COBOL มีคำสั่ง `OPEN EXTEND` เพื่อใช้ในการเปิดไฟล์สำหรับการเพิ่มข้อมูล:

IDENTIFICATION DIVISION.
PROGRAM-ID. APPEND-EX1.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT OPTIONAL APPEND-FILE ASSIGN TO "example.dat"
    ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD APPEND-FILE.
01 APPEND-REC PIC X(100).

PROCEDURE DIVISION.
OPEN EXTEND APPEND-FILE.
MOVE "ข้อมูลใหม่ที่ต้องการเพิ่ม" TO APPEND-REC.
WRITE APPEND-REC.
CLOSE APPEND-FILE.

STOP RUN.

ในโค้ดนี้ การ `OPEN EXTEND` จะเปิดไฟล์ "example.dat" เพื่อเตรียมเขียนข้อมูลต่อท้ายไฟล์นั้นๆ หลังจากนั้นจะเขียนข้อมูลจาก `APPEND-REC` ลงไปในไฟล์และปิดไฟล์เมื่อเสร็จสิ้นการเพิ่มข้อมูล

ตัวอย่างโค้ดที่ 2: การใช้งานวงจรชีวิตไฟล์ (File Lifecycle)

เริ่มจากการประกาศไฟล์, เปิดไฟล์, เขียนข้อมูล, และปิดไฟล์:

IDENTIFICATION DIVISION.
PROGRAM-ID. APPEND-EX2.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT OPTIONAL TRANSACTION-FILE ASSIGN TO "transaction.dat"
    ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD TRANSACTION-FILE.
01 TRANSACTION-REC PIC X(100).

PROCEDURE DIVISION.
OPEN EXTEND TRANSACTION-FILE.
PERFORM VARYING TRANSACTION FROM 1 BY 1 UNTIL TRANSACTION > 100
    MOVE "Transaction Record: " TO TRANSACTION-REC
    WRITE TRANSACTION-REC AFTER ADVANCING 1 LINE
END-PERFORM.
CLOSE TRANSACTION-FILE.

STOP RUN.

โค้ดนี้จะทำการเพิ่มข้อมูลเป็นรายการธุรกรรม 100 รายการไปยังไฟล์ 'transaction.dat' โดยใช้ loop ของ COBOL ที่ชื่อ `PERFORM`.

ตัวอย่างโค้ดที่ 3: การจัดการข้อผิดพลาด (Error Handling)

เมื่อทำการ `OPEN` ไฟล์ไม่สำเร็จใน COBOL จะต้องมีการจัดการกับข้อผิดพลาดด้วย:

IDENTIFICATION DIVISION.
PROGRAM-ID. APPEND-EX3.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT OPTIONAL ERROR-LOG ASSIGN TO "errorlog.dat"
    ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD ERROR-LOG.
01 ERROR-LOG-REC PIC X(100).

PROCEDURE DIVISION.
OPEN EXTEND ERROR-LOG
INVALID KEY
    DISPLAY "ไม่สามารถเปิดไฟล์เพื่อเขียนได้"
    STOP RUN.

MOVE "ข้อผิดพลาดที่เกิดขึ้นในระบบ" TO ERROR-LOG-REC.
WRITE ERROR-LOG-REC.
CLOSE ERROR-LOG.

STOP RUN.

ในตัวอย่างนี้ ถ้าไฟล์ "errorlog.dat" ไม่สามารถเปิดได้ โปรแกรมจะแสดงข้อความและหยุดทำงานทันที นี่เป็นวิธีที่ดีในการจัดการกับการ exception ที่อาจเกิดขึ้น

Usecase ในโลกจริง: การจัดการบันทึกธุรกรรมของธนาคาร

ในภาคธุรกิจธนาคารเป็นสิ่งจำเป็นที่ต้องจัดเก็บประวัติธุรกรรมทางการเงินอย่างถูกต้องและเป็นระเบียบ เช่น การฝากเงิน การถอนเงิน การโอนเงิน เป็นต้น การใช้คำสั่ง `OPEN EXTEND` ใน COBOL ช่วยให้โปรแกรมสามารถเพิ่มข้อมูลธุรกรรมเหล่านี้เข้าไปในไฟล์ประวัติธุรกรรมของลูกค้าโดยไม่กระทบข้อมูลที่มีอยู่ก่อนและทำให้สามารถตรวจสอบได้ย้อนหลัง.

ชวนเชิญเข้าสู่โลกของการเขียนโปรแกรมที่ EPT

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

ความเข้าใจในการใช้งานไฟล์และการจัดการข้อมูลเป็นสิ่งที่สำคัญ และการฝึกฝนกับภาษา COBOL ยังคงมีค่าในตลาดงานขณะนี้ นักเรียนที่จบจาก EPT ไม่เพียงได้รับความรู้และทักษะในการเขียนโปรแกรมเท่านั้น แต่ยังได้รับการฝึกวิธีคิดวิเคราะห์และการแก้ไขปัญหาที่เฉพาะเจาะจง พร้อมด้วยความรู้เฉพาะทางในโลกธุรกิจและยุคดิจิทัล

หากคุณสนใจที่จะก้าวเข้ามาสู่โลกของ COBOL และอยากเรียนรู้เพิ่มเติมจากมืออาชีพ เชิญแวะมาที่ EPT และเริ่มต้นการเรียนรู้ของคุณได้ทันทีเพื่อเปิดประตูสู่โอกาสใหม่ๆ ในอนาคต!

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