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

บทความ: ความสำคัญของ Array 2D ในภาษา COBOL ท่ามกลางโลกการเขียนโปรแกรมสมัยใหม่

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

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

ตัวอย่าง Code 1: การกำหนดค่าใน Array 2D

IDENTIFICATION DIVISION.
PROGRAM-ID. TwoDimArrayExample.
DATA DIVISION.
WORKING-STORAGE SECTION.

01 TWO-DIM-ARRAY.
   05 ROWS PIC 9(2) OCCURS 3 TIMES.
      10 COLS PIC 9(2) OCCURS 4 TIMES.

PROCEDURE DIVISION.

SETUP-ARRAY.
    PERFORM VARYING I FROM 1 BY 1 UNTIL I > 3
        PERFORM VARYING J FROM 1 BY 1 UNTIL J > 4
            MOVE (I*J) TO COLS(J) OF ROWS(I)
        END-PERFORM
    END-PERFORM.
    STOP RUN.

ในตัวอย่างข้างต้น เรากำหนด array 2D ที่มี 3 แถวและ 4 หลัก โดยมีรูปแบบการอ้างอิงด้วยตัวแปร I และ J และใช้ประโยชน์จากคำสั่ง PERFORM VARYING เพื่อกำหนดค่าเข้าไปในแต่ละตำแหน่งของอาเรย์

ตัวอย่าง Code 2: การแสดงค่าจาก Array 2D

... [ช่วงที่มีการกำหนดค่า array ใน SECTION ข้างต้น]

DISPLAY-ARRAY.
    PERFORM VARYING I FROM 1 BY 1 UNTIL I > 3
        PERFORM VARYING J FROM 1 BY 1 UNTIL J > 4
            DISPLAY "ROW: " I " COLUMN: " J " VALUE: " COLS(J) OF ROWS(I)
        END-PERFORM
    END-PERFORM.
    STOP RUN.

ภายหลังจากการกำหนดค่าในอาเรย์แล้ว เราสามารถใช้คำสั่ง DISPLAY เพื่อแสดงค่าที่ถูกกำหนดอยู่ในอาเรย์ได้ โดยจะทำการแสดงค่าออกมาตามแถวและหลักที่เราเลือก

ตัวอย่าง Code 3: การใช้ Array 2D สำหรับคำนวณ

... [ช่วงที่มีการกำหนดค่า array ใน SECTION ข้างต้น]

COMPUTE-AVERAGES.
    01 TOTALS PIC 9(4) VALUE ZEROS.
    01 AVERAGE PIC 9(4)V99 VALUE ZEROS.

    PERFORM VARYING I FROM 1 BY 1 UNTIL I > 3
        MOVE ZEROS TO TOTALS
        PERFORM VARYING J FROM 1 BY 1 UNTIL J > 4
            ADD COLS(J) OF ROWS(I) TO TOTALS
        END-PERFORM
        COMPUTE AVERAGE = TOTALS / 4
        DISPLAY "ROW: " I " AVERAGE: " AVERAGE
    END-PERFORM.
    STOP RUN.

ในตัวอย่างนี้ ระบบจะคำนวณค่าเฉลี่ยของค่าในแต่ละแถวแล้วแสดงผลออกมา ซึ่งเป็นวิธีการนำ array 2D ไปใช้ในการคำนวณพื้นฐานได้รวมอย่างง่ายดาย

Usecase ในโลกจริง

หนึ่งใน usecase ที่สำคัญของ array 2D ในโลกองค์กรคือการจัดเก็บข้อมูลทางการเงิน เช่น รายการธุรกรรมหรือบัญชีต่างๆ ที่มีทั้งแถวและหลัก อย่างเช่น ในการจัดเก็บข้อมูลของเช็คหรือใบแจ้งหนี้ แถวสามารถแสดงถึงเช็คแต่ละใบ ขณะที่หลักแสดงถึงรายละเอียดเช่น วันที่, จำนวนเงิน, ผู้ออกเช็ค ฯลฯ การใช้งานอาเรย์ 2D จึงง่ายและรวดเร็วในการดึงข้อมูลที่ต้องการเพื่อการวิเคราะห์หรือรายงาน

การเรียนรู้ภาษา COBOL ที่ EPT

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

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

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

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