தொகுதி பாடங்கள் (2/2)
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.: கட்டமைப்பை மூடுகிறது.
நீங்களே முயற்சி செய்து பாருங்கள்
WS-USER-AGE மாறி 18 ஐ விட அதிகமாகவோ அல்லது சமமாகவோ உள்ளதா என்பதைச் சரிபார்க்கும் IF-ELSE-END-IF பிளாக்கை எழுதவும். உண்மை எனில், 'ADULT' ஐ அச்சிடவும், இல்லையெனில் DISPLAY ஐப் பயன்படுத்தி 'MINOR' ஐ அச்சிடவும்.
குறிப்பைக் காட்டு
ஒப்பிடுவதற்கு >=, வெளியீட்டிற்கு DISPLAY மற்றும் END-IF ஐப் பயன்படுத்தவும். (தொகுதியின் முடிவில் புள்ளியுடன்).
3 முயற்சிகளுக்குப் பிறகு தீர்வு கிடைக்கும்
WS-STATUS மாறியை சரிபார்க்க EVALUATE கட்டமைப்பை முடிக்கவும். மதிப்பு 'A' எனில் 'Active', 'I' எனில் 'INACTIVE' என அச்சிடவும், இல்லையெனில் வேறு எந்த மதிப்புக்கும் 'UNKNOWN' எனவும் அச்சிடவும்.
குறிப்பைக் காட்டு
ஒவ்வொரு WHEN கிளையையும் அதன் டிஸ்ப்ளேவைத் தொடர்ந்து எழுதவும், பின்னடைவைக் கையாள எப்போது மற்றவற்றைப் பயன்படுத்தவும்.
3 முயற்சிகளுக்குப் பிறகு தீர்வு கிடைக்கும்