القرارات مع IF والتقييم

يتم اتخاذ القرار في 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.: لإغلاق البنية.

جربه بنفسك