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

## บทความ: การใช้งานการอ่านไฟล์ในภาษา COBOL - ความง่ายในมือคุณ

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

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

การอ่านไฟล์ใน COBOL

หากพูดถึงการจัดการไฟล์ใน COBOL โมเดลที่ใช้ค่อนข้างชัดเจน: เปิดไฟล์ (OPEN), อ่านไฟล์ (READ), และปิดไฟล์ (CLOSE). ต่อไปนี้คือตัวอย่างคำสั่งและโค้ดสำหรับการอ่านไฟล์:

ตัวอย่าง 1: การเปิดและอ่านไฟล์อย่างง่าย

สมมติว่าเรามีไฟล์ข้อมูลชื่อ `CUSTOMER.DAT` และต้องการอ่านข้อมูลลูกค้าจากไฟล์นี้

IDENTIFICATION DIVISION.
PROGRAM-ID. READER.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT CUSTOMER-FILE ASSIGN TO 'CUSTOMER.DAT'.

DATA DIVISION.
FILE SECTION.
FD CUSTOMER-FILE.
01 CUSTOMER-RECORD.
   05 CUSTOMER-ID      PIC 9(4).
   05 CUSTOMER-NAME    PIC A(20).

PROCEDURE DIVISION.
OPEN INPUT CUSTOMER-FILE.
READ CUSTOMER-FILE INTO CUSTOMER-RECORD
   AT END
      DISPLAY 'End of file reached.'.
CLOSE CUSTOMER-FILE.
STOP RUN.

ตัวอย่าง 2: การอ่านไฟล์และแสดงผลหลายระเบียน

หากต้องการอ่านข้อมูลหลายระเบียนจากไฟล์, COBOL ให้คุณภาพด้วยการวนซ้ำด้วยโครงสร้าง `PERFORM UNTIL`

...
PROCEDURE DIVISION.
OPEN INPUT CUSTOMER-FILE.
PERFORM UNTIL END-OF-FILE
   READ CUSTOMER-FILE INTO CUSTOMER-RECORD
      AT END
         MOVE TRUE TO END-OF-FILE
      NOT AT END
         DISPLAY CUSTOMER-ID " " CUSTOMER-NAME
   END-READ
END-PERFORM.
CLOSE CUSTOMER-FILE.
...

ตัวอย่าง 3: การอ่านไฟล์และประมวลผลข้อมูล

บางครั้งเราอาจต้องการคำนวณหรือตรวจสอบข้อมูลขณะที่กำลังอ่าน ด้วย COBOL เราสามารถทำการประมวลผลข้อมูลไปพร้อมกับการอ่านไฟล์ได้

...
01 TOTAL-CUSTOMERS PIC 9(4) VALUE 0.
...
PROCEDURE DIVISION.
OPEN INPUT CUSTOMER-FILE.
PERFORM UNTIL END-OF-FILE
   READ CUSTOMER-FILE INTO CUSTOMER-RECORD
      AT END
         MOVE TRUE TO END-OF-FILE
      NOT AT END
         ADD 1 TO TOTAL-CUSTOMERS
         DISPLAY "Customer: " CUSTOMER-NAME ", ID: " CUSTOMER-ID
   END-READ
END-PERFORM.
DISPLAY "Total customers: " TOTAL-CUSTOMERS.
CLOSE CUSTOMER-FILE.
...

Usecase ในโลกจริง

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

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

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

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