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

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

ตัวอย่างที่ 1: การเปิดและอ่านไฟล์ข้อความ

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

IDENTIFICATION DIVISION.
PROGRAM-ID. READFILE.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT MYFILE ASSIGN TO "example.txt"
    ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD  MYFILE.
01  MYFILE-RECORD PIC X(100).

PROCEDURE DIVISION.
OPEN-FILE.
    OPEN INPUT MYFILE.
READ-FILE.
    READ MYFILE
    AT END DISPLAY "End of file reached."
    NOT AT END DISPLAY MYFILE-RECORD.
    CLOSE MYFILE.

END PROGRAM READFILE.

ในตัวอย่างนี้, `MYFILE` ถูกเปิดสำหรับการอ่าน และข้อความทุกบรรทัดจะถูกอ่านและแสดงผลจนกระทั่งไปถึงจุดสิ้นสุดของไฟล์.

ตัวอย่างที่ 2: การเขียนข้อมูลลงไฟล์

การเขียนข้อมูลลงไฟล์เป็นฟังก์ชันพื้นฐานเช่นกัน ซึ่งในธุรกิจอาจหมายถึงการบันทึกผลการทำธุรกรรมหรือการสร้างรายงาน

IDENTIFICATION DIVISION.
PROGRAM-ID. WRITEFILE.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT MYOUTPUTFILE ASSIGN TO "output.txt"
    ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD  MYOUTPUTFILE.
01  MYOUTPUTFILE-RECORD PIC X(100).

WORKING-STORAGE SECTION.
01  DATA-TO-WRITE PIC X(100) VALUE "Hello, COBOL!".

PROCEDURE DIVISION.
WRITE-TO-FILE.
    MOVE DATA-TO-WRITE TO MYOUTPUTFILE-RECORD.
    WRITE MYOUTPUTFILE-RECORD.
    CLOSE MYOUTPUTFILE.

END PROGRAM WRITEFILE.

ในตัวอย่างนี้, ข้อมูลจะถูกเขียนลงไฟล์ `output.txt`. การเขียนกระบวนการใช้คำสั่ง `WRITE`, เป็นวิธีที่เรียบหรูในการจัดการข้อมูลออก.

ตัวอย่างที่ 3: การอัปเดตไฟล์แบบสุ่ม

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

IDENTIFICATION DIVISION.
PROGRAM-ID. UPDATEFILE.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT MYFILE ASSIGN TO "data.dat"
    ORGANIZATION IS RELATIVE
    ACCESS IS RANDOM
    RELATIVE KEY IS FILE-RECORD-KEY.

DATA DIVISION.
FILE SECTION.
FD  MYFILE.
01  MYFILE-RECORD.
    02 FILE-RECORD-KEY  PIC 9(4).
    02 FILE-RECORD-DATA PIC X(96).

PROCEDURE DIVISION.
UPDATE-RECORD.
    MOVE 1234 TO FILE-RECORD-KEY.
    MOVE "Updated data" TO FILE-RECORD-DATA.
    WRITE MYFILE-RECORD INVALID KEY
    DISPLAY "Error in record creation".
    CLOSE MYFILE.

END PROGRAM UPDATEFILE.

ในตัวอย่างนี้, ข้อมูลบนไฟล์เรียงลำดับถูกอัปเดตในตำแหน่งที่ระบุด้วย `RELATIVE KEY`.

Usecase ในโลกจริง

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

การเข้าใจในการจัดการไฟล์ใน COBOL สามารถช่วยให้โปรแกรมเมอร์ปรับใช้คาดการณ์และดูแลระบบที่อาจรวมถึงข้อมูลที่สำคัญและมีผลต่อการดำเนินงานขององค์กร Ходани курсที่ Expert-Programming-Tutor (EPT) ยินดีนำเสนอความรู้และทักษะนี้ผ่านหลักสูตรที่มีมาตรฐานสูง พร้อมด้วยคำแนะนำที่สร้างสรรค์จากวิทยากรที่มีประสบการณ์ ไม่ว่าจะเป็นโครงการใหม่หรือการบำรุงรักษาระบบเดิม เรียนรู้ภาษา COBOL ที่ EPT จะช่วยให้คุณมีความสามารถในการจัดการกับความท้าทายเหล่านี้ได้อย่างมืออาชีพ.

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