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

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

โครงสร้างการวนลูปใน COBOL

สำหรับการวนลูปใน COBOL เรามักจะใช้การวนลูปแบบไฮ-เลเวล ซึ่งสามารถใช้การประมวลผล Record หลังจากการอ่านข้อมูลจากไฟล์ โดยทั่วไป COBOL ใช้คำสั่ง PERFORM, READ, และ MOVE ซึ่งสามารถนำมาประยุกต์ใช้ในการวนลูปได้

ตัวอย่างโค้ด

สมมติว่าเราต้องการอ่านรายการตัวเลขจากไฟล์แล้วทำการคูณแต่ละตัวเลขด้วย 2 และเก็บผลลัพธ์ในอาร์เรย์ เรามาดูตัวอย่างโค้ดกัน:

        IDENTIFICATION DIVISION.
       PROGRAM-ID. ForEachExample.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT NumberFile ASSIGN TO 'NUMBERS.DAT'
               ORGANIZATION IS LINE SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.
       FD  NumberFile.
       01  NumberRecord.
           05  NumberValue     PIC 9(3).

       WORKING-STORAGE SECTION.
       01  ResultArray.
           05  Results OCCURS 10 TIMES INDEXED BY Index.
       01  Index              PIC 9(2) VALUE 1.
       01  ResultCount        PIC 9(2) VALUE 0.

       PROCEDURE DIVISION.
       BEGIN.
           OPEN INPUT NumberFile
           PERFORM UNTIL ResultCount >= 10
               READ NumberFile INTO NumberRecord
                   AT END
                       EXIT PERFORM
                   NOT AT END
                       MOVE NumberValue TO Results(Index)
                       ADD 1 TO ResultCount
                       ADD 1 TO Index
               END-READ
           END-PERFORM
           CLOSE NumberFile

           DISPLAY "Results:"
           PERFORM VARYING Index FROM 1 BY 1 UNTIL Index > ResultCount
               DISPLAY "Value: " Results(Index)
           END-PERFORM.

       END PROGRAM ForEachExample.

อธิบายการทำงาน

- ในส่วนนี้ควบคุมการกำหนดไฟล์ที่ใช้เป็น Input ซึ่งในตัวอย่างคือ `NUMBERS.DAT` ซึ่งต้องมีอยู่ในรูปแบบที่กำหนด

- บอกให้โปรแกรมรู้ว่ามีโครงสร้างข้อมูลแบบใดบ้างที่ใช้ ซึ่งในที่นี้เรารับค่าเป็นตัวเลขที่มี 3 หลัก

- เราใช้ `Results` array ที่มีความสามารถในการเก็บข้อมูล 10 ตัว เพื่อเก็บผลลัพธ์ที่คูณด้วย 2

- เราทำการเปิดไฟล์และเริ่มการอ่านไฟล์จนกว่าเราจะได้จำนวนข้อมูลตามที่กำหนด

- ใช้ `READ` เพื่ออ่านค่ามาเก็บใน `Results` array ตามลำดับ

- หลังจากอ่านครบแล้ว ปิดไฟล์และแสดงผลลัพธ์

Use Case ในโลกจริง

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

สรุป

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

เริ่มต้นการเรียนรู้ที่ EPT

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

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