cobol
डेटा विभाजन

परिचय

डेटा डिवीजन में अनुभाग

COBOL में अनुभाग आवश्यक या वैकल्पिक हो सकते हैं, जिसके आधार पर वे किस डिवीजन में हैं।

DATA DIVISION.
FILE SECTION.
FD SAMPLE-FILE
01 FILE-NAME PIC X(20).
WORKING-STORAGE SECTION.
01 WS-STUDENT PIC A(10).
01 WS-ID PIC 9(5).
LOCAL-STORAGE SECTION.
01 LS-CLASS PIC 9(3).
LINKAGE SECTION.
01 LS-ID PIC 9(5).

उपरोक्त उदाहरण में, 01 स्तर संख्याएँ हैं।

स्तर संख्या

एक रिकॉर्ड में डेटा के स्तर को निर्दिष्ट करने के लिए स्तर संख्या का उपयोग किया जाता है। उनका उपयोग प्राथमिक वस्तुओं और समूह वस्तुओं के बीच अंतर करने के लिए किया जाता है। समूह आइटम बनाने के लिए प्राथमिक वस्तुओं को एक साथ समूहीकृत किया जा सकता है।

• 01: रिकॉर्ड विवरण प्रविष्टि। समूह स्तर की संख्या हमेशा 01 होती है।

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NAME               PIC X(25).   ---> ELEMENTARY ITEM 
01 WS-SURNAME            PIC X(25).   ---> ELEMENTARY ITEM    
01 WS-ADDRESS.                        ---> GROUP ITEM   
   05 WS-HOUSE-NUMBER    PIC 9(3).    ---> ELEMENTARY ITEM
   05 WS-STREET          PIC X(15).   ---> ELEMENTARY ITEM 

• 02 से 49: प्राथमिक आइटम
• 66: क्लॉज आइटम का नाम बदलें
• 77: जिन वस्तुओं को उप-विभाजित नहीं किया जा सकता है।
• 88: स्तर 88 एक विशेष स्तर की संख्या है जिसका उपयोग COBOL कार्यक्रमों की पठनीयता और IF परीक्षणों को सुधारने के लिए किया जाता है। एक स्तर 88 दूसरे चर के तहत एक स्तर जैसा दिखता है, लेकिन ऐसा नहीं है। यह एक तस्वीर नहीं है, लेकिन यह एक मूल्य है। एक स्तर 88 हमेशा एक और चर के साथ जुड़ा हुआ है और उस चर के लिए एक शर्त नाम है।

 01 YES-NO PIC X.
 88 ANSWER-IS-YES VALUE "Y".

निम्नलिखित दोनों स्थितियां परीक्षण करती हैं कि क्या YES-NO "Y" के बराबर है:

 IF YES-NO = "Y"
 IF ANSWER-IS-YES

एक स्तर 88 स्थिति नाम का उपयोग अल्फ़ान्यूमेरिक या संख्यात्मक चर के लिए किया जा सकता है।

चित्र खंड

PICTURE CLAUSE एक चर के बारे में दो चीजों को परिभाषित करता है: चर का आकार (मूल्य के लिए मेमोरी में उपयोग किए जाने वाले बाइट्स की संख्या) और डेटा का प्रकार जो चर में संग्रहीत किया जा सकता है।