मिलिए COBOL - भाग 3

दुर्भाग्य से, मैं पिछले लेख में कई महत्वपूर्ण खोजशब्दों को बताना भूल गया:

बांटने के लिए।

WS-A GIVING WS-B के द्वारा DIVIDE WS- रिजल्ट रिमाइंडर <परिवर्तनीय>।

REMAINDER के उपयोग से हम एक वैरिएबल निर्दिष्ट करते हैं जिसमें डिवीजन से रिजल्ट लिखा होता है।

किसी भी गणितीय कार्य के लिए:

इसके अलावा, ऑपरेशन के बाद ROUNDED को जोड़ने पर, हम यह प्राप्त करते हैं कि परिणाम गोल हो जाएगा, और न केवल अतिरिक्त पूंछ को "त्यागें"।
WS-A को WS-B देने के लिए WS-RESULT को मिला दिया गया।

और अब हम नई चीजें सीखते रहते हैं। चर मानों की अजीब व्युत्पत्ति के आश्चर्य को दूर करने के वादे को पूरा करते हुए, इस बार हम PICTURE IS (aka PIC) और चर स्वरूपों का विश्लेषण करेंगे।


और फिर से हम DATA DIVISION पर लौटते हैं।
एक बार फिर चर विवरण के साथ पंक्ति पर विचार करें:
01 - चर का स्तर;
डब्ल्यूएस-बी चर का नाम है;
PIC एक कीवर्ड है जो दर्शाता है कि चर के प्रारूप का वर्णन निम्न प्रकार है, पुराना रूप PICTURE IS है।
9 (3) - चर "9" में वर्णों का प्रकार और उनकी संख्या "3"।

लेवल वार्बल।
साधारण चर के लिए, उपयोगकर्ता 01 से 49 तक समावेशी स्तर तक पहुंच सकता है और 77. एक चर का स्तर चर के समूह में इसकी पदानुक्रम का वर्णन करता है, उच्च संख्या, "सीढ़ी" में चर कम होता है। उदाहरण के लिए
01 कस्टमर-रिकॉर्ड।
05 कस्टमर-नेम PIC X (10)।
05 ग्राहक-प्रवेश तस्वीर X (30)।

लेवल 77 एक वैरिएबल को एलेमेंट्री घोषित करता है, यानी इसमें सब-वेरिएबल नहीं हो सकता।
स्तर 88 चर को सशर्त घोषित करता है, और अगली बार उनके बारे में अधिक परिष्कृत और समृद्ध कार्यात्मक रूप में।
कुछ अन्य स्तर हैं जो या तो संकलक निर्माताओं द्वारा पेश किए गए हैं, या हमें अब उनकी आवश्यकता नहीं है।

नाम का नाम।
चर नाम संख्याओं, अक्षरों और "-" से मिलकर बना हो सकता है, लेकिन "-" से शुरू नहीं होना चाहिए।
चर नाम 30 अक्षरों से अधिक नहीं होना चाहिए।

विभिन्न प्रारूप के विवरण।
विचार करें कि COBOL में चर के लिए वर्णनात्मक वर्ण मौजूद हैं।
वे दो समूहों में विभाजित हैं: "साधारण" और "संपादन"।

सामान्य लोगों में शामिल हैं
9 - एक अंक;

V, दशमलव से पूर्णांक भाग को अलग करने वाला संकेत है (प्रत्येक चर में केवल एक बार लागू किया जा सकता है)।

S - "character" संकेत, चर के प्रारूप में बहुत पहले वर्ण होना चाहिए (प्रत्येक चर में केवल एक बार उपयोग किया जा सकता है)।

X एक अल्फ़ान्यूमेरिक वर्ण है, अर्थात संख्या, अक्षर, स्थान, विशेष। अक्षर।

A एकल अक्षर का चिन्ह या स्थान है।

प्रतीकों का संपादन - उनके लिए धन्यवाद, चर का वर्णन किया जाता है जो गणना में भाग नहीं लेंगे, लेकिन आपको उस उपस्थिति को ठीक करने की अनुमति देते हैं जिसमें चर प्रदर्शित / मुद्रित किया जाएगा:

Z - 9'ki को इस अंतर से बदलता है कि सभी प्रमुख शून्य हटा दिए जाते हैं।

$ - संकलक के लिए निर्दिष्ट "मुद्रा प्रतीक", डिफ़ॉल्ट रूप से, मूल रूप से एक डॉलर का संकेत है, केवल विवरण में FIRST चरित्र के रूप में उपयोग किया जाता है। इसका उपयोग केवल एक बार किया जा सकता है। इसका मान ENVIRONMENT DIVISION में निर्धारित है। मदद से

* Z का एक एनालॉग है, लेकिन अग्रणी शून्य को * से बदल दिया जाता है।

- (माइनस) - पहले और अंतिम दोनों वर्णों द्वारा इंगित किया जा सकता है, लेकिन केवल एक बार। यदि संख्या नकारात्मक है, तो शून्य प्रदर्शित किया जाएगा, अन्यथा खाली स्थान।

+ (प्लस) "-" (माइनस) का एनालॉग है, लेकिन सकारात्मक संख्या के मामले में, "+" प्रदर्शित किया जाएगा, और नकारात्मक संख्या के मामले में, "-" प्रदर्शित किया जाएगा।

। (डॉट) दशमलव बिंदु है। इसके स्थान पर बिल्कुल "बिंदु" प्रदर्शित किया जाएगा।

, (अल्पविराम) - a अल्पविराम। शायद एक चर में थोड़ा।

/ (स्लेश) - a slash sign। शायद कुछ। एक "स्लैश" आउटपुट, तिथियों में लोकप्रिय।

0 (शून्य) - "शून्य"। बस इस बिंदु पर 0 प्रदर्शित किया जाएगा।

B (रिक्त, रिक्त से) - "स्थान"।

लेकिन सबसे महत्वपूर्ण बात, जैसा कि आप समझ सकते हैं, ये सभी प्रतीक संयुक्त हैं और आपको बहुत लचीले रूप और प्रकार प्राप्त करने की अनुमति देते हैं। यहां वास्तव में केवल एक नियम है - संख्यात्मक चर 18 वर्णों से अधिक नहीं होना चाहिए, अल्फ़ान्यूमेरिक - 160 वर्ण। लेकिन यहां फिर से, कंपाइलर और इसके मापदंडों पर बहुत कुछ निर्भर करता है।

DELICIOUS ADDITIONS या IS LIFE AFTER PIC'a!
इसके अलावा, जब एक चर का वर्णन उसके प्रारूप के बाद किया जाता है, तो अतिरिक्त "विकल्प" जोड़े जा सकते हैं:

शून्य शून्य - यदि चर 0 है, तो शून्य स्थान इसके बजाय प्रदर्शित किया जाएगा, शून्य नहीं।
मान "मान" - तुरंत एक चर के लिए एक विशिष्ट मूल्य प्रदान करता है।

अन्य हैं, लेकिन उनका उल्लेख करना अब बेकार होगा।
तो अब, आइए उन सभी को अलग-अलग रूपों में महसूस करें।

 000100 पहचान प्रभाग।
 000200 कार्यक्रम-आईडी।  चर-परीक्षा।
 000300 वाहन।  मुझे।
 000400 पर्यावरण विभाग।
 000500 डेटा विभाजन।
 000600 काम-भंडारण अनुभाग।
 000,700 01 हुमन-कंटेनर।
 000800 05 मानव-नाम PIC A (30)।
 000 900 05 हमन-पता तस्वीर एक्स (160)।
 001000 77 वर्ग मीटर मीटर 9 (18)।
 ००११०० 11२ सक्कारे-मूल्य तस्वीर ९ (१५) वी ९ (२)।
 001150 77 FLAT-PRICE PIC 9 (15) V9 (2)।
 001200 77 टैक्स-पर्केंट पीआईसी 9 (2)।
 001300 77 TAX-SUMM PIC 9 (15) V9 (2)।
 001350 77 NEGATIVE-VALUE PIC S9 (10) V9 (6)।
 001400 * --- OOOOMG!  ---
 001500 77 सक्तेयर-मेटर्स-आउट पीआईसी जेड (17) 9।
 ००१६०० 16२ सक्कारे-मूल्य-आउट तस्वीर जेड (१४) ९। जेड (२)।
 001650 77 FLAT-PRICE-OUT-1 PIC Z (3), Z (3), Z (3), Z (3) .9 (2)।
 001660 77 FLAT-PRICE-OUT-2 PIC Z (3) BZ (3) BZ (3) BZ (3) .9 (2)।
 ००१ 00०० 17ENT टैक्स-पेरेसेंट-आउट पीआईसी जेड (२)।
 001800 77 TAX-SUMM-OUT PIC Z (14) 9.9 (2)।
 001900 77 NEGATIVE-VALUE-OUT-1 PIC + Z (10) .9 (6)।
 002000 77 NEGATIVE-VALUE-OUT-2 PIC -Z (10)। * (6)।
 002100 * --------------------------------
 002200 प्रक्रिया प्रभाग।
 002,300 BEGIN।
 002400 प्रदर्शन "कृपया नाम दर्ज करें:"।
 002500 ACCEPT HUMAN-NAME
 002550 प्रदर्शन "कृपया पता दर्ज करें:"।
 002600 ACCEPT HUMAN-ADDRESS।
 002700 प्रदर्शन "कृपया फ्लैट के वर्ग मीटर दर्ज करें:"।
 002800 ACCEPT वर्ग-मीटर।
 002900 प्रदर्शन "कृपया वर्ग मीटर की कीमत दर्ज करें:"।
 003000 ACCEPT वर्ग-मूल्य।
 003100 प्रदर्शन "कृपया कर का प्रतिशत दर्ज करें:"।
 003200 ACCEPT टैक्‍स-पर्केंट।
 003300 प्रदर्शन "कोई भी बड़ा नकारात्मक मूल्य दर्ज करें:"।
 003400 ACCEPT NEGATIVE-VALUE।
 003500 प्रदर्शन "---------------------------------------"।
 003600 प्रदर्शन ""।
 003700 प्रदर्शन मानव-नाम।
 003800 DISPLAY HUMAN-ADDRESS।
 003900 प्रदर्शन "वर्ग मीटर:", वर्ग मीटर।
 004000 वर्ग मीटर से बाहर जाने के लिए वर्ग-मीटर की दूरी पर चलें।
 004100 प्रदर्शन "वर्ग-मीटर-बाहर:", वर्ग-मीटर-बाहर।
 004200 प्रदर्शन "वर्ग-मूल्य:", वर्ग-मूल्य।
 004300 SQUARE-PRICE-OUT को SQUARE-PRICE मूव करें।
 004400 प्रदर्शन "वर्ग-मूल्य-आउट:", वर्ग-मूल्य-आउट।
 004500 मल्टीप्लस सक्सेस-मेटर्स बाय सक्कार-प्रिसि गिविंग फ्लैट-प्रिस।
 004600 प्रदर्शन "फ्लैट-मूल्य:", फ्लैट-मूल्य।
 004700 FLAT-PRICE TO FLAT-PRICE-OUT-1 FLAT-PRICE-OUT-2।
 004800 DISPLAY "FLAT-PRICE-OUT-1:", FLAT-PRICE-OUT-1।
 004850 DISPLAY "FLAT-PRICE-OUT-2:", FLAT-PRICE-OUT-2।
 004900 DISPLAY "TAX-PERCENT:", TAX-PERCENT।
 005000 टैक्‍स-पर्केंट के लिए टैक्‍स-पक्‍सेव्‍ट मूव करें।
 005100 प्रदर्शन "TAX-PERCENT-OUT:", TAX-PERCENT-OUT।
 005200 प्रदर्शन "TAX-SUMM:", TAX-SUMM।
 005300 टैक्स-एसयूएमएम-आउट करने के लिए टैक्स-एसयूएमएम पर जाएँ।
 005400 प्रदर्शन "TAX-SUMM-OUT:", TAX-SUMM-OUT।
 005500 प्रदर्शन "नकारात्मक-मूल्य:", नकारात्मक-मूल्य।
 005600 नेगेटिव-वैल्यू को NEGATIVE-VALUE-OUT-1 नेगेटिव-वैल्यू-ऑउट -2 पर ले जाएँ।
 005700 DISPLAY "NEGATIVE-VALUE-OUT-1:", NEGATIVE-VALUE-OUT-1।
 005800 DISPLAY "NEGATIVE-VALUE-OUT-2:", NEGATIVE-VALUE-OUT-2।
 005900 STOP RUN।

और इसके परिणामस्वरूप हमें क्या मिलता है।

 कृपया नाम दर्ज करें: 
 Slava
 कृपया पता दर्ज करें: 
 मास्को 15
 कृपया फ्लैट के वर्ग मीटर दर्ज करें: 
 44
 कृपया वर्ग मीटर का मूल्य दर्ज करें: 
 1234123
 कृपया कर का प्रतिशत दर्ज करें: 
 20
 कोई भी बहुत बड़ा NEGATIVE मान दर्ज करें: 
 -123 123 213 213
 ---------------------------------------
 
 Slava                         
 मास्को 15                                                                                                                                                       
 SQUARE-METERS: 000000000000000044
 शिकारे-मीटर-बाहर: 44
 SQUARE-PRICE: 000000001234123.00
 SQUARE-PRICE-OUT: 1234123.00
 FLAT-PRICE: 000000054301412.00
 FLAT-PRICE-OUT-1: 54,301,412.00
 FLAT-PRICE-OUT-2: 54 301 412.00
 TAX-PERCENT: 20
 TAX-PERCENT-OUT: 20
 TAX-SUMM: 000000000000000.00
 TAX-SUMM-OUT: 0.00
 NEGATIVE-VALUE: -3123213213.000000
 NEGATIVE-VALUE-OUT-1: -3123213213.000000
 NEGATIVE-VALUE-OUT-2: -3123213213.000000

जैसा कि आप देख सकते हैं, "स्वरूपित" और कच्चे चर का उत्पादन अलग और अनुकूलन योग्य है।

स्वाभाविक रूप से, यह सिर्फ आपका अधिकार नहीं है, बल्कि चर के साथ खेलने और यह देखने का दायित्व है कि वे कैसे व्यवहार करेंगे।

और वैसे, यदि आप ध्यान से अपने कार्यक्रम के आउटपुट को देखते हैं, तो आपने एक बहुत ही अप्रिय "ट्रिफ़ल" पर ध्यान दिया होगा - वे मान जो चर में फिट नहीं होते हैं, यदि यह आपके लिए नहीं हुआ, तो प्रयोग करने का प्रयास करें।

अगली मुलाकात तक! आगे और भी कई दिलचस्प बातें होंगी)

Vorontsov "nerfur" व्याचेस्लाव। 2011।