समूह आइटम और रिकॉर्ड

COBOL में, प्राथमिक चरों को एक पदानुक्रमित संरचना में एक साथ समूहीकृत किया जा सकता है जिसे समूह आइटम या रिकॉर्ड कहा जाता है। यह आपको संबंधित डेटा के एक सेट को या तो एक इकाई के रूप में (उदाहरण के लिए, उन्हें कॉपी करने या प्रदर्शित करने के लिए) या व्यक्तिगत फ़ील्ड के रूप में व्यवहार करने की अनुमति देता है।

स्तर संख्याएँ और पदानुक्रमित संबंध

किसी रिकॉर्ड को परिभाषित करने के लिए, आप DATA DIVISION में स्तर संख्या का उपयोग करते हैं:

• स्तर 01: मुख्य रिकॉर्ड (समूह का नाम) को परिभाषित करता है। इसका अपना PICTURE खंड नहीं है क्योंकि इसका आकार इसके आंतरिक क्षेत्रों के योग से निर्धारित होता है।
• अधीनस्थ स्तर (05, 10, 15, आदि): उच्च-स्तरीय समूह से संबंधित अधीनस्थ क्षेत्रों की पहचान करें। वे प्राथमिक चर (PIC खंड के साथ) या, बदले में, अन्य समूह आइटम (उप-रिकॉर्ड) हो सकते हैं।

01 WS-EMPLOYEE-RECORD.
    05 WS-EMP-ID       PIC 9(5).
    05 WS-EMP-NAME     PIC X(20).
    05 WS-EMP-SALARY   PIC 9(6)V99.

इस उदाहरण में, WS-EMPLOYEE-RECORD एक समूह संरचना है जिसमें तीन अधीनस्थ क्षेत्र हैं। यदि हम WS-EMPLOYEE-RECORD का संदर्भ देते हैं, तो हम रिकॉर्ड के सभी 5 + 20 + 8 = 33 अक्षर एक साथ पढ़ते या लिखते हैं।

मूव स्टेटमेंट और ग्रुप आइटम

हम अलग-अलग प्राथमिक क्षेत्रों को मान निर्दिष्ट कर सकते हैं:

MOVE 10023 TO WS-EMP-ID.
MOVE "JOHN DOE" TO WS-EMP-NAME.

या हम एक ही ऑपरेशन में पूरे रिकॉर्ड को दूसरे संगत रिकॉर्ड में कॉपी कर सकते हैं:

MOVE WS-EMPLOYEE-RECORD TO WS-EMPLOYEE-BACKUP.

खुद कोशिश करना