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

หัวข้อ: ทำความเข้าใจการใช้งาน Array ในภาษา COBOL พร้อมตัวอย่างประยุกต์ในยุคดิจิทัล

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

Array ในภาษา COBOL

ในภาษา COBOL, Array เรียกว่า "ตาราง" (Tables) และมักใช้ในการจัดเก็บรายการข้อมูลที่มีสัมพันธ์กัน เช่น รายการธุรกรรมหรือข้อมูลพนักงาน การใช้งานแบบ Array ทำให้เราสามารถจัดการกับข้อมูลจำนวนมากได้อย่างเป็นระเบียบและง่ายดาย

ตัวอย่าง Code ที่ 1: เริ่มต้นกับ Array ใน COBOL

IDENTIFICATION DIVISION.
PROGRAM-ID. ARR-EXAMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 EMPLOYEES-TABLE.
   05 EMPLOYEES OCCURS 10 TIMES INDEXED BY IDX.
      10 EMPLOYEE-ID    PIC 9(4).
      10 EMPLOYEE-NAME  PIC A(20).

PROCEDURE DIVISION.
MAIN-LOGIC.
    PERFORM VARYING IDX FROM 1 BY 1 UNTIL IDX > 10
        DISPLAY "Employee ID: " EMPLOYEES (IDX) OF EMPLOYEE-ID
                ", Name: " EMPLOYEES (IDX) OF EMPLOYEE-NAME
    END-PERFORM.

    STOP RUN.

ในตัวอย่างนี้ จะเห็นว่าเราสร้างตาราง 'EMPLOYEES-TABLE' ที่มีองค์ประกอบแบบ Array 'EMPLOYEES' ที่สามารถเก็บข้อมูลได้ 10 รายการ และสามารถเข้าถึงข้อมูลด้วย 'IDX' ซึ่งเป็น index ที่ได้กำหนดขึ้นภายใน loop 'PERFORM VARYING'.

ตัวอย่าง Code ที่ 2: การค้นหาข้อมูลใน Array

IDENTIFICATION DIVISION.
PROGRAM-ID. ARR-SEARCH.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 EMPLOYEE-TABLE.
   05 EMPLOYEES OCCURS 10 TIMES INDEXED BY IDX.
      10 EMPLOYEE-ID    PIC 9(4).
      10 EMPLOYEE-NAME  PIC A(20).
01 SEARCH-ID PIC 9(4) VALUE 1005.

PROCEDURE DIVISION.
MAIN-LOGIC.
    PERFORM VARYING IDX FROM 1 BY 1 UNTIL IDX > 10 OR EMPLOYEE-ID (IDX) = SEARCH-ID
    END-PERFORM.

    IF EMPLOYEE-ID (IDX) = SEARCH-ID THEN
        DISPLAY "Found: Employee ID: " EMPLOYEE-ID (IDX) ", Name: " EMPLOYEE-NAME (IDX)
    ELSE
        DISPLAY "Not Found."
    END-IF.

    STOP RUN.

ในตัวอย่างที่สองนี้, เราทำการค้นหาข้อมูลของพนักงานด้วย ID ใน 'EMPLOYEE-TABLE'. ถ้าเราพบ ID ที่ต้องการ, โปรแกรมจะแสดงผลทันทีและหยุดการทำงานของ loop หากไม่พบก็จะแสดงข้อความ "Not Found."

ตัวอย่าง Code ที่ 3: การอัพเดตข้อมูลใน Array

IDENTIFICATION DIVISION.
PROGRAM-ID. ARR-UPDATE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 EMPLOYEE-TABLE.
   05 EMPLOYEES OCCURS 10 TIMES INDEXED BY IDX.
      10 EMPLOYEE-ID    PIC 9(4).
      10 EMPLOYEE-NAME  PIC A(20).
01 UPDATE-ID PIC 9(4) VALUE 1003.
01 NEW-NAME  PIC A(20) VALUE 'JOHN DOE'.

PROCEDURE DIVISION.
MAIN-LOGIC.
    PERFORM VARYING IDX FROM 1 BY 1 UNTIL IDX > 10
    IF EMPLOYEE-ID (IDX) = UPDATE-ID THEN
        MOVE NEW-NAME TO EMPLOYEE-NAME (IDX)
        DISPLAY "Updated: Employee ID: " EMPLOYEE-ID (IDX) ", New Name: " EMPLOYEE-NAME (IDX)
        EXIT PERFORM
    END-IF
    END-PERFORM.

    STOP RUN.

ตัวอย่างที่สามจะแสดงการอัพเดตข้อมูลพนักงานใน Array. ถ้าหาเจอ ID ที่ต้องการ, โปรแกรมจะอัพเดตชื่อใหม่และแสดงผล.

Usecase ในโลกจริงพร้อมการใช้งาน Array ใน COBOL

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

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

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

รออะไรอยู่ครับ? มาหาคำตอบและสร้างมูลค่าให้กับความรู้ของคุณในโลกดิจิทัลไปกับเรา...ที่ EPT!

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