החלטות עם 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.

הצהרת EVALUATE

כאשר אנו צריכים להשוות משתנה מול מספר ערכים נפרדים, הצהרות 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.: סוגר את המבנה.

נסה זאת בעצמך