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

หัวข้อ: สำรวจศักยภาพการเขียนไฟล์ด้วย COBOL: ภาษาคลาสสิกกับ Use Case ในยุคปัจจุบัน

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

ตัวอย่างโค้ด ที่ 1: การเขียนข้อมูลสู่ไฟล์ข้อความ

IDENTIFICATION DIVISION.
PROGRAM-ID. WriteToFile.

DATA DIVISION.
FILE SECTION.
FD OutputFile.
01 EmployeeRecord.
   05 EmpName PIC X(20).
   05 EmpID PIC 9(6).

WORKING-STORAGE SECTION.
01 WS-EmployeeRecord.
   05 WS-EmpName PIC X(20).
   05 WS-EmpID PIC 9(6).

PROCEDURE DIVISION.
   OPEN OUTPUT OutputFile.
   MOVE "John Doe" TO WS-EmpName.
   MOVE 123456 TO WS-EmpID.
   MOVE WS-EmployeeRecord TO EmployeeRecord.
   WRITE EmployeeRecord.
   CLOSE OutputFile.

   STOP RUN.

ในตัวอย่างที่ 1 นี้ เราได้สร้างโปรแกรมที่เขียนข้อมูลพนักงานลงในไฟล์ข้อความ โดย COBOL ใช้ FD (File Description) เพื่อกำหนดโครงสร้างของเรคคอร์ดที่จะเขียนลงในไฟล์

ตัวอย่างโค้ด ที่ 2: การเขียนล็อกไฟล์

IDENTIFICATION DIVISION.
PROGRAM-ID. WriteLog.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT LogFile ASSIGN TO "log.txt".

DATA DIVISION.
FILE SECTION.
FD LogFile.
01 LogEntry PIC X(100).

PROCEDURE DIVISION.
A100-WriteLog.
    OPEN OUTPUT LogFile.
    MOVE "Log entry - Transaction completed successfully" TO LogEntry.
    WRITE LogEntry AFTER ADVANCING 1 LINE.
    CLOSE LogFile.

    STOP RUN.

ในตัวอย่างที่ 2 โปรแกรม COBOL เขียนข้อมูลลงไปในล็อกไฟล์ เป็นการใช้งานทั่วไปในระบบธุรกิจเพื่อบันทึกกิจกรรมที่เกิดขึ้นภายในโปรแกรม

ตัวอย่างโค้ด ที่ 3: การจัดการไฟล์มาสเตอร์

IDENTIFICATION DIVISION.
PROGRAM-ID. MasterFileUpdate.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT MasterFile ASSIGN TO "master.dat".

DATA DIVISION.
FILE SECTION.
FD MasterFile.
01 MasterRecord.
   05 ProductID PIC 9(4).
   05 ProductName PIC X(20).
   05 ProductPrice PIC 9(5)V99.

WORKING-STORAGE SECTION.
01 WS-NewProduct.
   05 WS-ProductID PIC 9(4).
   05 WS-ProductName PIC X(20).
   05 WS-ProductPrice PIC 9(5)V99.

PROCEDURE DIVISION.
   OPEN OUTPUT MasterFile.
   MOVE 1001 TO WS-ProductID.
   MOVE "New Product X" TO WS-ProductName.
   MOVE 9.99 TO WS-ProductPrice.

   MOVE WS-NewProduct TO MasterRecord.
   WRITE MasterRecord.
   CLOSE MasterFile.

   STOP RUN.

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

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

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

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