தொகுதி பாடங்கள் (1/2)
குழு பொருட்கள் மற்றும் பதிவுகள்
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 அறிக்கை மற்றும் குழு உருப்படிகள்
தனிப்பட்ட அடிப்படை புலங்களுக்கு நாம் மதிப்புகளை ஒதுக்கலாம்:
MOVE 10023 TO WS-EMP-ID.
MOVE "JOHN DOE" TO WS-EMP-NAME.அல்லது ஒரே செயல்பாட்டில் முழு பதிவையும் மற்றொரு இணக்கமான பதிவில் நகலெடுக்கலாம்:
MOVE WS-EMPLOYEE-RECORD TO WS-EMPLOYEE-BACKUP.நீங்களே முயற்சி செய்து பாருங்கள்
நிலை 05 இன் மூன்று துணைப் புலங்களைக் கொண்ட WS-STUDENT-RECORD என பெயரிடப்பட்ட குழு அமைப்பு 01 ஐ அறிவிக்கவும்: WS-STUDENT-ID (5 இலக்கங்களின் எண்), WS-STUDENT-NAME (எண்ணெழுத்து 15 எழுத்துகள்), மற்றும் WS-STUDENT-GPA (1 எண் மற்றும் 2 எண்களுடன் எண்கள்).
குறிப்பைக் காட்டு
தொடரியல் பயன்படுத்தவும்: 01 WS-STUDENT-RECORD. (காலம் மற்றும் PIC இல்லாதது), அடுத்த வரிகளில் நிலை 05 WS-STUDENT-ID PIC 9(5), 05 WS-STUDENT-NAME PIC X(15). மற்றும் 05 WS-STUDENT-GPA PIC 9(1)V99.
3 முயற்சிகளுக்குப் பிறகு தீர்வு கிடைக்கும்
10023 மதிப்பை WS-EMP-ID, 'JOHN DOE' என்ற உரையை WS-EMP-NAMEக்கு நகர்த்துவதன் மூலம் செயல்முறைப் பிரிவை முடிக்கவும், இறுதியாக DISPLAY ஐப் பயன்படுத்தி WS-EMPLOYEE-RECORD குழு அமைப்பைக் காண்பிக்கவும்.
குறிப்பைக் காட்டு
WS-EMP-IDக்கு MOVE 10023 ஐப் பயன்படுத்தவும். மற்றும் 'JOHN DOE' ஐ WS-EMP-NAMEக்கு நகர்த்தவும். மதிப்புகளை ஒதுக்க, பிறகு DISPLAY WS-EMPLOYEE-RECORD என எழுதவும். இறுதியாக ரன் ஸ்டாப்.
3 முயற்சிகளுக்குப் பிறகு தீர்வு கிடைக்கும்