মূল কন্টেন্টে যান
মডিউল 1 · 2-এর পাঠ 2কোর্সে 2/10~12 min
মডিউল পাঠ (2/2)

ভেরিয়েবল এবং PICTURE

COBOL-এ, ব্যবহৃত সমস্ত ভেরিয়েবল অবশ্যই ডেটা ডিভিশন-এর মধ্যে ঘোষণা করতে হবে। বিশেষ করে, প্রোগ্রাম লজিকের জন্য ব্যবহৃত মেমরির অস্থায়ী ভেরিয়েবলগুলি ওয়ার্কিং-স্টোরেজ সেকশন-এর ভিতরে থাকে।

লেভেল নম্বর

COBOL ভেরিয়েবল ডিক্লেয়ারেশন স্তরের সংখ্যা ব্যবহার করে ডেটা ক্রমানুসারে গঠন ও সংগঠিত করে:

  • 01: একটি প্রধান পরিবর্তনশীল বা গ্রুপ আইটেম (সর্বোচ্চ স্তর) সংজ্ঞায়িত করে।
  • 05, 10, 15: একটি স্তরের 01 গ্রুপ আইটেমের মধ্যে অধীনস্থ ক্ষেত্রগুলিকে সংজ্ঞায়িত করুন৷
  • 77: ঐতিহাসিকভাবে নির্দেশিত স্বাধীন প্রাথমিক ভেরিয়েবল যা আরও উপবিভক্ত করা যায়নি।

আধুনিক অনুশীলনে, স্তর 01 সাধারণত স্বাধীন প্রাথমিক ভেরিয়েবল ঘোষণা করতে ব্যবহৃত হয়।

PICTURE (বা PIC) ধারা

PICTURE (সংক্ষেপে PIC) ধারাটি ডেটার ধরন এবং ভেরিয়েবলের অক্ষর দৈর্ঘ্য নির্দিষ্ট করে। তিনটি মৌলিক বিন্যাস অক্ষর হল:

  1. X (আলফানিউমেরিক): অক্ষর, সংখ্যা এবং বিশেষ অক্ষর থাকতে পারে।
    • PIC X(10) ঠিক 10টি অক্ষরের একটি স্ট্রিং ঘোষণা করে৷
  2. 9 (সাংখ্যিক): শুধুমাত্র সাংখ্যিক সংখ্যা থাকতে পারে।
    • PIC 9(3) একটি পূর্ণসংখ্যা ঘোষণা করে যা 3টি সংখ্যা (999 পর্যন্ত) নিয়ে গঠিত।
  3. V (অন্তর্নিহিত দশমিক বিন্দু): ভগ্নাংশের অংশটি কোথায় শুরু হয় তা উপস্থাপন করতে দশমিক সংখ্যায় ব্যবহৃত হয় (দশমিক বিন্দুটি শারীরিকভাবে সংরক্ষণ করা হয় না)।
    • PIC 9(3)V99 3টি পূর্ণসংখ্যা সংখ্যা এবং 2 দশমিক স্থান সহ একটি সংখ্যা ঘোষণা করে৷

VALUE ধারা

ঘোষণার সময় একটি ভেরিয়েবলে একটি প্রাথমিক মান নির্ধারণ করতে, VALUE ধারাটি ব্যবহার করুন।

COBOL
01 WS-PROJECT-NAME PIC X(15) VALUE "ELEARNER".
01 WS-USER-AGE     PIC 9(3)  VALUE 25.

সমস্ত পরিবর্তনশীল সংজ্ঞা অবশ্যই একটি . এর সাথে শেষ হতে হবে।


নিজে চেষ্টা করে দেখুন

ব্যায়াম#cobol.m1.l2.e1
প্রচেষ্টা: 0লোড হচ্ছে...

20 অক্ষরের WS-USER-NAME নামের একটি লেভেল 01 আলফানিউমেরিক ভেরিয়েবল ঘোষণা করুন এবং এর প্রাথমিক মান 'ALICE' এ সেট করুন।

সম্পাদক লোড হচ্ছে...
ইঙ্গিত দেখান

বিন্যাসটি ব্যবহার করুন: 01 WS-USER-NAME PIC X(20) VALUE 'ALICE'৷

সমাধান 3 প্রচেষ্টার পরে উপলব্ধ

ব্যায়াম#cobol.m1.l2.e2
প্রচেষ্টা: 0লোড হচ্ছে...

25 এর প্রাথমিক মান সহ 3 সংখ্যার WS-USER-AGE নামের একটি স্তর 01 সংখ্যাসূচক পরিবর্তনশীল ঘোষণা করুন।

সম্পাদক লোড হচ্ছে...
ইঙ্গিত দেখান

সিনট্যাক্স ব্যবহার করুন: 01 WS-USER-AGE PIC 9(3) VALUE 25।

সমাধান 3 প্রচেষ্টার পরে উপলব্ধ