तालिकाएँ और घटित खण्ड

COBOL में, सजातीय डेटा की सूचियों को परिभाषित करने के लिए कोई "सरणी" या "वेक्टर" कीवर्ड नहीं है। इस उद्देश्य के लिए, आप OCCURS क्लॉज का उपयोग करते हैं, जो निर्दिष्ट करता है कि कोई चर या संरचना मेमोरी में कितनी बार दोहराई जाती है।

OCCURS के साथ एक तालिका को परिभाषित करना

OCCURS खंड को एक समूह संरचना (स्तर 01) के भीतर एक अधीनस्थ चर (उदाहरण के लिए, स्तर 05 या उच्चतर) की घोषणा में जोड़ा जाता है:

01 WS-SALES-DATA.
    05 WS-MONTHLY-SALES PIC 9(4) OCCURS 12 TIMES.

इस उदाहरण में, WS-MONTHLY-SALES एक तालिका है जिसमें 4 अंकों के 12 संख्यात्मक तत्व शामिल हैं। इस रिकॉर्ड के लिए आवंटित मेमोरी बिल्कुल 12 *4 = 48 अक्षर होगी।

तत्वों और अनुक्रमणिका तक पहुँचना

किसी तालिका में किसी विशिष्ट तत्व तक पहुंचने के लिए, फ़ील्ड नाम के तुरंत बाद कोष्ठक में अनुक्रमणिका निर्दिष्ट करें।

[!महत्वपूर्ण] 0-आधारित अनुक्रमणिका का उपयोग करने वाली अधिकांश आधुनिक भाषाओं के विपरीत, COBOL 1-आधारित अनुक्रमणिका का उपयोग करता है। पहला तत्व सूचकांक 1 पर है, दूसरा सूचकांक 2 पर है, इत्यादि।

MOVE 1500 TO WS-MONTHLY-SALES(1).
MOVE 2400 TO WS-MONTHLY-SALES(2).

एक तालिका को पार करना (पुनरावृत्ति)

किसी तालिका के तत्वों के माध्यम से लूप करने के लिए, आप PERFORM VARYING कथन का उपयोग कर सकते हैं या PERFORM UNTIL लूप में मैन्युअल रूप से काउंटर प्रबंधित कर सकते हैं:

PERFORM UNTIL WS-INDEX > 12
    DISPLAY "Sales: " WS-MONTHLY-SALES(WS-INDEX)
    ADD 1 TO WS-INDEX
END-PERFORM.

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