IF और EVALUATE के साथ निर्णय

COBOL में निर्णय लेना मुख्य रूप से IF सशर्त विवरण और बहु-शाखा चयन संरचना EVALUATE (आधुनिक भाषाओं में switch या match के अनुरूप) का उपयोग करके किया जाता है।

IF सशर्त विवरण

IF कथन का मूल सिंटैक्स है:

IF condition
    statements-if-true
ELSE
    statements-if-false
END-IF.

आधुनिक COBOL संस्करणों (COBOL-85 और बाद में) में, कथन को केवल अंतिम अवधि . पर निर्भर होने के बजाय स्पष्ट रूप से END-IF. के साथ समाप्त होना चाहिए, जिससे पार्सिंग और तर्क त्रुटियों में काफी कमी आती है।

सामान्य शर्तें

• इससे बड़ा: > या GREATER THAN
• इससे कम: < या LESS THAN
• इसके बराबर: = या EQUAL TO
• इससे बड़ा या इसके बराबर: >= या GREATER THAN OR EQUAL TO
• इससे कम या इसके बराबर: <= या LESS THAN OR EQUAL TO

IF WS-BALANCE < 0
    DISPLAY "OVERDRAWN"
ELSE
    DISPLAY "ACCOUNT ACTIVE"
END-IF.

मूल्यांकन कथन

जब हमें एक चर की तुलना कई अलग-अलग मानों से करने की आवश्यकता होती है, तो नेस्टेड IF कथन जटिल हो सकते हैं। EVALUATE कथन विकल्पों को साफ़ तरीके से संरचित करके इसका समाधान करता है:

EVALUATE WS-USER-ROLE
    WHEN "ADMIN"
        DISPLAY "FULL ACCESS"
    WHEN "EDITOR"
        DISPLAY "EDIT ACCESS"
    WHEN OTHER
        DISPLAY "LIMITED ACCESS"
END-EVALUATE.

• WHEN OTHER: फ़ॉलबैक शाखा की पहचान करता है (आधुनिक भाषाओं में default या अंतिम else के बराबर)।
• END-EVALUATE.: संरचना को बंद करता है।

खुद कोशिश करना