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

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

ตัวอย่างที่ 1: การส่งค่าผ่านพารามิเตอร์ไปยังฟังก์ชั่น

IDENTIFICATION DIVISION.
PROGRAM-ID. ParamExample.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUM1 PIC 9(04) VALUE 1234.
01 NUM2 PIC 9(04) VALUE 0000.
01 RESULT PIC 9(04).

PROCEDURE DIVISION.
    MOVE NUM1 TO NUM2.
    CALL 'CALCSUM' USING NUM1 NUM2 RESULT.
    DISPLAY "The sum is: " RESULT.
    STOP RUN.

CALCSUM.
    LINKAGE SECTION.
    01 PARAM1 PIC 9(04).
    01 PARAM2 PIC 9(04).
    01 PARAM3 PIC 9(04).

    PROCEDURE DIVISION USING PARAM1 PARAM2 PARAM3.
        ADD PARAM1 TO PARAM2 GIVING PARAM3.
        EXIT PROGRAM.

ในตัวอย่างนี้ เราเห็นการส่งค่าพารามิเตอร์ไปยังฟังก์ชั่น `CALL 'CALCSUM' USING NUM1 NUM2 RESULT` และในฟังก์ชั่น `CALCSUM` เราทำการเพิ่มค่าตัวแปร PARAM1 และ PARAM2 เข้าด้วยกันและกำหนดไว้ที่ PARAM3

ตัวอย่างที่ 2: การส่งอ้างอิง reference ผ่านพารามิเตอร์ในฟังก์ชั่น

IDENTIFICATION DIVISION.
PROGRAM-ID. RefExample.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 USER-ID PIC X(10) VALUE "USER123456".
PROCEDURE DIVISION.
    CALL 'GETUSERDATA' USING BY REFERENCE USER-ID.
    DISPLAY "Data for : " USER-ID.
    STOP RUN.

GETUSERDATA.
    LINKAGE SECTION.
    01 L-USER-ID PIC X(10).

    PROCEDURE DIVISION USING L-USER-ID.
        MOVE "USR567890" TO L-USER-ID.
        EXIT PROGRAM.

ในตัวอย่างนี้ `CALL 'GETUSERDATA' USING BY REFERENCE USER-ID` ใช้สำหรับส่งค่าผ่าน reference ไปยังฟังก์ชัน `GETUSERDATA` ที่ทำการเปลี่ยนค่าของ `L-USER-ID` ซึ่งเป็นค่าใหม่จะสะท้อนให้เห็นในตัวแปร `USER-ID` เมื่อควบคุมกลับไปที่โปรแกรมหลัก

ตัวอย่างที่ 3:การส่งฟังก์ชั่นเป็นพารามิเตอร์ใน CALL

IDENTIFICATION DIVISION.
PROGRAM-ID. FuncParamExample.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 USER-NAME PIC A(20) VALUE SPACES.

PROCEDURE DIVISION.
    CALL 'DISPLAYUSER' USING DISPLAYFUNCTION USER-NAME.
    STOP RUN.

DISPLAYFUNCTION.
    LINKAGE SECTION.
    01 L-USER-NAME PIC A(20).

    PROCEDURE DIVISION USING L-USER-NAME.
        DISPLAY "Hello, " L-USER-NAME.
        EXIT PROGRAM.

ในตัวอย่างนี้ `CALL 'DISPLAYUSER' USING DISPLAYFUNCTION USER-NAME` แสดงวิธีการส่งฟังก์ชั่นเป็นพารามิเตอร์ ซึ่งในฟังก์ชัน `DISPLAYFUNCTION` จะทำการแสดงชื่อผู้ใช้งานออกทางหน้าจอ

Usecase ในโลกจริง:

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

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

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