அட்டவணைகள் மற்றும் நிகழ்வுகள் பிரிவு

COBOL இல், ஒரே மாதிரியான தரவுகளின் பட்டியலை வரையறுக்க "வரிசை" அல்லது "வெக்டர்" முக்கிய வார்த்தை இல்லை. இந்த நோக்கத்திற்காக, நீங்கள் OCCURS விதியைப் பயன்படுத்துகிறீர்கள், இது ஒரு மாறி அல்லது அமைப்பு நினைவகத்தில் எத்தனை முறை மீண்டும் நிகழ்கிறது என்பதைக் குறிப்பிடுகிறது.

நிகழ்வுகளுடன் அட்டவணையை வரையறுத்தல்

ஒரு குழு கட்டமைப்பிற்குள் (நிலை 01) துணை மாறியின் (உதாரணமாக, நிலை 05 அல்லது அதற்கு மேற்பட்டது) அறிவிப்பில் OCCURS பிரிவு சேர்க்கப்பட்டுள்ளது:

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.

நீங்களே முயற்சி செய்து பாருங்கள்