मॉड्यूल पाठ (1/2)
अनुच्छेद और प्रदर्शन
COBOL में, PROCEDURE DIVISION के अंदर कोड की मॉड्यूलरिटी और तार्किक संरचना फ़ंक्शन या विधियों के माध्यम से नहीं होती है, बल्कि पैराग्राफ और PERFORM स्टेटमेंट के माध्यम से होती है।
अनुच्छेदों को परिभाषित करना
पैराग्राफ कोड का एक लेबल अनुभाग है जो कॉलम 8 (क्षेत्र ए) पर एक नाम से शुरू होता है और . अवधि के साथ समाप्त होता है, इसके बाद कॉलम 12 (क्षेत्र बी) पर निर्देशों का एक क्रम होता है।
DISPLAY-MESSAGE.
DISPLAY "This is a paragraph!".पैराग्राफ संभावित रूप से बहुत लंबे कार्यक्रमों को पुन: प्रयोज्य और स्व-दस्तावेजीकरण ब्लॉकों में विभाजित करने की अनुमति देते हैं।
PERFORM के साथ पैराग्राफ निष्पादित करना
PERFORM स्टेटमेंट एक पैराग्राफ को आमंत्रित और निष्पादित करता है, फिर PERFORM स्टेटमेंट के तुरंत बाद निर्देश पर नियंत्रण लौटाता है।
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "Starting program...".
PERFORM PROCESS-DATA.
DISPLAY "Ending program.".
STOP RUN.
PROCESS-DATA.
DISPLAY "Processing data in memory...".उपरोक्त सूची में:
MAIN-PROCEDUREके अंदरDISPLAYनिष्पादित होता है।PERFORM PROCESS-DATAशाखाएंPROCESS-DATAपैराग्राफ पर निष्पादन करती हैं।- एक बार जब
PROCESS-DATAपैराग्राफ समाप्त हो जाता है, तो निष्पादन "एंडिंग प्रोग्राम" प्रिंट करने के लिएMAIN-PROCEDUREपर वापस आ जाता है। औरSTOP RUN.का उपयोग बंद करें।
खुद कोशिश करना
DISPLAY-TOTAL नाम के एक पैराग्राफ को परिभाषित करें जो DISPLAY का उपयोग करके 'TOTAL IS DONE' प्रिंट करता है, और प्रोग्राम को रोकने से पहले PERFORM का उपयोग करके इसे MAIN-PROCEDURE के अंदर कॉल करें।
संकेत दिखाएँ
प्रदर्शन प्रदर्शन-कुल लिखें। कॉलम 12 पर, और मुख्य-प्रक्रिया ब्लॉक के नीचे प्रदर्शन-कुल घोषित करें। कॉलम 8 पर पैराग्राफ.
3 प्रयासों के बाद समाधान उपलब्ध है
मुख्य-प्रक्रिया ब्लॉक के भीतर क्रमिक रूप से दो पैराग्राफ को कॉल करें, पहले इनिशियलाइज़-डेटा और फिर प्रोसेस-डेटा।
संकेत दिखाएँ
कॉलम 12 पर क्रमिक क्रम में दो PERFORM कथन डालें।
3 प्रयासों के बाद समाधान उपलब्ध है