پیام‌های تشخیصی (Diagnostic Messages)

بسیاری از گزینه‌های هشدار می‌توانند برای تبدیل پیام‌های خطا به هشدار یا نادیده گرفتن پیام‌های مرتبط با گویش‌های مختلف COBOL استفاده شوند. کاربر می‌تواند این موارد را ترکیب کند. گروهی از ویژگی‌ها را می‌توان با تعیین یک گویش (یا بیش از یک گویش) فعال کرد و ویژگی‌های منفرد را می‌توان به صورت هشدار، خطا یا پنهان‌سازی تنظیم نمود.

-Wno-apply-commit

هشدار در صورت استفاده از APPLY COMMIT.

-Wno-bad-line-directive

هشدار در صورت برخورد با دستورالعمل نادرست ‘#line’.

-Wno-binary-long-long

هشدار در صورت استفاده از BINARY-LONG-LONG.

-Wno-call_giving

هشدار در صورت استفاده از CALL ... GIVING.

-Wno-call_literal

هشدار در صورت استفاده از CALL با یک پارامتر لیترال از طریق مرجع (by reference).

-Wno-cdf-dollar

هشدار در صورت استفاده از CDF $IF.

-Wno-comp-6

هشدار در صورت استفاده از COMPUTATIONAL-6.

-Wno-comp-x

هشدار در صورت استفاده از COMPUTATIONAL با PICTURE X.

-Wno-file-code-set

هشدار در صورت استفاده از FILE CODE SET.

-Wno-inspect-trailing

هشدار در صورت استفاده از INSPECT ... TRAILING.

-Wno-level-1-occurs

هشدار در صورت استفاده از Level 01 با OCCURS.

-Wno-level-78-defined

هشدار در صورت تعریف ثابت Level 78 توسط CDF.

-Wno-move-index

هشدار در صورت استفاده از MOVE INDEX.

-Wno-move-pointer

هشدار در صورت استفاده از MOVE POINTER.

-Wno-returning-number

هشدار در صورت استفاده از RETURNING <number>.

-Wno-usage-typename

هشدار در صورت استفاده از USAGE IS TYPENAME.

-Wno-bad-numeric

هشدار در صورت نامعتبر بودن رشته عددی.

-Wno-cdf-invalid-parameter

هشدار در صورت تعریف نشدن CDF PARAMETER ارجاع‌شده.

-Wno-cdf-name-not-found

هشدار در صورت تعریف نشدن نام CDF ارجاع‌شده.

-Wno-cobol-eject

هشدار در صورت استفاده از EJECT سبک IBM (به جای خطا).

-Wno-cobol-resume

هشدار در صورت استفاده از RESUME استاندارد ISO همراه با -dialect ibm (به جای خطا).

-Wno-cobol-volatile

هشدار در صورت استفاده از VOLATILE (به جای خطا در صورت وجود -dialect ibm).

-Wno-copybook-found

چاپ پیام هنگام پردازش copybook.

-Wno-ec-unknown

هشدار در صورت ارجاع به شرط خطای پیاده‌سازی‌نشده یا ناشناخته.

-Wno-entry-convention

چاپ پیام هنگام مشخص شدن ENTRY CONVENTION.

-Wno-high-order-bit

هشدار در صورت استفاده از HIGH-ORDER-LEFT HIGH-ORDER-RIGHT.

-Wno-include-file-found

چاپ پیام هنگام پردازش پرونده درج‌شده (include file).

-Wno-length-of

هشدار در صورت استفاده از LENGTH OF.

-Wno-level-78

هشدار در صورت استفاده از Level 78.

-Wno-literal-concat

هشدار در صورت استفاده لیترال‌های الحاق‌شده از کدگذاری‌های مختلف.

-Wno-locale-error

هشدار در صورت شکست locale(3).

-Wno-move-corresponding

هشدار در صورتی که COBOL MOVE فیلدهای متناظری نداشته باشد.

-Wno-nllanginfo-error

هشدار در صورت شکست nl_langinfo(3).

-Wno-recording-mode

هشدار در صورت استفاده از RECORDING MODE.

-Wno-segment

هشدار در صورت استفاده از قطعه‌های SECTION.

-Wno-set-locale-to

هشدار در صورت استفاده از SET LOCALE ... TO.

-Wno-set-to-locale

هشدار در صورت استفاده از SET ... TO LOCALE. هشدار در صورت نامعتبر بودن دستورالعمل line (به جای خطا).

-Wno-iconv-error

هشدار در صورتی که iconv(3) نتواند بین کدگذاری‌ها تبدیل انجام دهد (به جای خطا).

-Wno-include-file-not-found

هشدار در صورت پیدا نشدن پرونده include (به جای خطا).

-Wno-operator-space

هشدار در صورتی که عملگر رابطه‌ای با فاصله همراه نباشد (به جای خطا).

-Wno-preprocessor-error

هشدار در صورت شکست پیش‌پردازنده (به جای خطا).

-Wno-procedure-pointer

هشدار در صورت استفاده از PROCEDURE POINTER.

-Wno-procedure-not-found

هشدار در صورت پیدا نشدن رویه ارجاع‌شده (به جای خطا).

-Wno-replace-error

هشدار در صورتی که REPLACE نتواند پردازش شود (به جای خطا).

-Wno-segment-error

هشدار در صورت نامعتبر بودن بخش SEGMENT (به جای خطا).

-Wno-segment-negative

هشدار در صورتی که بازه SEGMENT منفی باشد (به جای خطا).

-Wno-stop-number

هشدار در صورت استفاده از STOP <number> سبک IBM (به جای خطا).

-Wno-stray-indicator

هشدار در صورتی که ستون نشانگر معنی شناخته‌شده‌ای نداشته باشد (به جای خطا).

پیونددهی (Linking)

برخلاف زبان C، دستور CALL در زبان COBOL به صورت ضمنی بیانگر پیونددهی پویا است، زیرا برای

کامپایلر gcobol در صورت امکان از پیونددهی ایستا پشتیبانی می‌کند، مگر اینکه با گزینه -fno-static-call غیرفعال شود. اگر مقدار پارامتر در زمان کامپایل مشخص باشد، کامپایلر یک مرجع خارجی تولید می‌کند تا توسط پیونددهنده حل شود. برنامه ارجاع‌شده معمولاً از طریق یک ماژول شیء، یک کتابخانه ایستا یا یک شیء مشترک (shared object) ارائه می‌شود. اگر ارائه نشود، پیونددهنده خطای “نماد حل‌نشده (unresolved symbol)” را در زمان ساخت یا هنگام اجرای برنامه (در صورت استفاده از شیء مشترک) گزارش می‌کند. این ویژگی برنامه‌نویس را در اولین فرصت ممکن از خطا آگاه می‌سازد.

برنامه‌هایی که انتظار می‌رود با وجود نمادهای حل‌نشده به درستی اجرا شوند (شاید به این دلیل که منطق برنامه به آن CALL خاص نیاز پیدا نخواهد کرد) می‌توانند از گزینه -no-static-call استفاده کنند. این گزینه همه دستورهای CALL را وادار می‌کند تا به صورت پویا و در زمان اجرا حل شوند.

شرایط خطای پیاده‌سازی‌شده (Implemented Exception Conditions)

به طور پیش‌فرض، طبق استاندارد ISO، هیچ شرط خطایی (EC) فعال نیست. شرایط خطای پیاده‌سازی‌شده را می‌توان در خط فرمان یا از طریق دستورالعمل TURN فعال کرد. هر تلاشی برای فعال‌سازی شرط خطایی که پیاده‌سازی نشده باشد، به عنوان خطا در نظر گرفته می‌شود.

یک شرط خطای فعال‌شده که توسط یک DECLARATIVE مدیریت نشده باشد، در لاگ سیستم و خروجی خطای استاندارد نوشته می‌شود. (سازندگان قصد دارند این بخش را به یک گزینه تبدیل کنند.) یک شرط خطای مهلک که با RESUME مدیریت نشود، با فراخوانی abort(3) و پایان فرآیند خاتمه می‌یابد.

تمام شرایط خطا پیاده‌سازی نشده‌اند. هر تلاشی برای فعال‌سازی شرط خطایی که پیاده‌سازی نشده باشد پیام هشداری تولید می‌کند. موارد زیر پیاده‌سازی شده‌اند:

تا زمان نگارش این متن، هیچ کامپایلر COBOL پیاده‌سازی کاملی از شرایط خطای ISO/IEC 1989:2023 ارائه نکرده است. gcobol به شرایط خطایی اولویت می‌دهد که جامعه کاربران آن‌ها را باارزش‌تر بدانند.

متغیرهای محیطی (Environment Variables)

برای خواندن یک متغیر محیطی:

که در آن target یک قلم داده تعریف‌شده در DATA DIVISION است و envar نام یک متغیر محیطی را مشخص می‌کند. envar می‌تواند یک لیترال رشته‌ای یا قلم داده الفبایی-عددی باشد که مقدار آن نام یک متغیر محیطی است. مقدار متغیر محیطی نام‌برده به target منتقل (MOVE) می‌شود. قوانین همانند دستور MOVE هستند.

برای نوشتن در یک متغیر محیطی:

که در آن source یک قلم داده تعریف‌شده در DATA DIVISION است و envar نام یک متغیر محیطی را مشخص می‌کند. envar باز هم می‌تواند یک لیترال رشته‌ای یا قلم داده الفبایی-عددی حاوی نام متغیر محیطی باشد. مقدار متغیر محیطی نام‌برده برابر با مقدار source تنظیم می‌شود.

آرگومان‌های خط فرمان (Command-line Arguments)

برای خواندن آرگومان‌های خط فرمان، از ثبات‌های COMMAND-LINE و COMMAND-LINE-COUNT (تنها) در یک دستور ACCEPT استفاده کنید. اگر بدون اندیس استفاده شود، COMMAND-LINE کل خط فرمان را به عنوان یک رشته واحد برمی‌گرداند. همراه با اندیس، COMMAND-LINE جدولی از آرگومان‌های خط فرمان است. برای نمونه، اگر برنامه به صورت زیر اجرا شود:

آن‌گاه

مقدار input را به درون target منتقل می‌کند. نام برنامه نخستین بخش در کل خط فرمان است و در جدول COMMAND-LINE در خانه COMMAND-LINE(1) یافت می‌شود.

برای دریافت تعداد آرگومان‌های ارائه‌شده در خط فرمان، از دستور زیر استفاده کنید:

اگر ACCEPT به یک متغیر محیطی یا آرگومان خط فرمان ناموجود ارجاع دهد، مقدار مقصد برابر با LOW-VALUES قرار می‌گیرد.

پارامترهای خط فرمان سیستم همچنین از طریق LINKAGE SECTION در برنامه‌ای که اجرا از آنجا شروع می‌شود قابل دسترسی هستند. ساختار داده به این صورت است:

linkage         section.
01   argc       pic 999.
01   argv.
 02  argv-table   occurs 1 to 100 times depending on argc.
  03 argv-element pointer.
01   argv-string  pic x(100) .

procedure division using by value argc by reference argv.
set address of argv-string to argv-element(3)
display argv-string

دستورالعمل #line (#line directive)

تجزیه‌کننده خطوطی به شکل زیر را می‌پذیرد:

SELECT ... ASSIGN TO

در عبارت

شناسه filename می‌تواند داخل گیومه باشد یا نباشد. اگر داخل گیومه باشد، نشان‌دهنده نام پرونده آن‌گونه که برای سیستم‌عامل شناخته شده است می‌باشد. اگر بدون گیومه باشد، نشان‌دهنده یک عنصر داده یا یک متغیر محیطی است که حاوی نام پرونده است. اگر filename با نام یک عنصر داده مطابقت داشته باشد، آن عنصر استفاده می‌شود. در غیر این صورت، حل نام filename تا زمان اجرا به تعویق می‌افتد، زمانی که نام باید در محیط برنامه وجود داشته باشد.

XML PARSE

کامپایلر gcobol دستور XML PARSE مربوط به IBM را شبیه‌سازی می‌کند. مقادیر زیر برای XML-EVENT تعریف شده‌اند:

COMMENT

متن یک توضیح (کامنت) بین "<!--" و "-->"

CONTENT-CHARACTERS

بخشی از متن یا تمام محتوای کاراکتری عنصر بین تگ‌های شروع و پایان.

END-OF-ELEMENT

تگ پایان عنصر، همراه با نام در صورت وجود در ورودی.

PROCESSING-INSTRUCTION-DATA

دستورالعمل پردازش (پس از نام هدف)، بدون در نظر گرفتن "?>".

PROCESSING-INSTRUCTION-TARGET

نام هدف دستورالعمل پردازش در XML-TEXT یا XML-NTEXT ظاهر می‌شود.

START-OF-ELEMENT

نام تگ شروع عنصر یا تگ عنصر خالی.

انواع داده USAGE (USAGE Data Types)

کامپایلر gcobol از بندهای USAGE IS زیر پشتیبانی می‌کند:

INDEX

برای استفاده به عنوان اندیس در یک جدول.

POINTER

برای متغیرهایی که مقدار آن‌ها نشانی یک تابع خارجی، PROGRAM-ID یا قلم داده است. انتساب از طریق دستور SET انجام می‌شود.

BINARY, COMP, COMPUTATIONAL, COMP-4, COMPUTATIONAL-4

عدد صحیح big-endian از ۱ تا ۱۶ بایت، مطابق با بند PICTURE.

COMP-1, COMPUTATIONAL-1, FLOAT-BINARY-32

ممیز شناور با دقت تکی (۴ بایتی) IEEE 754، همان‌طور که سخت‌افزار فراهم می‌کند.

COMP-2, COMPUTATIONAL-2, FLOAT-BINARY-64

ممیز شناور با دقت مضاعف (۸ بایتی) IEEE 754، همان‌طور که سخت‌زار فراهم می‌کند.

COMP-3, COMPUTATIONAL-3, PACKED-DECIMAL

در حال حاضر پیاده‌سازی نشده است.

COMP-5, COMPUTATIONAL-5

عدد صحیح little-endian از ۱ تا ۱۶ بایت، مطابق با PICTURE.

FLOAT-BINARY-128, FLOAT-EXTENDED

ممیز شناور ۱۲۸ بیتی را طبق IEEE 754 پیاده‌سازی می‌کند.

کامپایلر gcobol از انواع عدد صحیح ISO به صورت BINARY-<type> پشتیبانی می‌کند که بیشتر آن‌ها نام مستعار COMP-5 هستند.

این‌ها اندازه را (به بایت) مشخص می‌کنند و نمی‌توان همراه با یک بند PICTURE به کار برد. طبق استاندارد ISO، حالت SIGNED پیش‌فرض برای نام‌های مستعار BINARY-type است.

تمامی محاسبات — هم اعداد صحیح و هم ممیز شناور — با استفاده از فرم‌های میانی ۱۲۸ بیتی انجام می‌پذیرد.

نام‌های محیط (Environment Names)

در gcobol دستور

نام‌های SYSOUT و STDOUT را به خروجی استاندارد، و SYSPUNCH ، SYSPCH و STDERR را به خروجی خطای استاندارد نگاشت می‌کند.

وضعیت خروج (Exit Status)

کامپایلر gcobol از نحو ISO برای بازگرداندن وضعیت خروج به سیستم‌عامل پشتیبانی می‌کند:

علاوه بر این، gcobol از نحو IBM نیز برای بازگرداندن وضعیت خروج به سیستم‌عامل پشتیبانی می‌کند. از ثبات RETURN-CODE استفاده کنید:

MOVE ZERO TO RETURN-CODE.
GOBACK.

ثبات RETURN-CODE به عنوان یک عدد صحیح باینری ۴ بایتی تعریف شده است.

دستکاری متن CDF (CDF Text Manipulation)

COPY copybook [OF|BY library] [REPLACING ...]

اگر copybook یک لیترال باشد، به عنوان نام پرونده لیترال در نظر گرفته می‌شود، چه وجود داشته باشد و چه وجود نداشته باشد. اگر copybook یک کلمه COBOL باشد، gcobol ابتدا به دنبال متغیر محیطی با نام copybook می‌گردد و در صورت یافتن، محتوای آن متغیر را به عنوان نام پرونده copybook استفاده می‌کند. اگر آن پرونده وجود نداشته باشد، به جستجو برای پرونده‌ای با یکی از نام‌های زیر ادامه می‌دهد:

• copybook (دقیقاً به همین شکل)
• copybook.cpy
• copybook.CPY
• copybook.cbl
• copybook.CBL
• copybook.cob
• copybook.COB

به همان ترتیب. کامپایلر ابتدا در همان پوشه حاوی پرونده کد منبع جستجو می‌کند، و سپس در هر copybook-path که با گزینه -I مشخص شده باشد. آرگومان copybook-path می‌تواند (مانند متغیر PATH در پوسته) فهرستی جداشده با دونقطه (:) باشد. گزینه -I می‌تواند چندین بار در خط فرمان تکرار شود. هر copybook-path متوالی به موارد پیشین الحاق می‌گردد. مسیرهای نسبی (که با ‘/’آغاز نمی‌شوند) به صورت نسبی نسبت به پوشه کاری فعلی کامپایلر جستجو می‌شوند.

برای نمونه،

-I /usr/local/include:include

ابتدا پوشه‌ای را که برنامه COBOL در آن قرار دارد جستجو می‌کند، سپس /usr/local/include ، و در نهایت زیرپوشه include از پوشه‌ای که gcobol از آنجا فراخوانی شده است را جستجو می‌نماید.

برای عبارت REPLACING ، هر دو شکل شبه‌متن امروزی و اشکال COBOL/85 شناخته می‌شوند. (اشکال قدیمی‌تر در مجموعه آزمون NIST CCVS/85 استفاده شده‌اند.)

REPLACE ...

کامپایلر gcobol از تمام نحو استاندارد ISO برای REPLACE پشتیبانی می‌کند.

دستورالعمل‌های CDF (CDF Directives)

>>DEFINE name AS {expression | PARAMETER} [OVERRIDE]

متغیر name را به عنوان یک متغیر کامپایل با مقدار expression تعریف می‌کند. اگر name قبلاً تعریف شده باشد، استفاده از OVERRIDE الزامی است، در غیر این صورت دستورالعمل نامعتبر خواهد بود. عبارت AS PARAMETER پذیرفته می‌شود، اما هیچ اثری در gcobol ندارد.

>>DEFINE name AS OFF

تعریف name را آزاد می‌کند و استفاده از آن را پس از آن نامعتبر می‌سازد.

>>IF cce text [>>ELSE alt-text] >>END-IF

عبارت cce را که یک عبارت شرطی ثابت (constant conditional expression) است برای کامپایل شرطی ارزیابی می‌کند. در صورتی که یک نام باشد، cce می‌تواند با پارامتر خط فرمان -D تعریف شود. اگر درست (true) باشد، متن text از زبان COBOL کامپایل می‌شود. اگر نادرست (false) باشد، متن else-text (در صورت وجود) کامپایل خواهد شد. عبارت [IS [NOT]] DEFINED پشتیبانی می‌شود. لیترال‌های بولی پشتیبانی نمی‌شوند.

>>EVALUATE

پیاده‌سازی نشده است.

>>CALL-CONVENTION convention

شناسه convention می‌تواند یکی از موارد زیر باشد:

COBOL

استفاده از تطبیق نام نماد استاندارد و غیرحساس به حروف بزرگ و کوچک COBOL. برای CALL “name ،” مقدار name توسط کامپایلر با حروف کوچک درج می‌شود.

C

استفاده از تطبیق نام نماد حساس به حروف بزرگ و کوچک. مقصد CALL به هیچ وجه تغییر نمی‌کند و عیناً استفاده می‌شود.

VERBATIM

یک نام مستعار برای >>CALL-CONVENTION C.

>>COBOL-WORDS EQUATE keyword WITH alias

کلمه alias را مترادفی برای keyword قرار می‌دهد.

>>COBOL-WORDS UNDEFINE keyword

کلمه keyword را از گرامر COBOL حذف می‌کند. استفاده از آن در یک برنامه موجب بروز خطای نحوی از سوی کامپایلر خواهد شد.

>>COBOL-WORDS SUBSTITUTE keyword BY new-word

کلمه keyword به عنوان کلمه کلیدی از گرامر حذف شده و new-word جایگزین آن می‌شود. پس از آن می‌توان از keyword به عنوان کلمه تعریف‌شده توسط کاربر استفاده نمود.

>>COBOL-WORDS RESERVE new-word

با new-word مانند یک کلمه کلیدی COBOL رفتار می‌کند. این کلمه دیگر توسط برنامه، چه به عنوان کلمه کلیدی و چه به عنوان کلمه تعریف‌شده توسط کاربر، قابل استفاده نخواهد بود.

>>DISPLAY string ...

رشته string را به عنوان پیام هشدار در خروجی خطای استاندارد می‌نویسد.

>>SOURCE format

قالب format می‌تواند یکی از موارد زیر باشد:

FIXED

کد منبع مطابق با قالب مرجع فرم‌ثابت در زبان COBOL با طول خط نامحدود است.

FREE

کد منبع مطابق با قالب مرجع فرم‌آزاد در زبان COBOL است. کاراکتر ‘*’ در ابتدای خط به عنوان توضیح (کامنت) شناخته می‌شود.

>>FLAG-02

پیاده‌سازی نشده است.

>>FLAG-85

پیاده‌سازی نشده است.

>>FLAG-NATIVE-ARITHMETIC

پیاده‌سازی نشده است.

>>LEAP-SECOND

پیاده‌سازی نشده است.

>>LISTING

پیاده‌سازی نشده است.

>>PAGE

پیاده‌سازی نشده است.

>>PROPAGATE

پیاده‌سازی نشده است.

>>PUSH directive

 

>>POP directive

با PUSH ، وضعیت CDF را به یک پشته منتقل کنید. با POP ، به وضعیت قبلی که در پشته قرار گرفته بود بازگردید. دستورالعمل directive می‌تواند یکی از موارد زیر باشد:

CALL-CONVENTION

 

COBOL-WORDS

 

DEFINE

 

SOURCE FORMAT

 

TURN

 

>>TURN [ec [file ...] ...] CHECKING {[ON] [[WITH] LOCATION] | OFF}

شرط خطای ec را که به صورت اختیاری با رابط‌های پرونده file مرتبط است فعال (یا با OFF، غیرفعال) می‌کند. اگر LOCATION مشخص شده باشد، gcobol در زمان اجرا نام پرونده منبع و شماره خط دستوری را که شرط خطا را ایجاد کرده گزارش می‌دهد.

متغیرهای مجموعه ویژگی‌ها (Feature-set Variables)

برخی گزینه‌های خط فرمان بر متغیرهای مجموعه ویژگی‌ها (feature-set) در CDF که مختص gcobol هستند اثر می‌گذارند. آن‌ها را می‌توان با استفاده از >>DEFINE و >>IF تنظیم و آزمایش کرد، و با کاراکتر ‘%’ در ابتدای نام شناخته می‌شوند، که در غیر این صورت در شناسه‌های COBOL نامعتبر است:

%EBCDIC-MODE

توسط گزینه -fexec-charset=<encoding> برای تمام کدگذاری‌های EBCDIC تنظیم می‌شود.

%64-BIT-POINTER

به طور ضمنی با -dialect ibm فعال می‌گردد.

برای مقداردهی یک متغیر مجموعه ویژگی‌ها، از دستور زیر استفاده کنید:

برای آزمایش یک متغیر مجموعه ویژگی‌ها، از دستور زیر استفاده کنید:

توابع درونی (Intrinsic functions)

کامپایلر gcobol تمامی توابع درونی تعریف‌شده توسط ISO/IEC 1989:2023 و چند تابع دیگر را پیاده‌سازی کرده است. این توابع بر حسب حروف الفبا در زیر فهرست شده‌اند:

• ABS ACOS ANNUITY ASIN ATAN
• BASECONVERT BIT-OF BIT-TO-CHAR BOOLEAN-OF-INTEGER BYTE-LENGTH
• CHAR CHAR-NATIONAL COMBINED-DATETIME CONCAT CONVERT COS CURRENT-DATE
• DATE-OF-INTEGER DATE-TO-YYYYMMDD DAY-OF-INTEGER DAY-TO-YYYYDDD DISPLAY-OF
• E EXCEPTION-FILE EXCEPTION-FILE-N EXCEPTION-LOCATION EXCEPTION-LOCATION-N EXCEPTION-STATEMENT EXCEPTION-STATUS EXP EXP10
• FACTORIAL FIND-STRING FORMATTED-CURRENT-DATE FORMATTED-DATE FORMATTED-DATETIME FORMATTED-TIME FRACTION-PART
• HEX-OF HEX-TO-CHAR HIGHEST-ALGEBRAIC
• INTEGER INTEGER-OF-BOOLEAN INTEGER-OF-DATE INTEGER-OF-DAY INTEGER-OF-FORMATTED-DATE INTEGER-PART
• LENGTH LOCALE-COMPARE LOCALE-DATE LOCALE-TIME LOCALE-TIME-FROM-SECONDS LOG LOG10 LOWER-CASE LOWEST-ALGEBRAIC
• MAX MEAN MEDIAN MIDRANGE MIN MOD MODULE-NAME
• NATIONAL-OF NUMVAL NUMVAL-C NUMVAL-F ORD
• ORD-MAX ORD-MIN
• PI PRESENT-VALUE
• RANDOM RANGE REM REVERSE
• SECONDS-FROM-FORMATTED-TIME SECONDS-PAST-MIDNIGHT SIGN SIN SMALLEST-ALGEBRAIC SQRT STANDARD-COMPARE STANDARD-DEVIATION SUBSTITUTE SUM
• TAN TEST-DATE-YYYYMMDD TEST-DAY-YYYYDDD TEST-FORMATTED-DATETIME TEST-NUMVAL TEST-NUMVAL-C TEST-NUMVAL-F TRIM
• ULENGTH UPOS UPPER-CASE USUBSTR USUPPLEMENTARY UUID4 UVALID UWIDTH
• VARIANCE
• WHEN-COMPILED
• YEAR-TO-YYYY

نمایش DISPLAY ممیز شناور دودویی (Binary floating point DISPLAY)

نحوه نمایش اعداد ممیز شناور دودویی توسط دستور DISPLAY به مقدار آن بستگی دارد.

هنگامی که یک مقدار شش یا تعداد کمتری رقم اعشاری در سمت چپ نقطه اعشار داشته باشد، به صورت 123456.789... نمایش داده می‌شود.

هنگامی که مقدار کمتر از ۱ باشد و بیش از سه صفر در سمت راست نقطه اعشار نداشته باشد، به صورت 0.0001234... نمایش داده می‌شود.

در غیر این صورت، از نماد علمی (نمایی) استفاده می‌شود: 1.23456E+7.

در همه موارد، صفرهای انتهایی در سمت راست عدد از مقدار نمایش‌داده‌شده حذف می‌شوند.

COMP-1

با ۹ رقم اعشاری نمایش داده می‌شود.

COMP-2

با ۱۷ رقم اعشاری نمایش داده می‌شود.

FLOAT-EXTENDED

با ۳۶ رقم اعشاری نمایش داده می‌شود.

این تعداد ارقام با الزامات استاندارد IEEE 754 برای تبادل اطلاعات مطابقت دارد. به عنوان یک نمونه، توضیحات مربوط به مقادیر binary64 در COMP-2 (طبق ویکی‌پدیا).

اگر یک عدد ممیز شناور با دقت مضاعف IEEE 754 به یک رشته اعشاری با حداقل ۱۷ رقم بااهمیت (معنادار) تبدیل شود، و سپس دوباره به نمایش دقت مضاعف بازگردانده شود، نتیجه نهایی باید با عدد اصلی مطابقت داشته باشد.

عدد ۱۷ رقم از آن جهت انتخاب شده است که دستور DISPLAY محتوای یک متغیر COMP-2 را بدون پنهان کردن هیچ اطلاعاتی نشان دهد.

انتقال MOVE ممیز شناور دودویی (Binary floating point MOVE)

در حین اجرای دستور MOVE ، ممکن است یک مقدار ممیز شناور کوتاه (ترانکیت) شود. تغییر مقادیر Numeric Display هنگام انتقال از طریق یک مقدار ممیز شناور غیرعادی نخواهد بود.

این برنامه:

 01 PICV999 PIC 9999V999.
 01 COMP2 COMP-2.
PROCEDURE DIVISION.
 MOVE 1.001 to PICV999
 MOVE PICV999 TO COMP2
 DISPLAY "The result of MOVE " PICV999 " TO COMP2 is   " COMP2
 MOVE COMP2 to PICV999
 DISPLAY "The result of MOVE COMP2    TO PICV999 is " PICV999

این نتیجه را تولید می‌کند:

The result of MOVE 0001.001 TO COMP2 is   1.00099999999999989
The result of MOVE COMP2    TO PICV999 is 0001.000

با این حال، پیاده‌سازی داخلی می‌تواند نتایجی تولید کند که ممکن است شگفت‌آور به نظر برسد:

The result of MOVE 0055.110 TO COMP2 is   55.1099999999999994
The result of MOVE COMP2    TO PICV999 is 0055.110

منشأ این ناسازگاری روش ذخیره‌سازی و تبدیل اعداد در کامپایلر gcobol است. تبدیل مقدار ممیز شناور به مقدار نمایشی عددی 0055110 از طریق ضرب 55.109999... در 1000 و سپس کوتاه کردن (ترانکیت) نتیجه به یک عدد صحیح انجام می‌شود. و مشخص شده است که با وجود اینکه 55.11 نمی‌تواند به عنوان یک مقدار دقیق در ممیز شناور نمایش یابد، حاصلضرب این ضرب، یعنی 55110، یک مقدار دقیق است.

در مواردی که داشتن نتایج قابل پیش‌بینی برای تبدیلات اهمیت دارد، باید بتوانیم گرد کردن را اعمال کنیم، که این کار را می‌توان با یک دستور محاسباتی انجام داد:

MOVE 1.001 to PICV999
MOVE PICV999 TO COMP2
DISPLAY "The result of MOVE " PICV999 " TO COMP2 is   " COMP2
MOVE COMP2 to PICV999
DISPLAY "The result of MOVE COMP2    TO PICV999 is " PICV999
ADD COMP2 to ZERO GIVING PICV999 ROUNDED
DISPLAY "The result of ADD COMP2 to ZERO GIVING PICV999 ROUNDED is " PICV999

The result of MOVE 0001.001 TO COMP2 is   1.00099999999999989
The result of MOVE COMP2    TO PICV999 is 0001.000
The result of ADD COMP2 to ZERO GIVING PICV999 ROUNDED is 0001.001

محاسبات ممیز شناور دودویی (Binary floating point computation)

کامپایلر gcobol تلاش می‌کند تا در صورت امکان محاسبات داخلی را با استفاده از اعداد صحیح باینری انجام دهد. بدین ترتیب، محاسبات ریاضی ساده بین مقادیر باینری و مقادیر نمایش عددی با نتایج میانی باینری پایان می‌یابند.

اگر یک مقدار ممیز شناور در میان متغیرهای مشخص‌شده برای یک محاسبه قرار گیرد، نتیجه میانی به یک مقدار ممیز شناور ۱۲۸ بیتی تبدیل می‌شود.

هشداری در مورد مقایسه ممیز شناور دودویی (A warning about binary floating point comparison)

قاعده بنیادین هنگام انجام مقایسه‌های شامل مقادیر ممیز شناور: هرگز و تحت هیچ شرایطی تساوی دقیق را بررسی نکنید. این کار اصلاً ارزش دردسرهایش را ندارد.

برای نمونه:

WORKING-STORAGE SECTION.
 01 COMP1 COMP-1 VALUE 555.11.
 01 COMP2 COMP-2 VALUE 555.11.
PROCEDURE DIVISION.
 DISPLAY "COMPARE " COMP1 " with " COMP2
 IF COMP1 EQUAL COMP2 DISPLAY "Equal" ELSE DISPLAY "Not equal" END-IF

 MOVE COMP1 to COMP2
 DISPLAY "COMPARE " COMP1 " with " COMP2
 IF COMP1 EQUAL COMP2 DISPLAY "Equal" ELSE DISPLAY "Not equal" END-IF

نتایج:

COMPARE 555.1099854 with 555.110000000000014
Not equal
COMPARE 555.1099854 with 555.1099853515625
Equal

چرا؟ باز هم این موضوع به ساختار داخلی gcobol مربوط می‌شود. هنگامی که مقادیر ممیز شناور با اندازه‌های مختلف باید با هم مقایسه شوند، ابتدا به ممیز شناور ۱۲۸ بیتی تبدیل می‌شوند. و مشخص شده است که وقتی یک COMP1 به یک COMP2 منتقل می‌شود، و هر دو به FLOAT-EXTENDED تبدیل می‌گردند، دو مقدار حاصل (احتمالاً) برابر خواهند بود.

از بررسی تساوی اجتناب کنید مگر اینکه واقعاً بدانید چه کار می‌کنید و کد را کاملاً آزمایش کرده باشید. و حتی پس از آن نیز بهتر است از آن دوری کنید.

در نهایت، به طور مشهودی مشخص است که پیاده‌سازی تبدیل‌ها و مقایسه‌های ممیز شناور در gcobol دقیقاً با رفتار سایر کامپایلرهای COBOL یکسان نیست.

این هشدار را جدی بگیرید.

متغیرها برای توسعه‌دهندگان (Variables for Developers)

GCOBOL_SHOW

ردیابی از فراخوانی‌های داخلی انجام‌شده توسط تجزیه‌کننده برای آماده‌سازی درخت GENERIC را تولید می‌کند.

GCOBOL_TRACE

در زمان کامپایل، پرونده اجرایی را تولید می‌کند که اجرا را ردیابی کرده و آن را به همان توابع تولید کدی نگاشت می‌کند که در GCOBOL_SHOW مشاهده می‌شود، و همچنین مقادیر اقلام داده و شرایط انشعاب را ردیابی می‌نماید.

قالب روی دیسک (On-Disk Format)

هرگونه توانایی در استفاده از پرونده‌های تولیدشده توسط سایر کامپایلرهای COBOL، یا استفاده آن کامپایلرها از پرونده‌های تولیدشده توسط ، حاصل شانس و شهود است. کامپایلرهای گوناگون استاندارد ISO را به شکل‌های متفاوتی تفسیر می‌کنند و متن استاندارد همواره قطعی نیست.

برای پرونده‌های با ساختار ORGANIZATION IS LINE SEQUENTIAL (به صراحت یا به صورت پیش‌فرض)، gcobol در صورت نبود دستورالعمل خاص، یک پرونده متنی معمولی لینوکس تولید می‌کند: برای هر WRITE، داده‌ها نوشته شده و به دنبال آن‌ها یک کاراکتر خط جدید ASCII NL (هگز 0A) می‌آید. در هنگام READ، رکورد تا اندازه رکورد مشخص‌شده یا تا رسیدن به NL خوانده می‌شود، هر کدام که زودتر رخ دهد. کاراکتر NL در داده‌های واردشده به بافر رکورد گنجانده نمی‌شود؛ این کاراکتر تنها به عنوان نشانگر پایان رکورد روی دیسک عمل می‌کند. در نتیجه، پرونده‌های SEQUENTIAL و LINE SEQUENTIAL به یک شکل کار می‌کنند: برنامه COBOL هرگز نشانگر پایان رکورد را نمی‌بیند.

با این حال، هنگامی که READ و WRITE همراه با ADVANCING استفاده می‌شوند، شرایط تغییر می‌کند. اگر ADVANCING همراه با پرونده‌های LINE SEQUENTIAL به کار رود، توسط gcobol رعایت می‌شود.

سایر کامپایلرها ممکن است چنین عمل نکنند. طبق استاندارد ISO، در دستور WRITE (بخش 14.9.47.3 قواعد عمومی)، عبارت ADVANCING برای پرونده‌هایی که “پرونده فیزیکی از موقعیت‌یابی عمودی پشتیبانی نمی‌کند” نادیده گرفته می‌شود (ignored)ADVANCING ، دستور WRITE به گونه‌ای عمل می‌کند که گویی “کاربر عبارت AFTER ADVANCING 1 LINE را مشخص کرده است”. برخی پیاده‌سازی‌های دیگر این را بدین معنا تفسیر می‌کنند که نخستین WRITE در یک پرونده LINE SEQUENTIAL منجر به درج یک NL در ابتدای خط اول می‌شود، و هیچ NL پایانی در خط آخر درج نمی‌گردد. برخی نیز فراتر رفته و استفاده از ADVANCING را با پرونده‌های LINE SEQUENTIAL ممنوع می‌دانند.

وضعیت آزمون‌های اعتبارسنجی کامپایلر NIST کوبول (Status of NIST COBOL Compiler Verification Suite)

NC 100%

هسته اصلی (Nucleus)

SQ 100%

ورودی/خروجی ترتیبی (Sequential I/O)

RL 100%

ورودی/خروجی نسبی (Relative I/O)

IX 100%

ورودی/خروجی شاخص‌دار (Indexed I/O)

IC 100%

ارتباط بین برنامه‌ها (Inter-Program Communication)

ST 100%

مرتب‌سازی و ادغام (Sort-Merge)

SM 100%

دستکاری متن منبع RW \n گزارش‌نویس (Report Writer)

CM

ارتباطات (Communication)

DB to do?

اشکال‌زدایی (Debug)

SG

بخش‌بندی (Segmentation)

IF 100%

توابع درونی (Intrinsic Function)

در جایی که gcobol ۱۰۰٪ آزمون‌ها را در یک ماژول با موفقیت پشت سر می‌گذارد، ما آزمون‌های (اندک) مربوط به ویژگی‌های منسوخ را مستثنی می‌کنیم. سازندگان ویژگی‌هایی را که در سال ۱۹۸۵ منسوخ شده بودند، امروزه کاملاً و واقعاً منسوخ می‌دانند و آن‌ها را پیاده‌سازی نکرده‌اند.

ویژگی‌های به تعویق افتاده قابل توجه (Notable deferred features)

ماژول‌های CCVS-85 که در بالا با وضعیتی مشخص نشده‌اند (CM و SG) در فهرست “شاید محتمل” قرار دارند، به این معنی که در انتظار اعلام نیاز طرف علاقه‌مندی هستند که کدهای واقعی با استفاده از آن ویژگی داشته باشد.

کامپایلر gcobol بخش‌های Report Writer یا Screen Section را پیاده‌سازی نمی‌کند.

فراتر از COBOL/85 (Beyond COBOL/85)

کامپایلر gcobol به طور فزاینده‌ای ISO/IEC 1989:2023 را پیاده‌سازی می‌کند. برای نمونه، DECLARATIVES توسط CCVS-85 آزمایش نمی‌شود، اما توسط gcobol پیاده‌سازی شده است. به همین ترتیب، شرایط خطا (Exception Conditions) در سال ۱۹۸۵ تعریف نشده بودند، و gcobol شامل تعداد فزاینده‌ای از آن‌ها است.

سازندگان به خوبی آگاه هستند که یک کامپایلر کامل و خالص COBOL-85 بیشتر کدهای موجود COBOL را کامپایل نخواهد کرد. هر شرکتی افزونه‌هایی را ارائه کرده (و می‌کند)، و بیشتر محیط‌ها به انواع پیش‌پردازنده‌ها و سیستم‌های کمکی تعریف‌شده در خارج از استاندارد متکی هستند. هدف صریح افزودن یک فرانت‌اند استاندارد ISO COBOL به GCC، ایجاد پایه‌ای است که بر روی آن بتوان هرگونه افزونه مورد نیاز را بنا کرد.