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

การใช้งาน foreach loop ในภาษา COBOL

COBOL (Common Business-Oriented Language) เป็นหนึ่งในภาษาโปรแกรมมิ่งที่เก่าแก่ที่สุด ซึ่งถูกออกแบบมาโดยเฉพาะสำหรับการพัฒนาแอปพลิเคชันทางธุรกิจ ถึงแม้ว่าภาษา COBOL ไม่ได้มีความยืดหยุ่นเท่าภาษาโปรแกรมมิ่งสมัยใหม่ในด้านการวนซ้ำแบบ foreach loop โดยตรง แต่เราสามารถใช้ control structures ที่เสนอให้มาในภาษาเพื่อจำลองการทำงานที่คล้ายคลึงกันได้

ก่อนที่เราจะไปดูตัวอย่าง code ที่ใช้งานในลักษณะของ foreach loop ใน COBOL นั้น เราควรทำความเข้าใจเกี่ยวกับการทำงานของ construct แบบ loop ใน COBOL กันสักนิดนะครับ

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

ตัวอย่าง CODE เบื้องต้น: PERFORM Loop ใน COBOL

ตัวอย่างที่ 1: การใช้ PERFORM VARYING

IDENTIFICATION DIVISION.
PROGRAM-ID. ForeachExample.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUMBERS-TABLE.
   05 NUMBER OCCURS 10 TIMES PIC 9(4) VALUE ZEROES.
01 TABLE-SIZE PIC 9(4) VALUE 10.

PROCEDURE DIVISION.
MAIN-LOGIC.
    PERFORM VARYING I FROM 1 BY 1 UNTIL I > TABLE-SIZE
        DISPLAY "TABLE ITEM ", I, " IS ", NUMBER (I)
    END-PERFORM
    STOP RUN.

ในตัวอย่างนี้ เราสร้างตารางชื่อ NUMBERS-TABLE ที่ประกอบด้วย 10 elements และใช้ `PERFORM VARYING` ในการวนซ้ำผ่านตาราง เพื่อแสดงค่าแต่ละตัวโดยใช้ `DISPLAY` โครงสร้างนี้จำลองการทำงานของ foreach loop ในการเข้าถึงแต่ละ element ในตารางอย่างง่ายๆ

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

IDENTIFICATION DIVISION.
PROGRAM-ID. ReadFileExample.
DATA DIVISION.
FILE SECTION.
FD  EMPLOYEE-FILE.
01  EMPLOYEE-RECORD PIC X(100).
WORKING-STORAGE SECTION.
01  END-OF-FILE  PIC X(3) VALUE 'NO '.

PROCEDURE DIVISION.
MAIN-LOGIC.
    OPEN INPUT EMPLOYEE-FILE.
    PERFORM UNTIL END-OF-FILE = 'YES'
        READ EMPLOYEE-FILE
        AT END
            MOVE 'YES' TO END-OF-FILE
        NOT AT END
            DISPLAY EMPLOYEE-RECORD
        END-READ
    END-PERFORM
    CLOSE EMPLOYEE-FILE
    STOP RUN.

ในตัวอย่างที่สองนี้ เราเปิดไฟล์และใช้ `PERFORM UNTIL` loop เพื่ออ่าน records จากไฟล์ทีละรายการส่วน DISPLAY ใช้เพื่อแสดงข้อมูลที่อ่านได้จากไฟล์

ตัวอย่างที่ 3: การจำลองการใช้งาน foreach สำหรับการประมวลผลของธุรกิจ

IDENTIFICATION DIVISION.
PROGRAM-ID. BusinessProcess.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  TRANSACTION-LIST.
    05 TRANSACTION OCCURS 10 TIMES PIC X(100).
01  COUNTER PIC 9(4).
01  MAX-COUNTER PIC 9(4) VALUE 10.

PROCEDURE DIVISION.
MAIN-LOGIC.
    MOVE 0 TO COUNTER.
    PERFORM UNTIL COUNTER = MAX-COUNTER
        ADD 1 TO COUNTER
        DISPLAY "PROCESSING TRANSACTION: ", TRANSACTION(COUNTER)
    END-PERFORM
    STOP RUN.

ในตัวอย่างนี้ เรามีลิสต์ของธุรกรรม และเราวน loop ผ่านทุก ๆ ธุรกรรมเพื่อแสดงข้อความว่ากำลังประมวลผล

Usecase ในโลกจริง:

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

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

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