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

## การใช้งานตัวแปร String ในภาษา COBOL สำหรับมือใหม่

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

พื้นฐานของ String Variable ใน COBOL

ใน COBOL, ตัวแปรประเภท string มักจะเรียกว่า "ช่องความจำ" หรือ "data item" ที่ใช้เก็บข้อความหรือข้อมูลที่เป็นตัวอักษร ตัวแปรเหล่านี้สามารถประกาศใน DATA DIVISION ภายใต้ WORKING-STORAGE SECTION หรือ LOCAL-STORAGE SECTION ของโครงสร้างโปรแกรม COBOL

DATA DIVISION.
WORKING-STORAGE SECTION.
01 MY-STRING   PIC X(10) VALUE "HELLO".

PROCEDURE DIVISION.
    DISPLAY MY-STRING.
    STOP RUN.

ในตัวอย่างนี้, เรามีตัวแปรชื่อ `MY-STRING` ที่มีพื้นที่จำกัดเพียง 10 ตัวอักษร (X(10)) และมันถูกกำหนดค่าเริ่มต้นเป็น "HELLO" หลังจากประกาศ, มันจะถูกแสดงออกมาในหน้าจอผ่านคำสั่ง DISPLAY

การใช้ตัวแปร String พร้อมตัวอย่าง CODE

ตัวอย่างที่ 1: การรวม String (String Concatenation)

01 FIRST-NAME  PIC X(10) VALUE "TOM".
01 LAST-NAME   PIC X(15) VALUE "RIDDLE".
01 FULL-NAME   PIC X(25).

PROCEDURE DIVISION.
    MOVE FIRST-NAME TO FULL-NAME.
    STRING FIRST-NAME DELIMITED BY SIZE
           SPACE
           LAST-NAME DELIMITED BY SIZE
           INTO FULL-NAME.

    DISPLAY FULL-NAME.
    STOP RUN.

การทำงาน: โค้ดนี้รวม FIRST-NAME และ LAST-NAME เข้าด้วยกันพร้อมกับช่องว่างระหว่างคำเพื่อสร้าง FULL-NAME แล้วแสดงผล

ตัวอย่างที่ 2: การตัดคำ (String Trimming)

01 USER-INPUT   PIC X(20) VALUE "EPT           ".
01 TRIMMED      PIC X(20).

PROCEDURE DIVISION.
    INSPECT USER-INPUT TALLYING TRIMMED FOR CHARACTERS BEFORE INITIAL SPACE
    MOVE USER-INPUT(1:TRIMMED) TO TRIMMED.

    DISPLAY TRIMMED.
    STOP RUN.

การทำงาน: โค้ดนี้จะตัดช่องว่างส่วนเกินออกจาก USER-INPUT เพื่อแสดงผลเฉพาะคำ "EPT"

ตัวอย่างที่ 3: การค้นหาและแทนที่ (Search and Replace)

01 PARAGRAPH    PIC X(100) VALUE "COBOL is old but not obsolete.".
01 WORD-TO-FIND PIC X(15) VALUE "old".
01 WORD-TO-REPLACE PIC X(15) VALUE "timeless".

PROCEDURE DIVISION.
    PERFORM VARYING I FROM 1 BY 1 UNTIL I > LENGTH OF PARAGRAPH
        IF PARAGRAPH(I:LENGTH OF WORD-TO-FIND) = WORD-TO-FIND
            MOVE WORD-TO-REPLACE TO PARAGRAPH(I:LENGTH OF WORD-TO-REPLACE)
        END-IF
    END-PERFORM.

    DISPLAY PARAGRAPH.
    STOP RUN.

การทำงาน: โค้ดนี้จะค้นหาคำว่า "old" ใน PARAGRAPH และแทนที่มันด้วยคำว่า "timeless"

Usecase ในโลกจริง

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

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

สรุป

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

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