ప్రధాన కంటెంట్‌కు వెళ్లండి
మాడ్యూల్ 3 · 2లో పాఠం 1కోర్సులో 5/10~12 min
మాడ్యూల్ పాఠాలు (1/2)

పేరాగ్రాఫ్‌లు మరియు PERFORM

COBOLలో, PROCEDURE DIVISION లోపల కోడ్ యొక్క మాడ్యులారిటీ మరియు లాజికల్ స్ట్రక్చరింగ్ అనేది ఫంక్షన్‌లు లేదా పద్ధతుల ద్వారా జరగదు, కానీ పేరాగ్రాఫ్‌లు మరియు PERFORM స్టేట్‌మెంట్ ద్వారా జరుగుతుంది.

పేరాగ్రాఫ్‌లను నిర్వచించడం

పేరా అనేది కాలమ్ 8 (ఏరియా A) వద్ద . వ్యవధితో ముగిసే పేరుతో ప్రారంభమయ్యే కోడ్ యొక్క లేబుల్ విభాగం, ఆ తర్వాత కాలమ్ 12 (ఏరియా B) వద్ద సూచనల క్రమం ఉంటుంది.

COBOL
DISPLAY-MESSAGE.
    DISPLAY "This is a paragraph!".

పేరాగ్రాఫ్‌లు చాలా పొడవైన ప్రోగ్రామ్‌లను పునర్వినియోగపరచదగిన మరియు స్వీయ-డాక్యుమెంటింగ్ బ్లాక్‌లుగా విభజించడానికి అనుమతిస్తాయి.

PERFORMతో పేరాగ్రాఫ్‌లను అమలు చేయడం

PERFORM స్టేట్‌మెంట్ పేరాగ్రాఫ్‌ను అమలు చేస్తుంది మరియు అమలు చేస్తుంది, ఆపై PERFORM స్టేట్‌మెంట్‌ను అనుసరించి వెంటనే సూచనలకు నియంత్రణను అందిస్తుంది.

COBOL
PROCEDURE DIVISION.
MAIN-PROCEDURE.
    DISPLAY "Starting program...".
    PERFORM PROCESS-DATA.
    DISPLAY "Ending program.".
    STOP RUN.

PROCESS-DATA.
    DISPLAY "Processing data in memory...".

పై జాబితాలో:

  1. MAIN-PROCEDURE లోపల DISPLAY అమలు చేయబడింది.
  2. PERFORM PROCESS-DATA PROCESS-DATA పేరాకు శాఖల అమలు.
  3. PROCESS-DATA పేరా ముగిసిన తర్వాత, "ముగిస్తున్న ప్రోగ్రామ్"ని ప్రింట్ చేయడానికి అమలు MAIN-PROCEDUREకి తిరిగి వస్తుంది. మరియు STOP RUN.ని ఉపయోగించడం ఆపివేయండి.

మీరే ప్రయత్నించండి

వ్యాయామం#cobol.m3.l1.e1
ప్రయత్నాలు: 0లోడ్ అవుతోంది...

DISPLAYని ఉపయోగించి 'మొత్తం పూర్తయింది' అని ప్రింట్ చేసే DISPLAY-TOTAL అనే పేరాను నిర్వచించండి మరియు ప్రోగ్రామ్‌ను ఆపివేసే ముందు దాన్ని PERFORMని ఉపయోగించి మెయిన్-ప్రోసీడర్‌లో కాల్ చేయండి.

ఎడిటర్ లోడ్ అవుతోంది…
సూచనను చూపించు

ప్రదర్శన-మొత్తం పనితీరును వ్రాయండి. నిలువు వరుస 12 వద్ద, మరియు MAIN-PROCEDURE బ్లాక్ దిగువన DISPLAY-TOTALని ప్రకటించండి. కాలమ్ 8 వద్ద పేరా.

3 ప్రయత్నాల తర్వాత పరిష్కారం లభిస్తుంది

వ్యాయామం#cobol.m3.l1.e2
ప్రయత్నాలు: 0లోడ్ అవుతోంది...

MAIN-PROCEDURE బ్లాక్‌లో రెండు పేరాగ్రాఫ్‌లను వరుసగా కాల్ చేయండి, మొదట INITIALIZE-DATA ఆపై PROCESS-DATA.

ఎడిటర్ లోడ్ అవుతోంది…
సూచనను చూపించు

నిలువు వరుస 12 వద్ద వరుస క్రమంలో రెండు PERFORM స్టేట్‌మెంట్‌లను చొప్పించండి.

3 ప్రయత్నాల తర్వాత పరిష్కారం లభిస్తుంది