การใช้งาน While Loop ในภาษา COBOL แบบง่ายๆ

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

What is a While Loop?

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

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

        IDENTIFICATION DIVISION.
       PROGRAM-ID. WhileLoopExample.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  COUNTER            PIC 9(3) VALUE 1.
       01  MAX-COUNT          PIC 9(3) VALUE 10.

       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
           DISPLAY 'เริ่มการทำงานของ While Loop'

       WHILE COUNTER <= MAX-COUNT
           DISPLAY 'หมายเลข: ' COUNTER
           ADD 1 TO COUNTER
       END-WHILE

           DISPLAY 'ทำงานเสร็จสิ้น'
           STOP RUN.

อธิบายการทำงานของโค้ด

ตัวอย่าง Usecase ในโลกจริง

Imagine you are responsible for generating monthly reports in a large organization. You could use a while loop to process entries in a payroll database. For example, you want to count the number of employees in your database until you reach a specific limit, say 100 employees.

In a more complex scenario, you might even loop through records from a database, performing calculations or gathering information until the end of the dataset is reached. This method is particularly useful in financial systems where calculations need to be repeated over several records.

        IDENTIFICATION DIVISION.
       PROGRAM-ID. PayrollReport.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  EMPLOYEE-COUNT     PIC 9(3) VALUE 1.
       01  MAX-EMPLOYEES      PIC 9(3) VALUE 100.

       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
           DISPLAY 'เริ่มการสร้างรายงานเงินเดือน'

       WHILE EMPLOYEE-COUNT <= MAX-EMPLOYEES
           DISPLAY 'ประมวลผลพนักงานหมายเลข: ' EMPLOYEE-COUNT
           ADD 1 TO EMPLOYEE-COUNT
       END-WHILE

           DISPLAY 'เสร็จสิ้นการสร้างรายงาน'
           STOP RUN.

สรุป

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

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

ลองติดต่อเราที่ EPT และเริ่มต้นการเรียนรู้ในวันนี้!

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