👩🏾‍🤝‍👨🏻 😱 👩🏾‍🔧 ABAP का उपयोग करके आर / 3 सिस्टम को विनिमय दरें अपलोड करना 🤼 🤸 💴

मैं एक बहुत बड़े औद्योगिक उद्यम में ABAP प्रोग्रामर के रूप में काम करता हूं। मैं मुख्य रूप से समर्थन और रखरखाव में लगा हुआ हूं, इसलिए मेरे काम में अक्सर खामियां हैं। मैंने ABAP के बारे में एक लेख लिखने का फैसला किया।

जब मुझे एक आर / 3 नौकरी मिली, तो मैंने पहले से ही देखा और कुछ करने में सक्षम था। ABAP / 4 हमने संस्थान में अध्ययन किया। उन्होंने मूल सिंटैक्स दिखाया, लेकिन कुछ कार्यक्रमों को बिना किसी व्याख्या के लिखा गया।

काम पर पहले सप्ताह, मैंने एक ABAP पुस्तक पढ़ी और खुलकर याद किया। कुछ समय बाद, मुझे अंततः कार्य दिया गया।

जो स्वागत के इच्छुक हैं।

जैसा कि यह निकला, कार्य एक सामान्य समस्या को हल करने के उद्देश्य से किया गया था। अर्थात्, केंद्रीय बैंक की वेबसाइट से सिस्टम में मुद्रा दरों को डाउनलोड करना।

हमारी कंपनी में एक व्यक्ति है जो इन समान पाठ्यक्रमों की शुरूआत में लगा हुआ है।

यह मेरे हस्तक्षेप से पहले कैसे काम किया। उपयोगकर्ता सेंट्रो-बैंक की वेबसाइट पर गया, पाठ्यक्रम लेबल की प्रतिलिपि बनाई, फिर स्क्रिप्ट को वांछित रूप में अजगर में लिखा गया, और फिर उपयोगकर्ता ने आर / 3 में लेनदेन शुरू किया और कार्यक्रम को प्राप्त पाठ फ़ाइल को खिलाया। अत्यधिक परिष्कृत ऑपरेशन।

मुझे काम मिल गया।

सबसे पहले, मैंने केंद्रीय बैंक की वेबसाइट को देखा और पाया कि आप XML फ़ाइल के रूप में साइट से विनिमय दर ले सकते हैं। मैंने फैसला किया कि मस्तिष्क को एक कार्यक्रम शुरू करने के लिए खाना और लिखना नहीं चाहिए जो इस फ़ाइल को खाएगा और इसे एक आंतरिक टैबलेट में भर देगा।
आरएम / 3 एक्सएमएल फ़ाइलों को खाने का तरीका जानता है, लेकिन मैंने तब एक्सएमएल के साथ काम करने के लिए कार्यात्मक मॉड्यूल का पता लगाने का प्रबंधन नहीं किया और अपनी बाइक लिखने का फैसला किया, मैं युवा था। इंटरनेट, मदद और एक स्मार्ट पुस्तक को चकमा नहीं देने की विधि से, मुझे एक एफएम मिला जो एक फाइल को आंतरिक टैबलेट में पढ़ता है। परिणाम एक ऐसा रूप है:

*    . form get_file tables table_name using file_name like rlgrap-filename. call function 'WS_UPLOAD' exporting CODEPAGE = ' ' FILENAME = FILE_NAME FILETYPE = 'ASC' tables DATA_TAB = TABLE_NAME exceptions CONVERSION_ERROR = 1 FILE_OPEN_ERROR = 2 FILE_READ_ERROR = 3 INVALID_TYPE = 4 NO_BATCH = 5 OTHERS = 6. *   . case sy-subrc. when 1. write '  .'. exit. when 2. write '  .'. exit. when 3. write '  .'. exit. when 4. write '  .'. exit. when 5. write 'Front-End Function Cannot Be Executed in Backgrnd.'. exit. when 6. write ' .'. exit. endcase. endform.

FM एक TABLE_NAME लेबल जारी करता है जिसमें प्रत्येक पंक्ति डाउनलोड की गई फ़ाइल की एक पंक्ति है। फार्म की तर्ज से प्रश्न उत्पन्न हुआ:

 <Valute ID="R01010"> <NumCode>036</NumCode> <CharCode>AUD</CharCode> <Nominal>1</Nominal> <Name> </Name> <Value>27,0138</Value> </Valute>

मुद्रा कोड, अंकित मूल्य और वास्तविक दर प्राप्त करें। पिछले काम में मैं वेब विकास में लगा हुआ था, मुझे इस क्षेत्र में बहुत सफलता नहीं मिली, लेकिन मुझे कुछ उपयोगी ज्ञान मिला। सामान्य तौर पर, अगली बार जब मैंने खुद को मदद में डुबोया, तो मुझे पता चला कि एबीएपी नियमित अभिव्यक्ति के साथ काम कर सकता है। बिना किसी हिचकिचाहट के, मैंने एक संरचना बनाई:

 *    . read table valuta into valuta index 2. RE-PLACE REGEX '(\W\w+\W\w+\W+)(\d+)(\D)(\d+)(\D)(\d+)(\W+\w+\W+\w+.\w+)' IN valuta WITH `$2.$4.$6`. if sy-subrc = 0. date = valuta. endif. *     . loop at l_val into l_val. clear val. if l_val-waers <> 'UE'. *       XML   . concatenate '<CharCode>' l_val-waers '</CharCode>' into s_val. find s_val in table valuta match line index. if sy-subrc = 0. val-kodv = l_val-waers. val-datan = date. add 1 to index. read table valuta into valuta index index. *   . REPLACE REGEX '(\W+\w+\W)(\d+)(\W+\w+\W)' IN valuta WITH '$2'. nom = valuta. add 2 to index. read table valuta into valuta index index. *     . RE-PLACE REGEX '(\W+\w+\W)(\d+)(\D)(\d+)(\W+\w+\W)' IN valuta WITH '$2.$4'. if sy-subrc = 0. tmp = valuta / nom. val-kyrsp = tmp. replace all occurrences of '.' in val-kyrsp with ','. *    . append val. endif. else. s_val = text-wv1. replace '&1' in s_val with l_val-waers. message s_val type 'I'. endif. endif. endloop.

मैला, लेकिन तब मुझे अपने आप पर गर्व था जब पूरी चीज ने काम किया।

इस समय तक मुझे इंटरनेट का उपयोग करने के लिए एक लॉगिन और पासवर्ड दिया गया था। और बॉस ने HTTP_GET फ़ंक्शन मॉड्यूल की दिशा में देखने का सुझाव दिया। लेकिन दुर्भाग्य से इस मॉड्यूल के लिए प्रलेखन हमारे सिस्टम में नहीं था, मुझे स्पर्श से अनुमान लगाना था कि इस चमत्कार के साथ कैसे काम किया जाए।

मैंने URL पासवर्ड और प्रॉक्सी लॉगिन खिलाने की कोशिश की, लेकिन कोई नतीजा नहीं निकला। कई प्रयोगों के बाद, मैंने निर्धारित किया कि प्रॉक्सी सर्वर बाहरी दुनिया में नहीं जाता है।

मुझे फिर से Google और मंचों पर खुदाई करनी पड़ी। एक मंच पर मुझे एक समाधान मिला। यह पता चला है कि HTTP_GET कुटिलता से प्रॉक्सी के साथ संवाद कर रहा है और एक समाधान प्रस्तावित किया गया है।

प्रॉक्सी डेटा को THTTP लेबल में दर्ज किया जाना चाहिए, इस तालिका के EXITFUNC क्षेत्र में फ़ंक्शन मॉड्यूल 'HTTP_PROXY_CONFIG' दर्ज किया जाना चाहिए (यह निर्धारित करता है कि क्या URL से कनेक्ट करने के लिए प्रॉक्सी की आवश्यकता है, यदि ऐसा है, तो तालिका पंक्ति से डेटा प्रसारित होता है)।

खैर, फंक्शन मॉड्यूल कॉल अपने आप में कुछ इस तरह दिखता है:

 call function 'HTTP_GET' exporting absolute_uri = url blankstocrlf = 'x' timeout = 500 rfc_destination = 'SAPHTTP' tables response_entity_body = file_table response_headers = file_headers exceptions connect_failed = 1 timeout = 2 internal_error = 3 tcpip_error = 4 data_error = 5 system_failure = 6 communication_failure = 7.

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

ABAP का उपयोग करके आर / 3 सिस्टम को विनिमय दरें अपलोड करना

More articles: