COBOL प्रोग्राम से एक्सेल फाइल कैसे लिखें
COBOL प्रोग्रामिंग भाषा की मुख्य ताकत Microsoft Excel सहित छोटे व्यवसाय के लिए उपयोगी विभिन्न डेटा फ़ाइलों को लिखने की इसकी क्षमता है। फ़ाइल को अल्पविराम से अलग मान या CSV के रूप में व्यवस्थित करने से प्रोग्रामिंग कार्य सरल हो जाता है। CSV के साथ, आप अपने COBOL प्रोग्राम के डेटा डिवीजन के फाइल सेक्शन में एक बेसिक फाइल स्ट्रक्चर सेट करते हैं, फिर प्रोसीजर डिवीजन में स्ट्रक्चर में मानों को स्थानांतरित करते हैं। Excel इस फ़ाइल को एक साधारण कार्यपुस्तिका के रूप में खोलता है जिसमें सरल पंक्तियाँ और स्तंभ हैं।
1।
अपने COBOL प्रोग्राम के एन्वायरमेंट डिवीजन के इनपुट-आउटपुट सेक्शन में एक सेलेक्ट एंट्री बनाएँ। यह फ़ाइल का नाम है और आप इसे अपनी हार्ड ड्राइव की फ़ाइल निर्देशिका में स्थित करना चाहते हैं। निम्नलिखित COBOL कथन का चयन करता है:
पर्यावरण प्रभाग। INPUT- बाहर अनुभाग। फ़ाइल-नियंत्रण। "C: \ WORKSHEET.CSV" संगठन के लिए एक्सेल-आउट-फाइल विकल्प का चयन करें क्रमिक विभाजन है।
2।
स्प्रेडशीट के लिए इच्छित पंक्ति के आकार वाले प्लेसहोल्डर के रूप में डेटा डिवीजन के फाइल सेक्शन में एक रिकॉर्ड को परिभाषित करें। डेटा डिवीजन के वर्किंग-स्टोरेज सेक्शन में स्प्रेडशीट के कॉलम वैल्यूज़ को कॉमा द्वारा अलग किए गए डेटा प्रकारों के रूप में सेट करें। निम्नलिखित उदाहरण के रूप में कैरेज-रिटर्न और लाइन फीड पात्रों के साथ प्रत्येक रिकॉर्ड को समाप्त करें:
डेटा विभाजन। फ़ाइल अनुभाग। FD EXCEL-OUTPUT-FILE डेटा-रिकॉर्ड SPREADSHEET-RECORD है। 01 स्प्रेडशीट-रिकॉर्ड तस्वीर एक्स (14)।
काम-भंडारण अनुभाग। 01 WS-SPREADSHEET-ROW। 05 WS-SALES-AMOUNT तस्वीर 999.99। 05 फ़िलियर PIC X VALUE ', '। 05 WS-SALES-QTY PIC 99999. 05 फ़िलियर PIC XX VALUE X'0D25 '।
ध्यान दें कि X'0D25 'हेक्साडेसिमल में एक गाड़ी-वापसी, लाइन फीड का प्रतिनिधित्व करता है। ये दोनों वर्ण CSV फ़ाइल में प्रत्येक रिकॉर्ड के अंत को चिह्नित करते हैं।
3।
डेटा को 05-लेवल वर्किंग-स्टोरेज डेटा एलिमेंट्स में ले जाएँ, फिर अपने प्रोग्राम के प्रोसीजर डिवीजन में 01-लेवल वर्किंग स्टोरेज लेबल को अपने आउटपुट फाइल में ले जाएँ। फ़ाइल परिभाषा या एफडी में आपके द्वारा बनाया गया रिकॉर्ड लिखें। COBOL कोड जो आपके CSV आउटपुट फ़ाइल में एक पंक्ति बनाता है और लिखता है:
प्रक्रिया प्रभाग। खुली बाहर एक्सेल-बाहर-फ़ाइल। WS-SALES-AMOUNT तक की बिक्री मूल्य जारी करें। WS-SALES-QTY को बिक्री-क्यूटी चुनें। WS-SPREADSHEET-ROW को SPREADSHEET-RECORD में ले जाएं। राइट स्प्रैडशीट-रिकॉर्ड। क्लोस एक्सेल-आउट-फाइल।
टिप
- प्रक्रिया प्रभाग में, अपने स्वयं के पैराग्राफ में MOVE और WRITE स्टेटमेंट सेट करें। एक लूप से पैराग्राफ को कॉल करें जो आपकी स्प्रेडशीट में पंक्तियों की संख्या के रूप में कई बार निष्पादित होता है, फिर फ़ाइल को बंद करें।