کوبول

کوبول یا کوبال  یکی از قدیمی‌ترین زبان‌های برنامه‌نویسی است. نام کوبول که مخفف کلمهٔ COmmon Business-Oriented Language است، حوزهٔ اصلی کار خود را در زمینه تجارت، امور مالی و سیستم‌های اجرایی برای شرکت‌ها و دولت‌ها قرار داد. کوبول استاندارد ۲۰۰۲، از برنامه‌نویسی شیءگرا و ویژگی‌های دیگر زبان‌های مدرن حمایت می‌کند.

 تاریخچه و معیارها 
ویژگی‌های «کوبول» به وسیلهٔ فردی به نام گریس هاپر در نیمه دوم سال ۱۹۵۹ ایجاد شد. ماجرا در هشتم آوریل ۱۹۵۹ در یک همایش بین تولیدکنندگان کامپیوتر، استفاده‌کنندگان کامپیوتر و دانشگاهیان در مرکز کامپیوتر دانشگاه پنسیلوانیا اتفاق افتاد. وزارت دفاع آمریکا سپس حامی و اسپانسر فعالیت‌های بعدی شد. همایشی به وسیلهٔ کارلس آ. فیلیپس در پنتاگون در ۲۸ و ۲۹ ام ماه مه (دقیقاً یک سال بعد از همایش الگول ۵۸ در زوریخ برقرار شد. در آنجا تصمیم گرفته شد ۳ کمیته تشکیل شود: کوتاه مدت، میان مدت و بلند مدت (البته آخری هرگز تشکیل نشد). کمیته کوتاه مدت، که بوسیلهٔ (جوزف وگستین) به عنوان رئیس سازمان ملی استانداردهای ایالات متحده رهبری می‌شد، توانست در طول آن مدت نخستین نسخه کوبول را به وجود بیاورد. آن کمیته تشکیل شد تا یک دسترسی کوتاه مدت به یک زبان تجاری متداول را ارائه کند. این کمیته از شش تولیدکنندهٔ کامپیوتر و سه آژانس دولتی تشکیل شده بود. شش تولیدکننده کامپیوتر عبارتند از مؤسسه باروگ، IBM، هانی ول، اسپرس راند، آر-سی-ای و سیلوانیا الکتریک، سه آژانس دولتی عبارتند از: نیروی هوایی ایالات متحدهٔ آمریکا، David Taylor Model Basin و اداره ملی استانداردها (که امروزه به نام مؤسسهٔ ملی استاندارد و تکنولوژی نامیده می‌شود). کمیتهٔ میان مدت تشکیل شد ولی هرگز عملی نشد. در انتهای زمان کمیته اصلی کوتاه مدت، این کمیته موفق شد ویژگی‌های زبان کوبول را ارتقاء دهد. این کمیته اصلی توسط شش نفر تشکیل شده بود. این کمیته اصلی ویژگی‌های کوبول را تا دسامبر ۱۹۵۹ کامل کرد. این ویژگی‌ها حوزهٔ وسیعی است که از زبان‌های فلوماتیک –که به عنوان مادر زبان کوبول از آن یاد می‌شود- که توسط فردی به نام]]گریس هاپر ابداع شد و نیز زبان‌های کامترن که توسط فردی به نام باب بمر ابداع شد ونیز زبان فکت الهام گرفته شد. تصمیم بر استفاده از نام «کوبول» در یک همایش در ۱۸ سپتامبر ۱۹۵۹ گرفته شد.
اولین کامپایلر برای کوبول در سال ۱۹۶۰ تکمیل شد.

 کوبول ۱۹۶۸ 
بعد از سال ۱۹۵۹ کوبول دستخوش تغییرات و اصلاحات متعددی شد. در یک تلاش برای غلبه بر مشکلات ناسازگاری بین نسخه‌های متفاوت کوبول، مؤسسه استاندارد جهانی ایالات متحده (ANSI) فرم استاندارد زبان را در سال ۱۹۶۸ به وجود آورد.

 کوبول ۱۹۷۴ 
در سال ۱۹۷۴، مؤسسه استاندارد جهانی نسخه اصلاح شده کوبول را منتشر کرد که شامل تعدادی از ویژگی‌هایی بود که در نسخهٔ ۱۹۶۸ وجود نداشت.

 کوبول ۱۹۸۵ 
در سال ۱۹۸۵، مؤسسه استاندارد جهانی نسخه اصلاح شدهٔ دیگری را منتشر کرد که شامل ویژگی‌هایی بود که درنسخه استاندارد سال ۱۹۷۴ وجود نداشت و ساخت یافته‌ترین زبان ساخته شد که شامل END-IF، END-PERFORM، END-READ و غیره است.

 کوبول ۲۰۰۲ و کوبول شیء گرا 
این زبان تا به امروز رو به پیشرفت است. در اوایل دهه ۱۹۹۰ تصمیم گرفته شد تا ویژگی شیء گرایی به نسخه کامل بعدی کوبول اضافه شود. تخمین اولیه این بود که این اصلاح تا سال ۱۹۹۷ انجام می‌شود. بعضی از مجریان کار (از قبیل Micro Focus, Fujitsu, VeryantوIBM) قواعد نحوی شیء گرایی را بر اساس نسخه ۱۹۹۷ و نسخه‌های کامل دیگر به وجود آوردند.

مثل زبان‌های برنامه‌نویسی C++ و جاوا کامپایلرهای شیء گرای کوبول مانند زبان‌هایی که به سمت استانداردسازی پیش می‌روند در دسترس هستند. Fujitsu و Micro Focus] از کامپایلرهای شیء گرای کوبول با هدف قالب بندی دات نت حمایت کردند.
کوبول سال ۲۰۰۲ شامل ویژگی‌های دیگری فراتر از شیء گرایی است. این ویژگی‌ها عبارتند از:
 حمایت ملی از زبان
 پردازش محلی
 استفاده از توابع تعریف شده توسط کاربر
 اشاره گرها برای اخذ و آزادسازی حافظه
 حمایت برای اجرا در محیط کار مثل مایکروسافت دات نت و جاوا
 حمایت بیتی و باینری
 حمایت باینری “True”
 حمایت ممیز شناور
 نتایج ریاضی استاندارد
 نسل XML و تجزیه کردن

 تاریخچهٔ استانداردهای کوبول 
ویژگی‌هایی که به وسیلهٔ کمیته کامل کوتاه مدت تصویب شده بود به وسیلهٔ هیئت اجرایی در سوم ژانویهٔ ۱۹۶۰تصویب شد و به چاپخانهٔ حکومتی ارسال شد که آنجا این ویژگی‌ها ویرایش و به عنوان «کوبول ۶۰» چاپ شد. مؤسسه استاندارهای جهانی ایالات متحده َANSI چندین نسخهٔ بازبینی شدهٔ کوبول استاندارد را تولید کرد از جمله:
 کوبول ۶۸
 کوبول ۷۴
 کوبول ۸۵

بعد از اصلاح نسخه سال ۱۹۸۵، تکامل عمده و حق مالکیت به وسیلهٔ مؤسسه بین‌المللی استاندارد گرفته شد. ویرایش اخیر و گزارش‌های تکنیکی به وسیلهٔ استانداردهای زیر مؤسسه بین‌المللی استاندارد صادر شد (و به وسیلهٔ مؤسسه استانداردهای ملی آمریکا پذیرفته شد):
 کوبول ۲۰۰۲
 گزارش نهایی تکنیکی
 کلاس‌های کتابخانه‌ای شیء گرا
از سال ۲۰۰۲ استاندارد ISO برای کدهای عمومی مثل استاندارد ۱۹۸۹در دسترس است.

 ویژگی‌ها 
کوبول همچنین که در مشخصات عمومی تعریف شده از جمله شکل عبارت برای خصوصیات میدانی جرئی. این زبان از متغیرهای محلی، بازگشتی، اختصاص دینامیک حافظه و برنامه‌نویسی ساخت یافته حمایت نمی‌کند. حمایت از قسمتی یا همهٔ این ویژگی‌ها به آخرین نسخهٔ کوبول استاندارد اضافه شد. کوبول تعداد زیادی کلمات رزرو دارد (بیش از ۴۰۰ تا) که تحت عنوان کلمات کلیدی خوانده می‌شوند.

 کلمات خود اصلاح‌کننده 
ویژگی‌های اصلی کوبول حمایت می‌کنند از کد خود اصلاح‌کننده از طریق عبارت نا مشهور «ALTER X TO PROCEED TO Y». X و Y برچسب‌های عبارتی هستند و هر عبارت «GOTO X» ای که بعد از عبارت ALTER اجرا می‌شود دارای معنی «GOTO Y» است. بیشتر کامپایلرها هنوز از آن حمایت می‌کنند، اما این در برنامه‌های جدید استفاده نمی‌شود.

 ویژگی‌های نحوی 
کوبول یک به روز کردن درجای نحوی را فراهم می‌کند از جمله:
ADD YEARS TO AGE
ساختار معادل در بسیاری از زبان‌های رویه‌ای باید باشد
age = age + years
این قاعدهٔ نحوی شبیه عملگر جایگزینی مرکب است که بعدها توسط C استفاده شد.
age += years
عبارت شرطی مخفف شده ی:
      IF SALARY> ۹۰۰۰ OR SUPERVISOR-SALARY OR = PREV-SALARY
معادل است با:
      IF SALARY> ۹۰۰۰
          OR SALARY> SUPERVISOR-SALARY
          OR SALARY = PREV-SALARY
کوبول «شرایط مشخص» را فراهم می‌کند (همچنین نامیده می‌شود ۸۸ مرحله). این‌ها به عنوان آیتم‌های اصلی در بین دیگر آیتم‌ها مشخص شده‌اند (متغیرهای محلی). نام شرطی می‌تواند در یک عبارت IF استفاده و تست شود هرچند متغیرهای محلی معادل با هر متغیری است که در یک عبارت شرطی مشخص VALUE استفاده می‌شود. عبارت SET می‌تواند برای یک عبارت شرطی مشخص TRUE استفاده شود (بوسیله مشخص کردن اولین متغیر به عنوان متغیر شرطی).
کوبول به وسیله شناسه‌ها اجازه می‌دهد تا بتواند تا ۳۰ کاراکتر طول داشته باشد. وقتی کوبول معرفی شد، بیشتر طول‌های کم (مثلاً ۶ کاراکتر برای فرترن) رایج شدند.
مفهوم copybook) به وسیلهٔ کوبول معرفی شد. اینها تعدادی کد هستند که می‌توانند در یک کد برنامه‌نویسی قرار داده شوند. این کار با عبارت COPY انجام می‌شود که اجازه می‌دهد که قسمتی از یک کدبا کدهای دیگر جایگزین شود (با استفاده از عبارت REPLACING... BY…)

 انواع داده 
کوبول انواع داده زیر را ایجاد می‌کند.
 Data type Sample declaration NotesکاراکترPIC X(۲۰)PIC A(۴)۹(۵)X(7)الفبا عددی و الفبامجموعه کاراکترهای تک بایتیکاراکترهای ویرایش شدهPIC X99BAXXکاراکترهای قالب دار و مندرجاعداد اعشاری دودوییPIC S999V99[USAGE] COMPUTATIONALorBINARYاعداد دودویی ۱۶٬۳۲ یا ۶۴ بیتی (۲ یا ۴ یا ۸ بایت)علامت دار یا بی علامت. کامپایلرها بیشترین مقدار متغیرها را بر اساس ظاهرعبارت و نه براساس تعداد بیتهای رزرو شده برای ذخیره محدود می‌کنند.اعداد اعشاری ممیز ثابت (دهدهی فشرده)PIC S999V99PACKED-DECIMAL اعداد رقمی‌دهدهی ۱ تا ۱۸علامت دار یا بی علامت.اعداد اعشاری ممیز ثابت (دهدهی محلی)PIC S999V۹۹[USAGE DISPLAY] اعداد رقمی‌دهدهی ۱ تا ۱۸علامت دار یا بی علامتاعداد اعشاری ممیز شناورPIC S9V999ES99اعداد دودویی ممیز شناوراعداد ویرایش شدهPIC +Z،ZZ۹٫۹۹PIC $***، **۹٫۹۹CRکاراکترهای قالب دار و رقمیگروه‌ها۰۱ CUST-NAME.  05 CUST-LAST PIC X(۲۰).  05 CUST-FIRST PIC X(۲۰).عناصر جمع شدهجدول (آرایه)OCCURS 12 TIMESآرایه‌ها با طول ثابت، مرتب‌سازی بر اساس ردیفحداکثر ابعاد ۷جدول با طول متغیرOCCURS 0 to 12 TIMESDEPENDING ON CUST-COUNT آرایه‌ها با طول متغیر، مرتب‌سازی بر اساس ردیفحداکثر ابعاد ۷Renames (variant or union data)۶۶ RAW-RECORD  RENAMES CUST-RECORDداده‌های کاراکتری که متغیرهای دیگر را می‌پوشانداسم شرطی۸۸ IS-RETIRED-AGE  VALUES 65 THRU 150مقدارهای بولینوابسته به متغیرهای دیگرآرایه شاخص[USAGE] INDEXآرایهٔ زیرنویس
بیشتر فروشنده‌ها انواع دیگری را به وجود می‌آورند مثل:
 Data type Sample declaration Notesاعداد اعشاریدقت یگانهPIC S9V999ES99[USAGE] COMPUTATIONAL-1اعداد اعشاری دودوییاعداد اعشاریدقت مضاعفPIC S9V999ES99[USAGE] COMPUTATIONAL-2اعداد اعشاری دودوییاعداد اعشاری ممیز ثابتPIC S9V999[USAGE] COMPUTATIONAL-3شبیه اعداد دهدهی فشردهاعداد دودویی ممیز ثابتPIC S999V۹۹[USAGE] COMPUTATIONAL-4مانند اعداد محاسباتی یا دودوییاعداد دودویی ممیز ثابتPIC S999V۹۹[USAGE] COMPUTATIONAL-5 اعداد دودویی ۱۶٬۳۲ یا ۶۴ بیتی (۲ یا ۴ یا ۸ بایت)علامت دار یا بی علامت. کامپایلرها بیشترین مقدار متغیرها را بر اساس تعداد بیتهای رزرو شده برای ذخیره و نه براساس ظاهرعبارت محدود می‌کنند.اعداد ممیز ثابتبر اساس ترتیب بایتی محلیPIC S999V۹۹[USAGE] COMPUTATIONAL-4اعداد دودویی ۱۶، ۳۲٬۶۴ بیتی (۲٬۴٬۸ بایتی)علامت دار یا بی علامتاعداد ممیز ثابتبا ترتیب بایتیbig-endianPIC S999V۹۹[USAGE] COMPUTATIONAL-5 اعداد دودویی ۱۶، ۳۲٬۶۴ بیتی (۲٬۴٬۸ بایتی)علامت دار یا بی علامتکاراکترهای پهنPIC G(۲۰)الفبا عددیکاراکترهای دو بایتیکاراکترهای پهن پیرایش شدهPIC G99BGGGکاراکترهای پهن قالب دار یا مندرجاعداد اعشاری ویرایش شدهPIC +۹٫۹(۶)E+99کاراکترهای قالب دار و اعداد رقمی‌دهدهیاشاره گر به داده[USAGE] POINTERداده‌های آدرس حافظهاشاره گر به کد[USAGE] PROCEDURE-POINTERآدرس کد حافظهفیلد بیتیPIC 1(n) [USAGE] COMPUTATIONAL-5n می‌تواند بیت ۱ تا ۶۴ باشد و به عنوان عدد nبیتی تعریف می‌شودعلامت دار یا بی علامتشاخص[USAGE] INDEXBinary value corresponding to an occurrence of a table elementMay be linked to a specific table using INDEXED BY

 Hello, world 
یک مثال برای برنامهٔ Hello, world در کوبول:
      IDENTIFICATION DIVISION.
      PROGRAM-ID. HELLO-WORLD.
      PROCEDURE DIVISION.
          DISPLAY 'Hello, world'.
          STOP RUN.

 منابع 

 Ebbinkhuijsen, Wim B.C. , COBOL Alphen aan den Rijn/Diegem: Samson Bedrijfsinformatie bv, 1990. . (Dutch)


رده:زبان‌های برنامه‌نویسی ایستا
رده:زبان‌های برنامه‌نویسی دات‌نت
رده:زبان‌های برنامه‌نویسی دارای استاندارد ایزو
رده:زبان‌های برنامه‌نویسی رویه‌ای
رده:زبان‌های برنامه‌نویسی ساخته‌شده در ۱۹۵۹ (میلادی)
رده:زبان‌های برنامه‌نویسی شیءگرا
رده:زبان‌های برنامه‌نویسی کلاس محور
رده:زبان‌های برنامه‌نویسی
رده:معرفی‌شده‌های مرتبط با رایانه در ۱۹۵۹ (میلادی)
رده:نرم‌افزارهای چندسکویی