GnuCOBOL

Руководство по программированию GnuCOBOL

1. Введение

В данном документе описывается синтаксис, семантика и использование языка программирования COBOL, реализованного в GnuCOBOL (ранее известном как OpenCOBOL).

Первоначальными основными разработчиками GnuCOBOL были Кеисуке Нисида и Роджер Уайл. С тех пор в его разработке участвовали многие члены сообщества.

Этот документ призван служить полным справочником и руководством пользователя, подходящим как для тех, кто впервые изучает COBOL в качестве учебного пособия, так и для тех, кто уже знаком с другим диалектом COBOL.

Отдельный справочник, содержащий только подробности реализации GnuCOBOL и предназначенный для опытных программистов COBOL, был извлечен из этого руководства. Этот документ (GnuCOBOL Quick Reference) не содержит учебного материала.

Другие документы, которые следует прочитать, это gnucobol.pdf, находящийся в каталоге doc исходных кодов компилятора, и файл NEWS, поставляемый с исходным кодом компилятора GnuCOBOL в корневом каталоге. Там вы найдете последние добавленные функции языка COBOL, некоторые из которых могут отсутствовать в этом документе из-за ограничений по времени. Если вы обнаружите какие-либо, пожалуйста, сообщите об этом как об ошибке в Руководстве программиста, чтобы она могла быть исправлена.

Еще один документ, который необходимо прочитать и который углубляется в компилятор, — это часто задаваемые вопросы (FAQ), доступные через GnuCOBOL Руководства и Справочники, хотя его можно было бы немного улучшить, чтобы облегчить чтение и поиск необходимой информации.

1.1. Дополнительные источники ссылок

Для тех, кто хочет впервые изучить COBOL, Гэри настоятельно рекомендует следующие ресурсы.

Если вы предпочитаете бумажную книгу, я настоятельно рекомендую Murach’s Structured COBOL, Майкла Мурача, Энн Принс и Рауля Менендеса (2000) — ISBN 9781890774059. Майкл Мурач и его различные соавторы на протяжении десятилетий писали выдающиеся учебники по COBOL. Это отличная книга для тех, кто знаком с концепциями программирования на других языках, но не знаком с COBOL.

Вы предпочитаете онлайн-учебник? Попробуйте сайт COBOL Университета Лимерика (Ирландия) — сайт COBOL.

Кроме того, есть часто задаваемые вопросы GnuCOBOL GnuCOBOL FAQ — количество страниц которого превысило сейчас 1400 — доступный в формате HTML или в виде загружаемого файла .pdf.

Вместе с каждым выпуском исходных кодов компилятора прилагается файл NEWS. Он содержит самые актуальные обновления о компиляторе и дополнительных элементах языка COBOL, которые могут не быть ещё включены в данное руководство.

1.2. Введение в COBOL

Если вы уже знаете язык программирования, отличный от COBOL, скорее всего, это Java, C или C++. Вы обнаружите, что COBOL сильно отличается от них; иногда различия – это хорошо, а иногда – нет. Важно помнить об этом: COBOL был разработан для решения бизнес-задач.

COBOL, впервые представленный программистам в 1959 году, стал первым языком программирования, получившим стандартизацию (в 1960 году). Это означало, что программа COBOL, соответствующая стандарту, написанная на компьютере «A» компании «B», могла быть скомпилирована и выполнена на компьютере «X» компании «Y» с очень небольшими, если таковыми были, изменениями. Сегодня это может показаться не таким уж большим достижением, но это было радикальным отходом от всех языков программирования, существовавших до него, и даже многих, появившихся после него.

Название COBOL на самом деле говорит само за себя — COBOL — это аббревиатура, расшифровывающаяся как «(CO)mmоn (B)usiness (O)riented (L)anguage». Обратите внимание на то, что слово «общего» стоит перед всеми остальными. Слово «бизнес» идёт вторым. В этом и заключается ключ к успеху COBOL.

1.2.1. Почему вам стоит изучить COBOL

Несмотря на заявления «инсайдеров» индустрии, язык программирования COBOL не умер, даже несмотря на то, что более новые и так называемые «современные» языки, такие как Java, C#, .NET, Ruby on Rails и т.д., стали языками выбора в мире информационных технологий. Эти языки стали популярными, потому что они отвечают следующим желаемым требованиям для «современного» программирования:

Просто потому, что COBOL традиционно не поддерживает объекты, классы и тому подобное, не означает, что его «процедурный» подход к вычислениям не имеет ценности — в конце концов, он обрабатывает 70% бизнес-транзакций в мире и делает это:

• Используя программы, которые, по большей части, намного более самодокументированы, чем это было бы в случае с любым другим языком программирования.
• Легко обеспечивая точность арифметики до 31 знака с производительностью, приближающейся к производительности хорошо написанных программ на языке ассемблера. Не стоит думать, что это не критически важно для банков, инвестиционных домов и любого бизнеса, заинтересованного в отслеживании доходов, расходов и прибыли (ну, как ВСЕ они).
• Хорошо интегрируясь с инфраструктурами, не основанными на COBOL, такими как XML, SOA, MQ, практически любыми СУБД, платформами обработки транзакций, средствами управления очередями и другими языками программирования.
• Работая практически на таком же количестве различных вычислительных платформ, что и Java. Вы не можете запускать программы COBOL на смартфоне, но настольные компьютеры, рабочие станции, мини-фреймы/серверы, мэйнфреймы и суперкомпьютеры – все это допустимые варианты.

Современные ИТ-менеджеры и руководители бизнеса сталкиваются с непростой дилеммой — как поддерживать огромную базу кода COBOL, на которой до сих пор работают их предприятия, когда академические круги практически отказались от этого языка, необходимый их сотрудникам для поддержания работы систем? Проблема усугубляется тем, что программисты, владеющие навыками COBOL, выходят на пенсию, забирая с собой свои знания. В некоторых рынках это приводит к росту стоимости ресурсов (программистов COBOL), предложение которых становится всё меньше и меньше. Давление по обновлению приложений для использования более современных графических пользовательских интерфейсов также рассматривается как причина отказа от COBOL в пользу удобных для GUI языков, таких как Java.

Компании решают проблему COBOL различными способами:

1. Путем проведения так называемых «проектов модернизации», в которых существующие приложения либо переписываются на «современные» языки, либо полностью заменяются приобретёнными пакетами. Большинство этих компаний используют такие мероприятия как предлог для отказа от «дорогих» мэйнфреймов в пользу (предположительно) менее дорогих решений «открытых систем» (мидфреймы/серверы).
2. Во многих случаях эти компании обнаруживают, что стоимость инфраструктуры систем/сетевого оборудования, операционного управления и мониторинга, а также управления рисками (т. е. восстановления после катастрофы), необходимой для поддержки действительно критически важных приложений, настолько высока, что «менее дорогое» решение на самом деле не является таковым; в таких случаях мэйнфрейм может остаться лучшим вариантом, оставив COBOL в игре, и компании ищут другое решение по крайней мере для части своей базы приложений.
3. Обучая своих собственных программистов COBOL. Поскольку колледжи, университеты и технические школы потеряли интерес к этому, многие компании взяли на себя задачу «выращивания» нового поколения программистов COBOL. Страх быть ограниченными одной нишевой технологией является фактором, препятствующим многим современным программистам добровольно участвовать в таком обучении.
4. Путем перемещения пользовательского интерфейса на рабочий стол; такие усилия включают запуск клиентских приложений современных языков на рабочих столах пользователей (или ноутбуках, или смартфонах и т. д.) с программами COBOL, обеспечивающими серверную функциональность на мэйнфреймах или мидфреймах, предоставляя все «тяжёлые» задачи по обработке баз данных и файлов на заднем плане. Такие решения предоставляют пользователям желаемые/нужные пользовательские интерфейсы, одновременно используя сильные стороны COBOL на (возможно) урезанных системах мэйнфреймов или мидфреймов.

Вероятно, ИТ-специалисту больше нельзя позволять COBOL быть единственным инструментом в их арсенале, но с огромной базой кода, всё ещё находящейся в производстве сейчас и в обозримом будущем, добавление COBOL в многоязычный резюме (да — они РАЗНЫЕ) не является плохим решением. Знание COBOL наряду с языком «моды» сделает вас самым умным человеком в комнате, когда начнется обсуждение миграции текущей «наследственной» среды на «современную» реализацию.

Вы обнаружите, что COBOL — это лёгкий язык для изучения и гораздо легче освоить, чем многие «современные» языки.

По всей видимости, причина, по которой вы читаете это, заключается в том, что вы открыли для себя GnuCOBOL — ещё одну реализацию COBOL помимо уже упомянутых. Отличительной чертой GnuCOBOL от других является то, что GnuCOBOL является БЕСПЛАТНЫМ открытым исходным кодом и, следовательно, БЕСПЛАТЕН для получения и использования. Он улучшается и поддерживается сообществом. Позже в этом документе (см. Что такое GnuCOBOL?) вы начнёте узнавать больше о возможностях этой реализации COBOL.

1.2.2. Производительность программистов

На протяжении всей истории компьютерного программирования поиск новых способов повышения производительности программистов был важным фактором. Помимо любителей, программирование — это деятельность, выполняемая за деньги, и предприятия не любят тратить больше, чем абсолютно необходимо; даже государственные учреждения пытаются потратить как можно меньше денег на проекты.

Объём программирования, необходимого для выполнения заданной задачи, включая переработку, необходимую для исправления любых ошибок, обнаруженных во время тестирования (тестирование иногда шутливо определяется как: время, когда приложение фактически находится в производстве, позволяя пользователям обнаруживать проблемы), является мерой производительности программиста. Всё, что уменьшает эти усилия, соответственно уменьшает время, затраченное на такие действия, и, следовательно, уменьшает расходы на них. Когда расходы на программирование снижаются, повышается производительность программистов.

Иногда поиск повышения производительности программистов (и, следовательно, снижения расходов на программирование) принимал форму введения новых функций в языках программирования или даже в новых языках вообще. Иногда это приводило к новым способам использования существующих языков.

Хотя многие технологические и процедурные разработки внесли эволюционные улучшения в производительность программистов, каждое из следующих трёх событий стало причиной революционных улучшений:

• Развитие так называемых языков программирования «высокого уровня», которые позволяют программисту в одном операторе языка указать действие, для которого в предыдущих языках программирования потребовалось бы гораздо больше отдельных операторов. Стандартизация таких языков, позволяющая использовать их на широком спектре компьютеров и операционных систем, являлась ключевым аспектом этого развития. COBOL был новаторским развитием в этой области, являясь прямым потомком первого языка высокого уровня (FLOW-MATIC, разработанного лейтенантом ВМС США Грейс Хоппер) и первым стандартизированным языком.
• Разработка методик программирования, которые делают программы более читаемыми и, следовательно, более понятными. Такие методики не только уменьшают объем переработки, необходимой просто для того, чтобы программа работала так, как задумано, но и сокращают время, необходимое программисту для изучения существующей программы, чтобы адаптировать её к изменяющимся бизнес-требованиям. Главным развитием в этой области было структурное программирование. Введенный в конце 1970-х годов, этот подход к программированию породил новые языки программирования (PASCAL, ALGOL, PL/1 и так далее), разработанные на его основе. Со стандартом ANSI 85, COBOL также принял принципы, проповедуемые экспертами в области структурного программирования, а также любых языков, разработанных строго на его основе.
• Разработка методик программирования и внедрение возможностей языков программирования для облегчения повторного использования кода программ. Всё, что способствует повторному использованию кода, может существенно повлиять на время разработки новых приложений или внесения значительных изменений в существующие. В последние годы объектно-ориентированное программирование (ООП) стало для отрасли «образцовым примером» для повторного использования кода. Позволяя логике программы и структурам данных, которые обрабатывает эта логика, быть инкапсулированными в легко сохраняемые и извлекаемые (и, следовательно, «переиспользуемые») модули, называемые классами, объектно-ориентированные языки, такие как Java, C++ и C#, стали фаворитами в академических кругах. Поскольку студенты обучаются именно этим языкам, неудивительно, что сегодня объектно-ориентированные языки программирования являются любимцами отрасли.

  Однако на самом деле опытные программисты практикуют повторное использование кода уже более полувека. До недавнего времени у программистов COBOL были одни из лучших инструментов для повторного использования кода — они делали это с помощью копий и подпрограмм, а не классов, методов и атрибутов, но конечный результат был похожим. Благодаря стандартам COBOL2002 и COBOL 2014, язык программирования COBOL стал таким же «объектно-ориентированным», как и «современные» языки, сохраняя при этом возможность поддержки, модификации, компиляции и выполнения «наследованных» программ COBOL.

Хотя GnuCOBOL поддерживает лишь немногие из конструкций ООП, определённых стандартами COBOL2002 и COBOL2014, он поддерживает все аспекты стандарта ANSI 85, а значит, полностью удовлетворяет потребностям пунктов #1 и #2, указанных выше. Благодаря своему набору функций (см. Что такое GnuCOBOL?), он предоставляет значительные возможности для повышения производительности программистов.

1.3. Что такое GnuCOBOL?

GnuCOBOL — это свободный и открытый компилятор COBOL и среда выполнения, написанная на языке программирования C. GnuCOBOL обычно распространяется в виде исходного кода и должен быть скомпилирован для операционной системы вашего компьютера с помощью системного компилятора C и загрузчика. Хотя первоначально он был разработан для операционных систем UNIX и Linux, GnuCOBOL также успешно был скомпилирован для компьютеров под управлением OSX и Windows с использованием возможностей эмуляции UNIX, таких как Cygwin и MinGW. Также см. веб-сайт GNU для получения дополнительной информации.

Подход с использованием MinGW является личным фаворитом автора этого руководства, так как он создаёт компилятор и библиотеку времени выполнения GnuCOBOL, которым требуется только одна DLL MinGW для компилятора, библиотеки времени выполнения и пользовательских программ GnuCOBOL. Эта DLL распространяется бесплатно на условиях GNU General Public License. Сборка GnuCOBOL под MinGW легко помещается на флэш-накопитель объёмом 128 МБ и запускается с него без необходимости установки каких-либо программ на компьютер под управлением Windows, который будет его использовать. Однако некоторые функции языка, связанные с обменом файлами между одновременно выполняемыми программами GnuCOBOL и блокировкой записей в определённых типах файлов, жертвуются, так как необходимые для их реализации системные функции операционной системы недоступны в Windows и не предоставляются MinGW. Текущая версия для MinGW доступна по ссылке для скачивания, наряду с другими платформами на веб-сайте загрузки GnuCOBOL .

GnuCOBOL также был разработан как полностью нативное приложение для Windows, используя бесплатный пакет Visual Studio Express от Microsoft для предоставления компилятора C и компоновщика/загрузчика. Этот подход не подходит для «портативного» распространения.

Компилятор GnuCOBOL генерирует код C из ваших программ COBOL; этот код C затем автоматически компилируется и компонуется с помощью системного компилятора C (обычно, но не только, gcc).

GnuCOBOL полностью поддерживает стандарт ANSI 85 для COBOL (единственное существенное исключение — Модуль связи) и также поддерживает некоторые компоненты стандартов COBOL2002 и COBOL2014, такие как SCREEN SECTION (см. РАЗДЕЛ ЭКРАНА), табличные SORT (см. СОРТИРОВКА ТАБЛИЦ) и пользовательские функции. Есть и другие, и почти каждую неделю добавляются новые.

2. Основы COBOL

В этой главе описывается синтаксис, семантика и использование языка программирования COBOL, реализованного в текущей версии GnuCOBOL. В дальнейшем в этом документе язык будет обозначаться как COBOL для удобства чтения, однако имя компилятора сохраняет смешанный регистр GnuCOBOL.

Этот документ предназначен в качестве исчерпывающего справочника и руководства пользователя, подходящего как для читателей, впервые изучающих COBOL, так и для тех, кто уже знаком с некоторыми диалектами языка COBOL.

Существует отдельный справочник, содержащий только подробности грамматики Cobol, реализованной в GnuCOBOL, который предназначен строго для опытных программистов COBOL, и он взят из этого руководства. Он НЕ содержит учебного материала.

Эти дополнительные руководства: «Быстрый справочник GnuCOBOL», содержащий только семантику/грамматику COBOL в кратком документе, а другой — «Примеры программ GnuCOBOL», демонстрирует подробные примеры программ Cobol с указанием синтаксиса, используемого в каждой программе.

Для каждой реализации компилятора GnuCOBOL следует также прочитать файлы NEWS для получения любых последних обновлений, а также файлы README и INSTALL для сборки компилятора.

2.1. Язык COBOL — Основы

2.1.1. Зарезервированные слова языка

Программы Cobol состоят из последовательности слов и символов. Слова, состоящие из последовательности букв (строчных и/или прописных), цифр, дефисов (‘-’) и/или подчеркиваний (‘_’), могут иметь предварительно определенное, специфическое значение для компилятора или быть придуманы программистом для своих целей.

Спецификация языка GnuCOBOL определяет более 1130 зарезервированных слов — слов, которым компилятор присваивает специальное значение. Этот список и число относятся к стандартному списку, который охватывает многие реализации, и что возможно ограничить список либо конкретной реализацией с помощью -std=xyz[-strict], либо вручную разрезервировать слова, если они используются в существующих источниках как пользовательские слова.

Программисты могут использовать зарезервированное слово как часть слова, которое они создают сами, но не могут создавать свои собственные слова как точные дубликаты (не обращая внимания на регистр) зарезервированного слова COBOL. Обратите внимание, что зарезервированное слово включает все классы, такие как встроенные функции, мнемоники, системные процедуры и зарезервированные слова. Список зарезервированных слов можно изменить, добавив или удалив определенные слова для данного компиляции или по умолчанию с помощью управляющей команды -std и -conf. См. конкретные файлы конфигурации, которые по умолчанию хранятся в /usr/local/share/gnucobol/config. Также использование опции ‘FUNCTION ALL INTRINSIC’ добавит еще 100+ зарезервированных слов. Их можно изменить, чтобы соответствовать требованиям бизнес- или проектной группы, но будьте осторожны, что они обновляются при построении новой версии компилятора, поэтому может быть более целесообразно создать собственную конфигурацию на основе существующей, но с другим именем.

Кроме того, вы можете добавлять и/или удалять зарезервированные слова, добавив одну из этих опций в cobc, чтобы добавить -freserved-words=value или -freserved=word или, чтобы удалить, -fnot-reserved=word. А также -freserved=word:alias, чтобы создать псевдоним для слова, а также -fnot-register=word или -fregister=word, чтобы удалить или добавить специальное зарезервированное слово.

См. Приложение B — Список зарезервированных слов для получения полного списка зарезервированных слов GnuCOBOL.

Для любой версии GnuCOBOL вы также можете перечислить весь текущий набор зарезервированных слов, запустив cobc с --list-reserved, --list-intrinsic, --list-system, а также --list-mnemonics. Опять же, это может изменяться в зависимости от использования команды --std.

2.1.2. Пользовательские слова

При написании программ GnuCOBOL вам необходимо создать различные слова для представления различных аспектов программы, данных программы и внешней среды, в которой будет работать программа. Это будет включать внутренние имена, по которым будут ссылаться на файлы данных, имена элементов данных и имена процедур исполняемого логического кода.

Пользовательские слова могут быть составлены из символов ‘A’ до ‘Z’ (строчных и/или прописных), ‘0’ до ‘9’, дефиса (‘-’) и подчеркивания (‘_’). Пользовательские слова не могут начинаться или заканчиваться дефисом или символом подчеркивания.

Другие языки программирования предоставляют программисту аналогичную возможность создавать свои собственные слова (имена) для частей программы; COBOL несколько необычен по сравнению с другими языками тем, что пользовательские слова могут начинаться с цифры.

За исключением имен процедур логики, которые могут состоять только из цифр, пользовательские слова должны содержать по крайней мере одну букву.

2.1.3. Нечувствительность к регистру

Все реализации COBOL позволяют использовать как прописные, так и строчные буквы в кодировании программ. GnuCOBOL полностью нечувствителен к регистру при написании зарезервированных слов или пользовательских имен. Таким образом, AAAAA, aaaaa, Aaaaa и AaAaA — это одно и то же слово с точки зрения GnuCOBOL.

Единственный случай, когда регистр имеет значение, — это внутри строковых литералов, где значения символов будут точно такими, как закодированы.

Согласно принятой в этом документе конвенции, служебные слова COBOL будут отображаться полностью в UPPER-CASE, а слова, созданные программистом, будут представлены маркерами в смешанном или нижнем регистре.

Это не плохая практика для использования в реальных программах, так как она приводит к программам, в которых гораздо легче различать служебные слова и слова, определенные пользователем!

2.1.4. Читабельность программ

Критики COBOL часто фокусируются на многословности языка, часто приводя в качестве примера программу «Hello World» как «доказательство» того, что программирование на COBOL значительно более трудоёмкое, чем на более «современных» языках. Эта трудоёмкость рассматривается как значительное влияние на производительность программистов, по их мнению, COBOL не может исчезнуть достаточно быстро.

Ниже приведены две различные программы «Hello World», одна написанная на Java, а вторая — на GnuCOBOL. Сначала версия на Java:

    Class HelloWorld {
        public static void main(String[] args) {
            System.out.println("Hello World!");
        }
    }

И вот та же программа, написанная на GnuCOBOL:

    IDENTIFICATION DIVISION.
    PROGRAM-ID. HelloWorld.
    PROCEDURE DIVISION.
        DISPLAY "Hello World!".

Обе вышеперечисленные программы могли бы быть написаны в одну строку, если бы этого желали, и оба языка позволяют программисту использовать (или не использовать) отступы по своему усмотрению для улучшения читабельности программы. На данный момент это похоже на ничью.

Давайте посмотрим, насколько больше «многословнее» COBOL по сравнению с Java. Посчитайте количество символов в обеих программах. Программа на Java содержит 95 символов (не считая символов возврата каретки и отступов). Программа на COBOL содержит 89 символов (опять же, не считая символов возврата каретки и отступов)! Теоретически, их могло быть всего 65, так как заголовок IDENTIFICATION DIVISION. фактически является необязательным. Очевидно, что «Hello World» выглядит не более лаконично на Java, чем на COBOL.

Давайте рассмотрим другую задачу. Конечно, программа, которая попросит пользователя ввести положительное целое число, вычислит сумму всех положительных целых чисел от 1 до этого числа и затем выведет результат, будет намного короче и намного проще для понимания, когда она написана на Java, чем на COBOL, верно?

Вы можете судить сами. Сначала версия на Java:

    import java.util.Scanner;
    public class sumofintegers {
        public static void main(String[] arg) {
            System.out.println("Enter a positive integer");
            Scanner scan=new Scanner(System.in);
            int n=scan.nextInt();
            int sum=0;
            for (int i=1;i<=n;i++) {
                sum+=i;
            }
            System.out.println("The sum is "+sum);
        }
    }

И теперь версия на COBOL:

    IDENTIFICATION DIVISION.
    PROGRAM-ID. SumOfIntegers.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    01 n   BINARY-LONG.
    01 i   BINARY-LONG.
    01 sum BINARY-LONG VALUE 0.
    PROCEDURE DIVISION.
    DISPLAY "Enter a positive integer"
    ACCEPT n
    PERFORM VARYING i FROM 1 BY 1 UNTIL i > n
        ADD i TO sum
    END-PERFORM
    DISPLAY "The sum is " sum.

Моя осведомленность о COBOL может предвзято влиять на моё мнение, но мне не кажется, что код на Java проще, чем код на COBOL. Если вас интересует количество символов, код на Java содержит 278 символов (не считая символов отступа). Код на COBOL — 298 символов (274 без заголовка IDENTIFICATION DIVISION.).

Несмотря на то, что вы увидели здесь, чем сложнее программная логика, тем более лаконичным будет выглядеть код на Java, даже по сравнению с COBOL стандарта 2002 года. Однако такая краткость имеет свою цену — читабельность программного кода. Программы на Java (или C, C++, C#) обычно понятны только подготовленным программистам. Программы на COBOL могут быть достаточно понятны и непрограммистам. Это фактически побочный эффект «многословности» языка, где инструкции COBOL используют естественные английские слова для описания своих действий. Эта встроенная читабельность много раз помогала мне на протяжении всей моей карьеры, когда мне приходилось изучать неясные бизнес-(или юридические) процессы, читая код программ на COBOL, который их поддерживает.

В «современных» языках, таких как Java, также есть собственная «шаблонная» инфраструктурная накладная, которая должна быть закодирована для написания необходимой логики в программе. Например, рассмотрите инструкции public static void main(String[] arg) и import java.util.Scanner;. Критики склонны забывать об этом, когда критикуют COBOL за его структурную «накладную».

Когда COBOL был разработан, его легко читаемый синтаксис резко отличался от всего, что было раньше. Впервые появилась возможность описывать логику таким образом, который — по крайней мере в некоторой степени — был понятен даже непрограммистам. Например, рассмотрим следующий код, написанный на FORTRAN — языке, разработанном всего за год до COBOL:

    EXT = PRICE * IQTY
    INVTOT = INVTOT + EXT

С его первоначальным ограничением на длину имён переменных (имена длиной от одного до шести символов, состоящие из буквы, за которой следует до пяти букв и/или цифр), его неявным правилом, согласно которому переменные автоматически создавались как вещественные (с плавающей точкой), если их имя не начиналось с буквы в диапазоне I-N, и его использованием алгебраической нотации для выражения выполняемых действий, FORTRAN не был особенно удобочитаемым языком, даже для программистов. Сравните это с эквивалентным кодом COBOL:

    MULTIPLY price BY quantity GIVING extended-amount
    ADD extended-amount TO invoice-total

Очевидно, даже непрограммист мог бы по крайней мере концептуально понять, что происходит! Со временем языки, подобные FORTRAN, эволюционировали к более мощным именам переменных, а COBOL ввёл более формулированную синтаксическую возможность для арифметических операций, но FORTRAN так и не стал таким удобочитаемым, как COBOL.

Благодаря своей встроенной читабельности, я гораздо предпочел бы получить задание внести существенные изменения в программу на COBOL, о которой я ничего не знаю, чем быть попрошенным сделать то же самое с программой на C, C++, C# или Java.

Те, кто утверждают, что программирование программы на COBOL «с нуля» слишком скучно/непродуктивно/долго/обидно (выберите одно), явно не знают следующих фактов:

• Многие системы имеют инструменты разработки программ, облегчающие процесс кодирования программ; инструменты, ориентированные на COBOL, способны предоставлять шаблоны для большей части «вспомогательного» словесного оформления любой программы…
• Опытные программисты — на протяжении десятилетий — поддерживали собственные каркасные «шаблонные» программы для различных типов программ; просто загрузите шаблон в текстовый редактор, и у вас будет хорошее начало программы…
• Существует легенда, что на самом деле была только ОДНА программа, написанная на COBOL, и все программы, «написанные» впоследствии, были просто производными от этой одной. Хотя это явно задуманная (вероятно, плохая) шутка, тем не менее, она близка к очень простой истине, что многие программисты «переиспользуют» существующие программы COBOL при создании новых. Конечно, ничего не мешает этому происходить с программами, написанными на других языках, но это, похоже, чаще происходит в компаниях, использующих COBOL. Иронично, что «повторное использование кода» — один из аргументов, используемых для оправдания существования «современных» языков.

2.1.5. Разделы Организуют Программы

Программы COBOL структурированы в четыре основных области кодирования, каждая со своей целью. Эти четыре области известны как разделы.

Каждый раздел может состоять из различных секций, а каждая секция состоит из одного или нескольких параграфов. Параграф состоит из предложений, каждое из которых состоит из одного или нескольких операторов.

Эта иерархическая структура компонентов программы стандартизирует состав всех программ COBOL. Большая часть этого руководства описывает различные разделы, секции, параграфы и операторы, которые могут составлять любую программу COBOL. %%%CODE_BLOCK_18%% оператор (см. COPY)

2.1.6. Книжки-копии

Книга-копия — это фрагмент программного кода, который может использоваться несколькими программами, просто добавив в эти программы использование COPY оператора для импорта этого кода. Этот код может определять файлы, структуры данных или процедурный код.

Современные языки программирования имеют оператор (обычно этот оператор называется «импорт», «включение» или «#include»), который выполняет ту же функцию. Однако то, что отличает функцию книги-копии COBOL от функции «включения» в новых языках, заключается в том, что COPY оператор может редактировать импортированный исходный код по мере его копирования. Эта возможность делает библиотеки книг-копий чрезвычайно ценными для повторного использования кода. Также см. раздел 3. Команды компилятора COPY и REPLACE.

2.1.7. Структурированные данные

Непрерывный участок памяти в адресном пространстве программы, который может ссылаться по имени в программе COBOL, называется Элементом данных. Другие языки программирования используют термины переменная, свойство или атрибут для описания того же.

COBOL представил понятие структурированных данных. Принцип структурированных данных в COBOL основан на возможности группировать связанные и непрерывно размещенные элементы данных вместе в один агрегированный элемент данных, называемый Групповым элементом. Например, групповой элемент «Имя-сотрудника» длиной 35 символов может состоять из элемента «Фамилия» длиной 20 символов, за которым следует элемент «Имя» длиной 14 символов и инициал среднего имени длиной 1 символ.

Элемент данных, который сам по себе не образован из других элементов данных, в COBOL называется Элементарным элементом. В предыдущем примере «Фамилия», «Имя» и «Инициал среднего имени» — все элементарные элементы.

2.1.8. Файлы

Одно из преимуществ COBOL заключается в широком разнообразии файлов данных, к которым он может получить доступ. Программы GnuCOBOL, как и те, которые созданы с другими реализациями COBOL, должны иметь описание структуры любых файлов, которые они будут читать и/или записывать. Наиболее высокий уровень характеристик структуры файла определяется указанием организации файла следующим образом:

ORGANIZATION LINE SEQUENTIAL

Это файлы с простейшей внутренней структурой. Их содержимое структурировано просто как серия записей данных одинакового или разного размера, каждая из которых завершается специальным символом разделителя конца записи. Символ ASCII новой строки (шестнадцатеричный 0A) является символом разделителя конца записи, используемым в любом билде GnuCOBOL под UNIX или псевдо-UNIX (MinGW, Cygwin, OSX). Истинный билд под Windows будет использовать последовательность возврата каретки, новой строки (шестнадцатеричный 0D0A).

Записи должны читаться или записываться в эти файлы исключительно последовательным образом. Единственный способ прочитать (или записать) запись номер 100 — это предварительно прочитать (или записать) записи с номера 1 по 99.

Когда файл записывается программой GnuCOBOL, последовательность разделителей автоматически добавляется к каждой записи данных при записи в файл. Операция WRITE (см. WRITE) в этом типе файла будет выполняться так, как если бы был указан BEFORE ADVANCING 1 LINE-оператор в WRITE, если ADVANCING-оператор не указан.

При чтении файла система выполнения GnuCOBOL удалит последовательность разделителей из каждой записи. Данные будут дополнены пробелами справа, если прочитанные данные короче области, описанной для записей данных в программе. Если данные слишком длинные, они будут усечены, и избыток будет потерян.

Эти файлы не должны быть определены как содержащие какие-либо точные бинарные поля данных, потому что содержимое этих полей может случайно содержать последовательность конца записи в качестве части своих значений — это могло бы сбить систему выполнения при чтении файла, и она могла бы интерпретировать это значение как фактическую последовательность конца записи.

LINE ADVANCING

Это файлы с внутренней структурой, аналогичной структуре файла с последовательной записью по строкам. Эти файлы определяются (без явного указания ORGANIZATION-оператор) с помощью LINE ADVANCING-оператор в операторе SELECT (см. SELECT).

Когда этот тип файла записывается программой GnuCOBOL, последовательность разделителей конца записи будет автоматически добавлена к каждой записи данных при записи в файл. Операция WRITE в этом типе файла будет выполняться так, как если бы был указан AFTER ADVANCING 1 LINE-оператор в WRITE, если ADVANCING-оператор не указан.

Как и файлы с последовательной записью по строкам, эти файлы не должны быть определены как содержащие какие-либо точные бинарные поля данных, так как содержимое этих полей может случайно включать последовательность конца записи в свои значения — это могло бы сбить систему выполнения при чтении файла и привести к её неправильной интерпретации значения как последовательности конца записи.

ORGANIZATION SEQUENTIAL

В этих файлах также простая внутренняя структура. Их содержимое организовано как произвольно длинная последовательность символов данных. Эта последовательность символов будет обрабатываться как серия записей фиксированной длины, просто логически разбивая последовательность символов на сегменты фиксированной длины, каждый длиной, равной максимальному размеру записи, определённому в программе. В файле нет специальных символов разделителей конца записи, и при записи файла программой GnuCOBOL никакая последовательность разделителей к данным не добавляется.

Записи в этом типе файла имеют одинаковую физическую длину, за исключением, возможно, последней записи в файле, которая может быть короче других. Если в программе определены логические записи переменной длины, то занимаемое каждым физическим записям в файле пространство будет соответствовать пространству, описанному самой длинной записью в программе.

Итак, если файл содержит 1275 символов данных, а программа определяет структуру этого файла как содержащую записи по 100 символов, то содержимое файла будет состоять из двенадцати (12) записей по 100 символов, а последняя запись будет содержать только 75 символов.

По-видимому, можно найти и обработать любую запись в файле непосредственно, просто вычислив её начальную позицию символа на основе размера записи, определённого программой. Однако, тем не менее, записи всё ещё должны читаться или записываться в эти файлы исключительно последовательно. Единственный способ прочитать (или записать) запись номер 100 — это предварительно прочитать (или записать) записи с номерами от 1 до 99.

При чтении файла данные передаются в программу точно так же, как они существуют в файле. В случае, если короткая запись считывается как последняя запись, эта запись будет дополнена (справа) пробелами.

Следует принять меры, чтобы программы, читающие такой файл, описывали записи, длина которых точно соответствует длине, используемой программой, которая создала файл. Например, ниже показано содержимое файла SEQUENTIAL, созданного программой, которая записала в него пять записей по 6 символов. Значения «A», «B», … отражают записи, которые были записаны в файл:

‘AAAAAA’

‘BBBBBB’

‘CCCCCC’

‘DDDDDD’

‘EEEEEE’

Теперь предположим, что другая программа читает этот файл, но описывает записи по 10 символов вместо 6. Вот записи, которые эта программа будет читать:

‘AAAAAABBBB’

‘BBCCCCCCDD’

‘DDDDEEEEEE’

Иногда это именно то, что вам нужно. Однако чаще всего такого поведения нежелательно. Рекомендация: используйте копибук для описания структуры записей любого файла; это гарантирует, что несколько программ, обращающихся к этому файлу, будут «видеть» одни и те же размеры и структуры записей, закодировав оператор COPY, (см. COPY) для импорта структуры записи, а не кодируя её вручную.

Эти файлы могут содержать точные бинарные поля данных. Поскольку никакая последовательность символов не является разделителем конца записи, содержимое полей записи не имеет значения для процесса чтения.

ORGANIZATION RELATIVE

Содержимое этих файлов состоит из серии записей данных фиксированной длины, предваряемых четырёхбайтовым заголовком записи. Заголовок записи содержит длину данных в байтах. Счёт байтов не включает четырёхбайтовый заголовок записи.

Все записи в этом типе файла имеют одинаковую физическую длину. Если в программе определены логические записи переменной длины, то занимаемое каждым физическим записям в файле пространство будет соответствовать максимальному возможному пространству, а поле длины логической записи будет содержать количество байтов данных в записи, которые фактически используются.

Данная организация файлов была разработана для поддержки как последовательной, так и произвольной обработки. С файлом RELATIVE, можно напрямую читать или записывать запись 100, не читая или не записывая предварительно записи с номерами 1-99. Система выполнения GnuCOBOL использует заданный программой максимальный размер записи для вычисления относительной байтовой позиции в файле, где начинаются заголовок записи и данные, а затем передаёт необходимые данные в программу или из программы.

При записи файла программой GnuCOBOL никакая последовательность разделителей к данным не добавляется, но в начало каждого физического файла добавляется поле длины записи.

При чтении файла данные передаются в программу точно так же, как они существуют в файле.

Следует принять меры, чтобы программы, читающие такой файл, описывали записи, длина которых точно соответствует длине, используемой программами, которые создали файл. Плохо, если библиотека GnuCOBOL runtime интерпретирует четырёхбайтовую строку ASCII символов как длину записи при передаче данных из файла в программу!

Рекомендация: используйте копибук для описания структуры записей любого файла; это гарантирует, что несколько программ, обращающихся к этому файлу, будут «видеть» одни и те же размеры и структуры записей, закодировав оператор COPY, (см. COPY) для импорта структуры записи, а не кодируя её вручную.

Эти файлы могут содержать точные бинарные поля данных. Содержимое полей записи не имеет значения для процесса чтения, так как нет разделителя конца записи.

ORGANIZATION INDEXED

Это самая продвинутая структура файлов, доступная для программ GnuCOBOL. Невозможно описать физическую структуру таких файлов, поскольку она будет зависеть от того, какие средства управления файлами были включены в сборку GnuCOBOL, которую вы будете использовать (Berkeley Database [BDB], VBISAM и т. д.). Вместо этого мы обсудим логическую структуру файла.

Для файла INDEXED будет храниться несколько структур. Первая будет компонентом данных, который можно представить как аналогичный внутренней структуре файла с относительным адресом. Однако к записям данных нельзя получить прямой доступ по их номеру записи, как в случае с файлом с относительным адресом, и их нельзя обработать последовательно по их физической последовательности в файле.

Остальные структуры будут одним или несколькими компонентами индексов. Компонент индекса — это структура данных, которая (как-то) позволяет преобразовать содержимое поля, называемого первичным ключом, в каждой записи данных (номер клиента, номер сотрудника, код продукта, имя и т. д.), в номер записи, чтобы запись данных для любого заданного значения первичного ключа можно было непосредственно читать, записывать и/или удалять. Кроме того, структура данных индекса определена таким образом, чтобы позволить обрабатывать файл последовательно, запись за записью, в возрастающей последовательности значений поля первичного ключа. То, существует ли эта структура индекса в виде структуры двоичного поиска (b-дерево), сложной структуры хешей или чего-то еще, практически не имеет значения для программиста — поведение структуры будет таким, как только что описано. Фактический используемый механизм будет зависеть от пакета расширенного управления файлами, включенного в вашу реализацию GnuCOBOL при её построении.

Система выполнения не позволит записывать две записи в индексированный файл с одинаковым значением первичного ключа.

Существует возможность определения дополнительного поля в качестве так называемого альтернативного ключа. Поля альтернативных ключей ведут себя так же, как первичные ключи, позволяя осуществлять как прямой, так и последовательный доступ к данным записи на основе значений поля альтернативного ключа, за исключением одного момента. Это тот факт, что альтернативным ключам может быть разрешено иметь дублирующие значения, в зависимости от того, как альтернативное поле ключа описано компилятору GnuCOBOL.

Может быть любое количество альтернативных ключей, но каждое поле ключа имеет свою цену в занимаемом дисковом пространстве, а также цену во времени выполнения. По мере увеличения количества полей альтернативных ключей запись и/или изменение записей в файле будет занимать всё больше и больше времени.

Эти файлы могут содержать поля точных двоичных данных. Содержимое полей записи не имеет значения для процесса чтения, так как нет разделителя конца записи.

Все файлы изначально описываются программе GnuCOBOL с помощью оператора SELECT (см. SELECT). Помимо определения имени, по которому файл будет ссылаться внутри программы, оператор SELECT будет указывать имя и путь, по которому файл будет известен операционной системе, вместе с его атрибутами организации, блокировки и совместного использования.

Описание файла в FILE SECTION (см. РАЗДЕЛ ФАЙЛОВ) определит структуру записей внутри файла, включая возможность переменной длины записей и, если это возможно, минимальную и максимальную длину. Кроме того, запись описания файла может указывать размеры блоков ввода-вывода файла.

2.1.9. Обработка таблиц

В других языках программирования есть массивы; в COBOL есть таблицы. По сути, это одно и то же. В языке COBOL есть два специальных оператора — SEARCH и SEARCH ALL — которые упрощают поиск данных в таблице.

SEARCH выполняет последовательный поиск в таблице, останавливаясь только тогда, когда найдена запись таблицы, соответствующая одному из любого количества условий поиска, или когда все записи таблицы были проверены по критериям поиска и ни одна из них не соответствовала ни одному из этих критериев.

SEARCH ALL выполняет чрезвычайно быстрый поиск в отсортированной по ключевому полю таблице, содержащейся в каждой записи таблицы. Алгоритм, используемый для такого поиска, — это двоичный поиск. Алгоритм гарантирует, что для поиска желаемой записи или определения того, что желаемой записи в таблице нет, необходимо проверить лишь небольшое количество записей в таблице. Чем больше таблица, тем эффективнее этот поиск. Например, двоичный поиск в таблице, содержащей 32 768 записей, найдёт конкретную запись или определит, что её нет, проверив не более пятнадцати (15) записей! Алгоритм подробно описан в документации оператора SEARCH ALL (см. SEARCH ALL).

Наконец, COBOL имеет возможность выполнять сортировку данных в таблице на месте.

2.1.10. Сортировка и слияние данных

Язык COBOL включает мощный оператор SORT, который может сортировать большие объемы данных по произвольно сложным структурам ключей. Эти данные могут поступать из программы или содержаться в одном или нескольких внешних файлах. Отсортированные данные могут быть автоматически записаны в один или несколько выходных файлов или обработаны по записи в отсортированной последовательности.

Сопутствующее утверждение — MERGE — может объединить содержимое нескольких файлов, при условии, что все эти файлы предварительно отсортированы похожим образом по той же структуре ключей. Результирующий вывод будет состоять из содержимого всех входных файлов, объединенных вместе и упорядоченных в соответствии с общей структурой ключей. Вывод, сгенерированный утверждением MERGE, может быть автоматически записан в один или несколько выходных файлов или может быть обработан внутри программы.

Существует специальная форма утверждения SORT, предназначенная для сортировки данных, находящихся в таблице. Это особенно полезно, если вы хотите использовать SEARCH ALL для работы с таблицей.

2.1.11. Обработка строк

Были разработаны языки программирования, специально предназначенные для обработки текстовых строк, и были разработаны языки программирования, предназначенные исключительно для выполнения сложных числовых вычислений. Большинство языков программирования занимают промежуточное положение.

COBOL не является исключением, хотя он включает некоторые очень мощные возможности работы со строками; GnuCOBOL фактически обладает еще большими возможностями обработки строк, чем многие другие реализации COBOL. Ниже приводится краткое описание возможностей обработки строк в GnuCOBOL:

Конкатенация двух или более строк

• CONCATENATE встроенная функция (см. CONCATENATE).
• STRING оператор (см. STRING).

Преобразование числового времени или даты в отформатированную строку символов

• LOCALE-TIME встроенная функция (см. LOCALE-TIME).
• LOCALE-DATE встроенная функция (см. LOCALE-DATE).

Преобразование двоичного значения в соответствующий символ в наборе символов программы

• CHAR встроенная функция (см. CHAR). Добавить 1 к аргументу перед вызовом функции; описание CHAR встроенной функции представляет технику использования оператора MOVE, которая позволит добиться того же результата без необходимости предварительного добавления 1 к числовому значению аргумента.

Преобразование строковой переменной в нижний регистр

• LOWER-CASE встроенная функция (см. LOWER-CASE).
• C$TOLOWER встроенная системная подпрограмма (см. C$TOLOWER).
• CBL_TOLOWER встроенная системная подпрограмма (см. CBL_TOLOWER).

Преобразование строковой переменной в верхний регистр

• UPPER-CASE встроенная функция (см. UPPER-CASE).
• C$TOUPPER встроенная системная подпрограмма (см. C$TOUPPER).
• CBL_TOUPPER встроенная системная подпрограмма (см. CBL_TOUPPER).

Преобразование строковой переменной в набор только печатных символов

• C$PRINTABLE встроенная системная подпрограмма (см. C$PRINTABLE).

Преобразование символа в его числовое значение в наборе символов программы

• ORD встроенная функция (см. ORD). Вычесть 1 из результата; описание ORD встроенной функции представляет технику использования оператора MOVE, которая позволит добиться того же результата без необходимости предварительного добавления 1 к числовому значению аргумента.

Подсчёт вхождений подстрок в большей строке

• INSPECT оператор (см. INSPECT) с TALLYING оговоркой.

Декодирование отформатированной числовой строки в числовое значение

• NUMVAL встроенная функция (см. NUMVAL).
• NUMVAL-C встроенная функция (см. NUMVAL-C).

Определение длины строки или элемента данных, способного хранить строки

• LENGTH встроенная функция (см. LENGTH).
• BYTE-LENGTH встроенная функция (см. BYTE-LENGTH).

Извлечение подстроки из строки на основе её начальной позиции символа и длины

• Использование модификатора ссылки для поля строки - См. Модификаторы ссылок.

Форматирование числового элемента для вывода, включая разделители тысяч (‘,’ в США), знаки валюты (‘$’ в США), десятичные точки, знаки кредита/дебета, ведущие или хвостовые знаки

• MOVE оператор (см. MOVE) с применением редактирования символов формата к принимаемому полю:

Выравнивание (слева, справа или по центру) поля строки

• C$JUSTIFY встроенная системная подпрограмма (см. C$JUSTIFY).

Моноалфавитное замещение одного или нескольких символов в строке другими символами

• INSPECT оператор (см. INSPECT) с CONVERTING.
• TRANSFORM оператор (см. TRANSFORM).
• SUBSTITUTE встроенная функция (см. SUBSTITUTE).
• SUBSTITUTE-CASE встроенная функция (см. SUBSTITUTE-CASE).

Разбор строки, разделение её на подстроки на основе одной или нескольких разделяющих последовательностей символов¹

• UNSTRING оператор (см. UNSTRING).

Удаление начальных или конечных пробелов из строки

• TRIM встроенная функция (см. TRIM).

Замена одной подстроки на другую одинаковой длины, исходя из начальной позиции и длины подстрок

• MOVE оператор (см. MOVE) с модификатором ссылки на поле “приёмника” (см. Модификаторы ссылок).

Замена одной или нескольких подстрок в строке на строки-заменители той же длины, независимо от их расположения

• INSPECT оператор (см. INSPECT) с REPLACING оговоркой.
• SUBSTITUTE встроенная функция (см. SUBSTITUTE).
• SUBSTITUTE-CASE встроенная функция (см. SUBSTITUTE-CASE).

Замена одной или нескольких подстрок в строке на строки-заменители потенциально разной длины, независимо от их расположения

• SUBSTITUTE встроенная функция (см. SUBSTITUTE).
• SUBSTITUTE-CASE встроенная функция (см. SUBSTITUTE-CASE).

2.1.12. Функции форматирования экрана

Стандарт COBOL2002 формализует расширения языка COBOL, позволяющие определять и обрабатывать текстовые экраны, как это типично для компьютеров мэйнфреймов и мидфреймов, а также для многих систем продаж (например, «кассовых аппаратов»). GnuCOBOL реализует практически все функции обработки экрана, описанные в COBOL2002.

Эти функции позволяют отображать поля в определённых позициях строки/столбца, назначать различные цвета и атрибуты видео полям экрана и обнаруживать нажатие определённых функциональных клавиш (F1, F2 и т. д.). Всё это происходит благодаря использованию SCREEN SECTION (см. РАЗДЕЛ ЭКРАНА) и специальных форматов оператора ACCEPT (см. ACCEPT) и оператора DISPLAY (см. DISPLAY).

Стандарт COBOL2002, а следовательно, и GnuCOBOL, охватывает только экраны текстового пользовательского интерфейса (TUI) (состоящие из символов ASCII, представленных с помощью различных визуальных атрибутов), а не более продвинутые возможности графического пользовательского интерфейса (GUI) для проектирования и обработки экранов, встроенные в большинство современных операционных систем. Доступны пакеты подпрограмм, которые могут обеспечить полное представление GUI — большинство из них может вызываться программами GnuCOBOL с умеренными временными затратами на исследование (например, Tcl/Tk) — но ни один из них в настоящее время не включён в GnuCOBOL.

2.1.12.1. Пример экрана

Пример экрана, созданный программой GnuCOBOL:

================================================================================
 GCic (2014/01/02 11:24) GnuCOBOL 2.1 23NOV2013 Interactive Compilation
+------------------------------------------------------------------------------+
: Filename: GCic.cbl                                                           :
: Folder:   E:\Programs\GCic\2013-11-23                                        :
+------------------------------------------------------------------------------+
 Set/Clr Switches Via F1-F9; Set Config Via F12; ENTER Key Compiles; ESC Quits
+------------------------------------------------------------------------------+
: F1  Assume WITH DEBUGGING MODE  F6 >"FUNCTION" Is Optional      : Current    :
: F2  Procedure+Statement Trace   F7 >Enable All Warnings         : Config:    :
: F3  Make a Library (DLL)        F8  Source Is Free-Format       : DEFAULT    :
: F4  Execute If Compilation OK   F9 >No COMP/BINARY Truncation   :            :
: F5  Listing Off                                                 :            :
+------------------------------------------------------------------------------+
 Extra "cobc" Switches, If Any ("-save-temps=xxx" Prevents Listings):
+------------------------------------------------------------------------------+
: ____________________________________________________________________________ :
: ____________________________________________________________________________ :
+------------------------------------------------------------------------------+
 Program Execution Arguments, If Any:
+------------------------------------------------------------------------------+
: ____________________________________________________________________________ :
: ____________________________________________________________________________ :
+------------------------------------------------------------------------------+
 GCic for Windows/MinGW Copyright (C) 2009-2014, Gary L. Cutler, GPL
================================================================================

Вышеприведённый экран был создан интерактивным компилятором GnuCOBOL или GCic. См. GCic в Примеры программ GnuCOBOL для просмотра исходного кода и списка перекрестных ссылок этой программы. Версии этого документа в формате PDF будут включать фактическое графическое изображение этого примера экрана.

Экраны определяются в разделе экрана раздела данных. После определения экраны используются во время выполнения с помощью операторов ACCEPT и DISPLAY.

2.1.12.2. Цветовая палитра и атрибуты видео

GnuCOBOL поддерживает следующие спецификации визуальных атрибутов в SCREEN SECTION (см. РАЗДЕЛ ЭКРАНА):

Цвет

Для фона (экрана) и переднего плана (текста) любой ячейки строки/столбца на экране можно указать восемь (8) различных цветов. Цвета задаются числом, хотя в справочнике, поставляемом со всеми дистрибутивами GnuCOBOL (screenio.cpy), определены COB-COLOR-xxxxxx имена для различных цветов, поэтому их можно указать более осмысленным именем, а не числом. Восемь цветов по номерам с соответствующими именами констант, определенными в screenio.cpy, приведены ниже:

Black

COB-COLOR-ЧЁРНЫЙ

Blue

COB-COLOR-СИНИЙ

Green

COB-COLOR-ЗЕЛЁНЫЙ

Cyan

COB-COLOR-ГОЛУБОЙ

Red

COB-COLOR-КРАСНЫЙ

Magenta

COB-COLOR-ПУРПУРНЫЙ

Yellow

COB-COLOR-ЖЁЛТЫЙ

White

COB-COLOR-БЕЛЫЙ

Яркость текста

Для текста поддерживаются три уровня яркости — низкая (тусклый), нормальная и высокая (яркий). Не все реализации GnuCOBOL поддерживают все три уровня (некоторые рассматривают низкую яркость как нормальную). Решающим фактором для определения того, поддерживаются два или три уровня, является версия пакета curses, используемого. Это утилитарный пакет ввода-вывода на экране, который включён в библиотеку выполнения GnuCOBOL при сборке программного обеспечения GnuCOBOL.

Как общее правило, реализации для Windows поддерживают два уровня, а для Unix — все три.

Мигание

Это тоже функция видео, которая зависит от пакета curses, встроенного в вашу версию GnuCOBOL. Если мигание включено в этом пакете, текст, отображаемый в полях, определённых в разделе экрана как мигающий, будет бесконечно циклировать между наиболее яркой настройкой (высокая яркость) и «невидимым» режимом, где цвет текста соответствует цвету фона поля. В сборках для Windows, которые обычно используют пакет «pcurses», используется более яркий, чем обычно, цвет фона для обозначения «мигания».

Обратный видеорежим

Этот атрибут видео просто меняет местами цвета переднего и заднего плана и параметры отображения.

Обводка поля

Если это поддерживается используемым пакетом curses, возможно рисование границ по верхнему, левому и/или нижнему краю поля.

Защищённый ввод

По желанию, поля экрана, используемые как поля ввода, могут быть определены как «защищённые», где каждый введённый символ (независимо от того, что было фактически введено) будет отображаться как символ звёздочка (*). Фактический символ, клавиша которого была нажата, всё равно будет сохранён в поле в программе. Это очень полезно для полей паролей или номеров счетов.

Символ подсказки

В поля ввода можно поместить любой символ в качестве заполнителя. Эти символы заполнителя предоставляют визуальное представление размера поля ввода и автоматически преобразуются в пробелы при обработке поля ввода программой. Если для поля ввода не определён такой символ, будет предполагаться подчёркивание (‘_’).

2.1.13. Функции генератора отчетов

GnuCOBOL включает реализацию системы управления генерацией отчетов (RWCS). Модуль генератора отчетов был полностью реализован в версии 3.0. Это стандартная, необязательная дополнительная функция языка COBOL, которая автоматизирует многие механизмы, связанные с генерацией печатных отчетов:

1. Управление постраничной разбивкой отчетов, включая:
   1. Автоматическое создание однократного сообщения на первой странице отчета (заголовок отчета).
   2. Создание нуля или более заголовков на каждой странице отчета (заголовок страницы).
   3. Создание нуля или более подвалов на каждой странице отчета (подвал страницы).
   4. Автоматическое нумерование печатных страниц.
   5. Форматирование строк отчета, составляющих основную часть отчета (детали).
   6. Полное отслеживание того, где «перо» собирается «писать» на текущей странице, что автоматически вызывает перенос на новую страницу, а также автоматическое создание подвала страницы для закрытия старой страницы и/или заголовка страницы для начала новой.
   7. Создание однократного сообщения в конце последней страницы отчета (подвал отчета).
2. Выполнение специальных действий по отчетности на основе того, что данные, используемые для генерации отчета, отсортированы по одному или нескольким ключевым полям:
   1. Автоматическое подавление отображения одного или нескольких полей данных из группы деталей, когда значение(я) поля(ей) дублирует(ют) те, что были в ранее сгенерированной группе деталей. Такие поля называются полями, указывающими на группу.
   2. Автоматическое повторное отображение подавленных полей, указывающих на группу деталей, если группа деталей печатается на новой странице.
   3. Определение, когда контрольные поля отчета — поля, связанные с теми, которые использовались в качестве SORT (см. SORT) ключей — изменились. Это известно как разрыв контроля. RWCS может автоматически выполнить следующие действия по отчетности при возникновении разрыва контроля:
      • Создание подвала, известного как подвал контроля, после строк деталей, которые имели то же старое значение для контрольного поля.
      • Создание заголовка, известного как заголовок контроля, перед строками деталей, которые имеют то же новое значение для контрольного поля.
3. Выполнение суммирования данных следующим образом:
   1. Автоматическое генерирование промежуточных итогов в контрольных и/или подвалах отчета, суммирующих значения любых полей в группе деталей.
   2. Автоматическое генерирование итоговых сумм в группах деталей. Это будут суммы двух или более значений, представленных в группе деталей.

Документация по REPORT SECTION (см. REPORT SECTION) описывает описание отчетов, а глава PROCEDURE DIVISION (см. PROCEDURE DIVISION) документирует различные языковые инструкции, которые фактически генерируют отчеты. Перед чтением этих документов, вам может быть полезно прочитать Использование Report Writer, который посвящен объединению всех элементов.

2.1.14. Инициализация данных

Существует три способа инициализации данных секции данных.

1. Когда программа или подпрограмма выполняется впервые, большая часть данных в ее секции данных будет инициализирована следующим образом:
   • Символьные и буквенные (т.е. текстовые) данные будут инициализированы значением SPACES.
   • Числовые данные будут инициализированы значением ZERO.
   • Элементы данных с явным VALUE (см. VALUE) в их определении будут инициализированы этим значением.

   У разных секций секции данных свои правила, когда происходят описанные выше действия — для получения дополнительной информации см. документацию по этим секциям.

   Эти правила по умолчанию для инициализации могут существенно отличаться в разных реализациях COBOL. Например, очень распространённым случаем является инициализация памяти секции данных всеми двоичными нулями, за исключением тех элементов данных, где присутствуют VALUE фрагменты. Будьте внимательны при работе с приложениями, изначально разработанными для другой реализации COBOL, чтобы убедиться, что правила инициализации по умолчанию GnuCOBOL не вызовут сбоев.

2. Программист может использовать оператор INITIALIZE (см. INITIALIZE) для инициализации любой группы или элемента данных в любое время. Данный оператор предоставляет больше вариантов инициализации, чем простые правила, указанные выше.
3. Когда оператор ALLOCATE (см. ALLOCATE) используется для выделения элемента данных или просто для выделения области памяти заданного размера на ALLOCATE, это выделение может происходить с инициализацией или без неё, в соответствии с потребностями программиста.

2.1.15. Конвенции диаграмм синтаксиса

Синтаксис языка GnuCOBOL будет описан в специальных диаграммах синтаксиса, используя следующие технические приёмы описания синтаксиса:

MANDATORY-RESERVED-WORD

~~~~~~~~~~~~~~~~~~~~~~~

Зарезервированные слова языка COBOL будут отображаться заглавными буквами. Когда они подчеркнуты, как это слово, они являются обязательными зарезервированными словами.

OPTIONAL-RESERVED-WORD

Когда зарезервированные слова отображаются без подчеркивания, как это, они являются необязательными; такие зарезервированные слова доступны в синтаксисе языка только для повышения читабельности — их присутствие или отсутствие не влияет на программу.

ABBREVIATION

~~~~

Когда подчеркнута только часть зарезервированного слова, это означает, что слово можно ввести в полном виде или сократить до подчеркнутой части.

substitutable-items

Общие термины, представляющие определяемые пользователем заменяемые элементы, будут полностью отображаться строчными буквами в диаграммах синтаксиса. Когда такие элементы упоминаются в тексте, они будут отображаться как заменяемые-элементы.

Complex-Syntax-Clause

Элементы, отображаемые в смешанном регистре в диаграмме синтаксиса, представляют собой сложные предложения других синтаксических элементов, которые могут появиться в этом месте. Некоторые синтаксические конструкции COBOL довольно сложны, и использование такой условной записи значительно упрощает диаграммы синтаксиса. Когда такие элементы упоминаются в тексте, они отображаются как Сложное-синтаксическое-предложение.

[ ]

Метасимволы квадратных скобок в диаграммах синтаксиса отображают синтаксис языка, который является необязательным. Сами символы [] не должны быть введены. Если диаграмма синтаксиса содержит «a [b] c», то элементы синтаксиса «a» и «c» являются обязательными, но элемент «b» — необязательным.

|

Метасимволы вертикальной черты в диаграммах синтаксиса отображают простые варианты. Сам символ | не должен быть введён. Если диаграмма синтаксиса содержит «a|b|c», должен быть выбран ровно один из элементов «a», «b» или «c».

{ xxxxxx }

{ yyyyyy }

{ zzzzzz }

Вертикальный список элементов, ограниченный несколькими фигурными скобками, является ещё одним способом обозначения выбора между рядом элементов, где должен быть выбран ровно один элемент. Эта форма используется для отображения выбора, когда один или несколько вариантов являются более сложными, чем просто одно слово, или когда вариантов слишком много, чтобы представить их горизонтально с метасимволами «|».

| xxxxxx |

| yyyyyy |

| zzzzzz |

Вертикальный список элементов, ограниченный несколькими символами вертикальной черты, обозначает выбор между рядом элементов, где можно выбрать один или несколько вариантов.

...

Последовательность метасимволов ... указывает, что синтаксический элемент, непосредственно предшествующий ей, может повторяться. Сама последовательность ... не должна быть введена. Если диаграмма синтаксиса содержит a b... c, синтаксический элемент «a» должен следовать за по крайней мере одним элементом «b» (возможно, более чем одним), и вся последовательность должна завершаться синтаксическим элементом «c».

{ }

Метасимволы фигурные скобки («{» и «}») могут использоваться для группирования последовательности синтаксических элементов вместе, чтобы они могли обрабатываться как единое целое. Сами символы {} не должны быть введены. Обычно они используются в сочетании с метасимволами «|» или «...».

$*^()-+=:"'<,>./

Любой из этих символов, появляющихся в диаграмме синтаксиса, должен интерпретироваться буквально, и являются символами, которые должны быть введены — где это разрешено — в предложении, формат которого описывается. Обратите внимание, что символ «.» — это буквальный символ, который должен быть введён в предложении, а символ «...» — это упомянутая выше метасимвольная последовательность.

2.1.16. Формат строк программного кода

До стандарта COBOL2002, строки исходного кода в программах COBOL были структурированы вокруг 80-колонных перфокарт. Это означает, что каждая строка исходного кода программы COBOL состояла из пяти различных «областей», определённых по номеру(ам) колонки.

Начиная со стандарта COBOL2002, теперь существует второй режим для кода COBOL — в этом режиме операция, строки COBOL могут иметь длину до 255 символов без каких-либо конкретных требований к тому, что должно отображаться в определённых колонках.

Конечно, в соответствии с долгой традицией COBOL по поддержанию обратной совместимости со старыми стандартами, программисты (и, конечно же, совместимые компиляторы COBOL) способны работать в любом из этих режимов. Даже возможно переключаться между ними в одной программе. Термины Режим фиксированного формата и Режим свободного формата используются для обозначения этих двух режимов форматирования исходного кода.

Компилятор GnuCOBOL (cobc) поддерживает оба этих режима форматирования строк исходного кода, по умолчанию используя режим фиксированного формата, если нет другой информации.

Компилятор можно настроить на работу в любом из этих режимов четырьмя способами:

1. Используя переключатель компилятора — используйте переключатель -fixed для запуска в режиме фиксированного формата (запомните, что это значение по умолчанию) или переключатель -free для запуска в режиме свободного формата.
2. Вы можете использовать SOURCEFORMAT AS FIXED и SOURCEFORMAT AS FREE пункты директивы >>SET CDF (см. >>SET) в вашем исходном коде для переключения в режим фиксированного или свободного формата соответственно.
3. Вы можете использовать >>FORMAT IS FIXED и FORMAT IS FREE пункты директивы >>DEFINE CDF (см. >>DEFINE) в вашем исходном коде для переключения в режим фиксированного или свободного формата соответственно.
4. Вы можете использовать директиву >>SOURCE CDF (см. >>SOURCE) для переключения в режим свободного формата (>>SOURCE FORMAT IS FREE) или фиксированного формата (%%%CODE_BLOCK_148%%).

Используя методы 2-4 выше, вы можете переключаться между двумя форматами по своему желанию.

Последние три варианта выше являются эквивалентными; все три поддерживаются GnuCOBOL, чтобы сохранить совместимость исходного кода с широким спектром других реализаций COBOL. Во всех трёх случаях, если компилятор в настоящее время находится в режиме фиксированного формата, >> должен начинаться со столбца 8 или дальше, при условии, что ни одна часть директивы не выходит за пределы столбца 72. Если компилятор в настоящее время находится в режиме свободного формата, >> может появляться в любом столбце, при условии, что ни одна часть директивы не выходит за пределы столбца 255.

В зависимости от режима исходного формата, в котором находится компилятор, вам необходимо будет следовать различным правилам для текущего режима формата. Эти правила представлены в следующих абзацах.

В следующем обсуждении представлены различные компоненты каждой строки исходного кода GnuCOBOL, когда компилятор работает в режиме фиксированного формата. Помните, что это режим по умолчанию для компилятора GnuCOBOL.

1-6

Область номера последовательности

Исторически, во времена, когда для подачи исходного кода программы COBOL в компилятор COBOL использовались перфокарты, эта часть оператора COBOL была зарезервирована для шестизначного порядкового номера. Хотя содержимое этой области игнорируется компиляторами COBOL, оно существовало для того, чтобы программа, фактически пробитая на карточках с 80 символами, — если бы колода карт упала на пол, — могла быть обработана сортировщиком карт и восстановлена в правильной последовательности. Конечно, это не нужно сегодня; если говорить откровенно, это уже давно не нужно.

См. Отметка изменений в программах для обсуждения ценного использования области порядкового номера сегодня.

7

Область индикатора

Столбец 7 служит индикатором, в котором будет отображаться одно из пяти возможных значений — пробел, D (или d), - (тире), / или *. Значения этих символов следующие:

пробел

Нет специального значения — это обычный символ, который будет отображаться в этой области.

D/d

Строка содержит действительное утверждение GnuCOBOL, которое обычно обрабатывается как комментарий, если программа не компилируется в режиме отладки.

*

Строка является комментарием.

/

Строка является комментарием, который также заставит компилятор перейти на новую страницу в списке компиляции. Хотя GnuCOBOL будет учитывать такую строку как комментарий, он не будет подавать сигнал перехода на новую страницу при генерации списка.

-

Строка является продолжением предыдущей строки. Они необходимы только в том случае, если алфавитно-цифровое литерал (строка символов в кавычках), ключевое слово или определенное пользователем слово разбиты на несколько строк.

8-11

Область A

Заголовки разделов языка DIVISION, SECTION и параграфов должны начинаться в области A, а также номера уровней 01, 77 в записях описания данных и заголовки файлов FD и SD и описания SORT.

12-72

Область B

Все другие компоненты языка программирования COBOL кодируются в этих столбцах.

73-80

Область имени программы

Это еще одна устаревшая область операторов COBOL. Эта часть каждого оператора также восходит ко временам, когда программы пробивались на картах; ожидалось, что имя программы (или, по крайней мере, первые 8 символов) будут пробиты здесь, чтобы — если колода исходного кода COBOL содержала более одной программы — этот удобный сортировщик карт мог использоваться для предварительного разделения карт по имени программы, а затем для сортировки по порядковому номеру. Сегодняшние компиляторы COBOL (включая GnuCOBOL) просто игнорируют все, что находится за пределами столбца 72.

См. Отметка изменений в программах для обсуждения ценного использования области имени программы сегодня.

2.1.17. Структура программы

Полный синтаксис программы GnuCOBOL

 [ IDENTIFICATION DIVISION. ]
   ~~~~~~~~~~~~~~~~~~~~~~~
   PROGRAM-ID|FUNCTION-ID.  name-1 [ Program-Options ] .
   ~~~~~~~~~~ ~~~~~~~~~~~
 [ ENVIRONMENT DIVISION. ]
   ~~~~~~~~~~~ ~~~~~~~~
 [ CONFIGURATION SECTION. ]
   ~~~~~~~~~~~~~ ~~~~~~~
 [ SOURCE-COMPUTER.         Compilation-Computer-Specification . ]
   ~~~~~~~~~~~~~~~
 [ OBJECT-COMPUTER.         Execution-Computer-Specification . ]
   ~~~~~~~~~~~~~~~
 [ REPOSITORY.              Function-Specification... . ]
   ~~~~~~~~~~
 [ SPECIAL-NAMES.           Program-Configuration-Specification . ]
   ~~~~~~~~~~~~~
 [ INPUT-OUTPUT SECTION. ]
   ~~~~~~~~~~~~ ~~~~~~~
 [ FILE-CONTROL.            General-File-Description... . ]
   ~~~~~~~~~~~~
 [ I-O-CONTROL.             File-Buffering-Specification... . ]
   ~~~~~~~~~~~
 [ DATA DIVISION. ]
   ~~~~~~~~~~~~~
 [ FILE SECTION.            Detailed-File-Description... . ]
   ~~~~~~~~~~~~
 [ WORKING-STORAGE SECTION. Permanent-Data-Definition... . ]
   ~~~~~~~~~~~~~~~ ~~~~~~~
 [ LOCAL-STORAGE SECTION.   Temporary-Data-Definition... . ]
   ~~~~~~~~~~~~~ ~~~~~~~
 [ LINKAGE SECTION.         Subprogram-Argument-Description... . ]
   ~~~~~~~ ~~~~~~~
 [ REPORT SECTION.          Report-Description... . ]
   ~~~~~~ ~~~~~~~
 [ SCREEN SECTION.          Screen-Layout-Definition... . ]
   ~~~~~~ ~~~~~~~
   PROCEDURE DIVISION [ { USING Subprogram-Argument...      } ]
   ~~~~~~~~~ ~~~~~~~~   { ~~~~~                             }
                        { CHAINING Main-Program-Argument... }
                          ~~~~~~~~
                      [   RETURNING identifier-1 ] .
 [ DECLARATIVES. ]        ~~~~~~~~~
   ~~~~~~~~~~~~
 [ Event-Handler-Routine... . ]
 [ END DECLARATIVES. ]
   ~~~ ~~~~~~~~~~~~
   General-Program-Logic
 [ Nested-Subprogram... ]
 [ END PROGRAM|FUNCTION name-1 ]
   ~~~ ~~~~~~~ ~~~~~~~~

Каждая программа состоит из до четырёх разделов (крупных группировок разделов, параграфов и описаний или процедурных кодов, которые все относятся к одной общей цели), именованных Идентификация, Окружение, Данные и Процедура.

1. Не все разделы необходимы в каждой программе, но они должны быть указаны в том порядке, в котором используются.
2. Следующие пункты относятся к разделу идентификации
   • Заголовок IDENTIFICATION DIVISION. всегда является необязательным.
3. Следующие пункты относятся к разделу среды:
   • Если оба необязательных раздела этого раздела закодированы, они должны быть закодированы в показанном порядке.
   • Каждый из этих разделов состоит из ряда специфических параграфов (SOURCE-COMPUTER и OBJECT-COMPUTER, например). Каждый из этих параграфов выполняет определенную функцию. Если для цели, которую выполняет один из параграфов, не требуется код, весь параграф можно опустить.
   • Если ни один из параграфов в одном из разделов не закодирован, сам заголовок раздела можно опустить.
   • Параграфы в каждом разделе могут быть закодированы только в этом разделе, но могут быть закодированы в любом порядке.
   • Если ни один из разделов в разделе среды не закодирован, сам заголовок ENVIRONMENT DIVISION. можно опустить.
4. Следующие пункты относятся к разделу данных:
   • Раздел данных состоит из шести необязательных разделов — при использовании эти разделы должны быть закодированы в порядке, показанном на диаграмме синтаксиса.
   • Каждый из этих разделов состоит из кода, который выполняет определенную функцию. Если для цели, которую выполняет один из этих разделов, не требуется код, весь раздел, включая его заголовок, можно опустить.
   • Если ни один из разделов в разделе данных не закодирован (высоко маловероятная, но теоретически возможная ситуация), сам заголовок DATA DIVISION. можно опустить.
5. Следующие пункты относятся к разделу обработки:
   • Как и в других разделах, раздел обработки может состоять из разделов, а эти разделы, в свою очередь, могут состоять из параграфов. В отличие от других разделов, однако, имена разделов и параграфов определяются программистом, и их вообще может не быть, если программист этого пожелает.
   • Каждая обработка событий будет отдельным разделом, посвященным перехвату определенного события во время выполнения. Если таких разделов не закодировано, строки DECLARATIVES. и END DECLARATIVES. могут быть опущены.
6. Один файл исходного кода COBOL может содержать:
   • Часть программы; эти файлы известны как копибуки
   • Одну программу. В этом случае утверждение END PROGRAM или END FUNCTION является необязательным.
   • Несколько программ, разделенных друг от друга операторами END PROGRAM или END FUNCTION. Последней программе в таком файле исходного кода не обязательно иметь оператор END PROGRAM или END FUNCTION.
7. Подпрограмма «B» может быть вложена в программу «A», включив исходный код программы B в конец раздела обработки программы A без промежуточного оператора END PROGRAM A. или END FUNCTION A.. На данный момент это всё, что будет сказано о вложении. Более подробную информацию см. в разделе Independent vs Contained vs Nested Subprograms.
8. Независимо от того, сколько программ составляют один файл исходного кода GnuCOBOL, при компиляции из этого файла будет сгенерирована только одна исполняемая программа.

2.1.18. Комментарии

В следующей информации описано, как можно встроить комментарии в исходный код программы GnuCOBOL для создания документации.

2.1.19. Литералы

Литералы — это постоянные значения, которые не изменятся во время выполнения программы. Существуют два основных типа литералов — числовые и алфавитно-цифровые.

2.1.19.1. Числовые литералыЧисловой литерал

• Целые числа, такие как 1, 56, 2192 или -54.
• Нецелые значения с фиксированной точкой, такие как 1.317 или -2.95.
• Значения с плавающей запятой, использующие обозначение ‘Enn’, такие как 9.92E25, представляющее 9.92 x 10²⁵ (10 в степени 25) или 5.7E-14, представляющее 5.7 x 10^-14 (10 в степени -14). И мантисса (число перед ‘E’), и экспонента (число после ‘E’) могут быть явно указаны как положительные (с ‘+’), отрицательные (с ‘-’) или без знака (и, следовательно, неявно положительные). Значение литерала с плавающей запятой должно быть в диапазоне от -1.7 x 10³⁰⁸ до +1.7 x 10³⁰⁸ с не более чем 15 десятичными цифрами точности.
• Шестнадцатеричные числовые литералы
• Литералы с нулевым завершением
• Сырая строка C, использующая L"characters".
• Двоичные, использующие B#0 или 1.
• Восьмеричные, использующие O#0 - 7. (Это буква ‘O’).
• Шестнадцатеричное число, использующее H# или X# ‘0’ - ‘F’.
• Булевы литералы (Стандарт) B" character ".
• Булевы литералы (Шестнадцатеричные) BX" hex character ".
• Национальные литералы (Стандарт) N" character " или NC" character ".
• Национальные литералы (Шестнадцатеричные) NX" character ".

2.1.19.2. Алфавитно-цифровые литералы

Алфавитно-цифровой литерал

Алфавитно-цифровой литерал не может быть использован в арифметических выражениях, пока не будет преобразован в его числовой вычислительный эквивалент; в GnuCOBOL есть три встроенные числовые функции преобразования, которые могут выполнить это преобразование — NUMVAL (см. NUMVAL), NUMVAL-C (см. NUMVAL-C) и NUMVAL-F (см. NUMVAL-F).

Алфавитно-цифровые литералы могут иметь любой из следующих форматов:

• Последовательность символов, заключенная в пару одинарных кавычек (‘'’)
• Литерал, образованный по тем же правилам, что и строковый литерал (выше), но с префиксом буквы ‘Z’ (строчная или прописная) представляет нуль-ограниченный строковый литерал. Эти литералы отличаются от обычных строковых литералов тем, что они будут явно завершены байтом с шестнадцатеричным значением 00. Эти Нуль-ограниченные алфавитно-цифровые литералы
• Шестнадцатеричный алфавитно-цифровой литерал

Алфавитно-цифровые литералы, слишком длинные для одной строки, могут быть продолжены на следующей строке двумя способами:

1. При использовании режима фиксированного формата, алфавитно-цифровое литерал может быть размещено до и включая столбец 72. Литерал может быть продолжен на следующей строке после столбца 11, добавив другую кавычку или апостроф (в зависимости от того, какой символ использовался для начала литерала). В строке продолжения также должен быть тире (-) .

         1         2         3         4         5         6         7   
1234567890123456789012345678901234567890123456789012345678901234567890123

       01  LONG-LITERAL-VALUE-DEMO     PIC X(60) VALUE "This is a long l
      -                                                "ong literal that
      -                                                " must be continu
      -                                                "ed.".

2. Независимо от того, работает ли компилятор в режиме фиксированного или свободного формата, GnuCOBOL позволяет разбивать алфавитно-цифровые литералы на отдельные фрагменты. Эти фрагменты имеют свои начальные и конечные кавычки/апострофы и «склеиваются» во время компиляции с использованием символа ‘&’

         1         2         3         4         5         6         7   
1234567890123456789012345678901234567890123456789012345678901234567890123

      01  LONG-LITERAL-VALUE-DEMO      PIC X(60) VALUE "This is a" &
                                        " long literal that must " &
                                                    "be continued.".

Если ваша программа использует режим свободного формата, нет необходимости продолжать длинные алфавитно-цифровые литералы, так как операторы могут быть длиной до 255 символов.

Числовые литералы могут быть разделены на строки так же, как и алфавитно-цифровые литералы, используя любой из указанных выше методов, а также зарезервированные и пользовательские слова могут быть разделены на строки (используя первый метод). Продолжение числовых литералов и пользовательских/зарезервированных слов предоставляется только для обеспечения совместимости со старыми версиями и программами COBOL, но не должно использоваться в новых программах — это просто делает программы непривлекательными для чтения.

2.1.19.3. Фигуративные константы

Фигуративные константы — это зарезервированные слова, которые могут использоваться в качестве литералов, где значение фигуративной константы может интерпретироваться как произвольно длинная последовательность соответствующих символов. Когда требуется определённая длина, например, в качестве аргумента подпрограммы, фигуративная константа не может быть использована. Таким образом, следующие примеры являются допустимыми:

05 FILLER                PIC 9(10) VALUE ZEROS.
   ...
MOVE SPACES TO Employee-Name

Но это недопустимо:

CALL "SUBPGM" USING SPACES

Ниже приведены фигуративные константы GnuCOBOL и их соответствующие значения.

ZERO

Эта фигуративная константа имеет значение численного 0 (ноль). ZEROS и ZEROES — синонимы ZERO.

SPACE

Эта фигуративная константа имеет значение одного или нескольких пробелов. SPACES — синоним SPACE.

QUOTE

Эта фигуративная константа имеет значение одного или нескольких символов двойной кавычки ("). QUOTES — синоним QUOTE.

LOW-VALUE

Эта фигуративная константа имеет значение одного или нескольких символов, занимающих самое низкое положение в наборе символов программы, как определено в параграфе OBJECT-COMPUTER (см. OBJECT-COMPUTER) или — если такое указание не было сделано — в наборе символов по умолчанию, используемом программой (как правило, это набор символов ASCII). LOW-VALUES — синоним LOW-VALUE.

Если используется набор символов ASCII без модификаций набора символов, значение фигуративной константы LOW-VALUES — символ ASCII NUL. Однако, поскольку наборы символов могут быть переопределены, не следует полагаться на это. Используйте вместо этого фигуративную константу NULL.

HIGH-VALUE

Эта фигуративная константа имеет значение одного или нескольких символов, занимающих самое высокое положение в наборе символов программы, как определено в параграфе OBJECT-COMPUTER или — если такое указание не было сделано — в наборе символов по умолчанию, используемом программой (как правило, это набор символов ASCII). HIGH-VALUES — синоним HIGH-VALUE.

NULL

Символ, состоящий только из нулевых битов (независимо от набора символов программы).

Программисты могут создавать свои собственные фигуративные константы с помощью пункта SYMBOLIC CHARACTERS (см. Symbolic-Characters-Clause) параграфа SPECIAL-NAMES (см. SPECIAL-NAMES).

2.1.20. Пунктуация

Запятая (‘,’)

Использование запятых может вызвать путаницу у компилятора COBOL, если в параграфе SPECIAL-NAMES (см. SPECIAL-NAMES) используется пункт DECIMAL POINT IS COMMA, как это может быть в Европе. Следующее утверждение, которое вызывает подпрограмму, передавая ей два аргумента (числовые константы 1 и 2):

В случае использования DECIMAL POINT IS COMMA будет интерпретироваться как вызов подпрограммы с одним аргументом (нецелое числовое литерал со значением 1 и 2 десятых). Поэтому лучше всегда следовать запятой пробелом.

Точка (‘.’)

Правила использования точек в процедурной части несколько сложны. Подробности см. в разделе Использование точек.

2.1.21. Взаимодействие с другими средами

С помощью оператора CALL программы COBOL могут вызывать другие программы COBOL, используемые в качестве подпрограмм. Это очень похоже на возможности связи между программами, предоставляемые другими языками программирования. В случае GnuCOBOL, функция CALL достаточно мощная, чтобы её можно было настроить так, чтобы программа GnuCOBOL могла взаимодействовать с API операционной системы, системы управления базами данных и библиотеки времени выполнения, даже если они не написаны на COBOL. См. GnuCOBOL Основные программы CALLing C Подпрограммы, чтобы посмотреть пример, как программа GnuCOBOL может вызывать подпрограмму на C, передавая информацию туда и обратно.

Тот факт, что GnuCOBOL поддерживает полнофункциональный двусторонний интерфейс с программами на C, означает, что — даже если вы не можете напрямую получить доступ к API библиотеки — вы всегда можете сделать это через небольшую программу-оболочку на C, которая CALL вызывается программой GnuCOBOL.

2.2. Язык COBOL - Расширенные методы

2.2.1. Ссылочные таблицы

COBOL использует скобки для указания индексов, используемых для ссылки на записи в таблице (таблицы в COBOL — это то, что другие языки программирования называют массивами).

Например, рассмотрите следующую структуру данных, которая определяет сетку символов размером 4 столбца × 3 строки:

01  GRID.
     05 GRID-ROW OCCURS 3 TIMES.
        10 GRID-COLUMN OCCURS 4 TIMES.
            15 GRID-CHARACTER       PIC X(1).

Если структура содержит следующую сетку символов:

A B C D
E F G H
I J K L

Тогда GRID-CHARACTER (2, 3) ссылается на символ ‘G’, а GRID-CHARACTER (3, 2) ссылается на символ ‘J’.

Индексы могут быть заданы как числовые (целочисленные) литералы, числовые (целочисленные) данные, данные, созданные с помощью целочисленных спецификаций без формата USAGE (см. USAGE), USAGE INDEX данных или арифметических выражений, результатом которых является ненулевое целое число.

В приведённых выше примерах запятая используется в качестве разделителя между двумя значениями индекса; точки с запятой (;) также являются допустимыми разделителями индексов, а также пробелы! Использование запятой или точки с запятой в такой ситуации технически необязательно, но по соглашению большинство программистов COBOL используют один из них. Использование отсутствия разделителя символов (кроме пробела) не рекомендуется, даже если это синтаксически правильно, так как такая практика может привести к трудночитаемому коду. Прочитать и понять GRID-CHARACTER(2 3), несложно, но это совсем другая история, когда пытаешься понять GRID-CHARACTER(I + 1 J / 3) (вместо GRID-CHARACTER(I + 1, J / 3)). Компилятор его принимает, но слишком много такого сделает мне плохо.

2.2.2. Квалификация имён данных

COBOL позволяет дублировать имена данных в программе, при условии, что к этим именам данных можно обратиться таким образом, чтобы сделать эти ссылки уникальными с помощью процесса, известного как квалификация.

Чтобы увидеть квалификацию в работе, рассмотрите следующие фрагменты двух записей данных, определённых в программе COBOL:

01  EMPLOYEE.                     01  CUSTOMER.
    05 MAILING-ADDRESS.               05 MAILING-ADDRESS.
       10 STREET        PIC X(35).       10 STREET        PIC X(35).
       10 CITY          PIC X(15).       10 CITY          PIC X(15).
       10 STATE         PIC X(2).        10 STATE         PIC X(2).
       10 ZIP-CODE.                      10 ZIP-CODE.
          15 ZIP-CODE-5 PIC 9(5).           15 ZIP-CODE-5 PIC 9(5).
          15 FILLER     PIC X(4).           15 FILLER     PIC X(4).

Теперь давайте рассмотрим проблему установки CITY части EMPLOYEE MAILING-ADDRESS на ‘Филадельфия’. Очевидно, MOVE 'Philadelphia' TO CITY не сработает, потому что компилятор не сможет определить, к какому из двух CITY полей вы хотите обратиться.

В попытке исправить проблему, мы могли бы квалифицировать ссылку на CITY как MOVE 'Philadelphia' TO CITY OF MAILING-ADDRESS.

К сожалению, этого тоже недостаточно, потому что это всё ещё недостаточно конкретизирует, к какому CITY мы обращаемся. Чтобы действительно определить, какой конкретный CITY вы хотите, нужно написать MOVE 'Philadelphia' TO CITY OF MAILING-ADDRESS OF EMPLOYEE.

Теперь нет никакой путаницы относительно того, какой CITY изменяется. К счастью, вам не нужно быть настолько конкретными; COBOL позволяет опустить промежуточные и ненужные уровни квалификации. Это позволяет MOVE 'Philadelphia' TO CITY OF EMPLOYEE хорошо справляться с задачей.

Если вам нужно квалифицировать ссылку на таблицу, сделайте это, записав что-то вроде identifier-1 OF identifier-2 ( subscript(s) ).

Зарезервированное слово IN может быть использовано вместо OF.

2.2.3. Модификаторы ссылок

Синтаксис модификатора ссылки (формат 1)

 identifier-1 [ OF|IN identifier-2 ] [ (subscript...) ] (start:[ length ])
                ~~ ~~

Синтаксис модификатора ссылки (формат 2)

 intrinsic-function-reference (start:[ length ])

Стандарт COBOL 1985 ввёл понятие модификатора ссылки для упрощения ссылок только на часть элемента данных; GnuCOBOL полностью поддерживает модификацию ссылки.

Значение start указывает начальную позицию символа, на которую ссылаются (положения символов начинаются с 1, а не с 0, как в некоторых языках программирования), а length указывает количество необходимых символов.

Если length не указан, предполагается значение, равное оставшимся позициям символов от start до конца identifier-1 или до конца возвращаемого значения функцией.

И start, и length могут быть указаны как целочисленные числовые литералы, целочисленные числовые данные или арифметические выражения с целочисленным значением.

Вот несколько примеров:

CUSTOMER-LAST-NAME (1:3)

Ссылка на первые три символа CUSTOMER-LAST-NAME.

CUSTOMER-LAST-NAME (4:)

Ссылка на все позиции символов CUSTOMER-LAST-NAME начиная с четвёртой.

FUNCTION CURRENT-DATE (5:2)

Ссылка на текущий месяц в виде двузначного числа. См. CURRENT-DATE для получения дополнительной информации.

Hex-Digits (Nibble + 1:1)

Предполагая, что Nibble — это числовой элемент данных со значением в диапазоне 0-15, а Hex-Digits — это PIC X(16) элемент данных со значением 0123456789ABCDEF, эта функция преобразует числовое значение в шестнадцатеричную цифру.

Table-Entry (6) (7:5)

Ссылка на символы с 7-го по 11-й (5 символов в общей сложности) в шестом вхождении Table-Entry.

Модификация ссылки может быть использована везде, где допустимо идентификатор, включая использование в качестве поля приёма в операторах, таких как MOVE (см. MOVE), STRING (см. STRING) и ACCEPT (см. ACCEPT), и не только.

2.2.4. Арифметические выражения

Синтаксис арифметического выражения

 Unary-Expression-1 { **|^ } Unary-Expression-2
                    {  *|/ }
                    {  +|- }

Синтаксис унарного выражения

 { [ +|- ] { ( Arithmetic-Expression-1 )          } }
 {         { [ LENGTH OF ] { identifier-1       } } }
 {         {   ~~~~~~ ~~   { literal-1          } } }
 {         {               { Function-Reference } } }
 { Arithmetic-Expression-2                          }

Арифметические выражения формируются с использованием четырёх категорий операций — возведение в степень, умножение и деление, сложение и вычитание, и указание знака.

В сложных выражениях, состоящих из нескольких операторов и операндов, применяется приоритет операций, согласно которому операции с более высоким приоритетом вычисляются первыми перед операциями с более низким приоритетом.

Как и в большинстве других языков программирования, программист всегда может использовать скобки для заключения подвыражений сложных выражений, которые должны быть вычислены перед другими подвыражениями, вместо того, чтобы следовать приоритету операторов.

В порядке убывания приоритета, ниже приведён анализ каждой категории операций:

Уровень 1 (Наивысший) — Указание унарного знака (+ и - с одним аргументом)

Унарный оператор «минус» (-) возвращает арифметическое отрицание своего единственного аргумента, фактически возвращая значение, являющееся произведением аргумента и -1.

Унарный оператор «плюс» (+) возвращает значение своего единственного аргумента, фактически возвращая значение, являющееся произведением аргумента и +1.

Уровень 2 — Возведение в степень (** или ^)

Значение левого аргумента возводится в степень, указанную правым аргументом. Допускаются нецелые степени. Операторы ^ и ** поддерживаются для обеспечения совместимости с программами, написанными для других реализаций COBOL.

Уровень 3 — Умножение (* и деление (/)

Оператор * вычисляет произведение левого и правого аргументов, а оператор / вычисляет значение левого аргумента, делённое на значение правого аргумента. Если правый аргумент имеет значение ноль, вычисление выражения будет преждевременно завершено до получения значения. Это может привести к ошибке программы во время выполнения.

Последовательность нескольких операций 3-го уровня (A * B / C, например) будет вычисляться в строгом порядке слева направо, если не используются скобки для управления порядком вычисления.

Уровень 4 — Сложение (+ или вычитание (+)

Оператор + вычисляет сумму левого и правого аргументов, а оператор - вычисляет значение правого аргумента, вычтенного из значения левого аргумента.

Последовательность нескольких операций 4-го уровня (A - B + C, например) будет вычисляться в строгом порядке слева направо, если не используются скобки для управления порядком вычисления.

Синтаксические правила COBOL, допускающие дефис (-) в именах элементов данных, могут привести к неоднозначности.

01  C        PIC 9 VALUE 5.
01  D        PIC 9 VALUE 2.
01  C-D      PIC 9 VALUE 7.
01  I        PIC 9 VALUE 0.
…
COMPUTE I=C-D+1

Оператор COMPUTE (см. COMPUTE) вычислит арифметическое выражение C-D+1 и сохранит результат в I.

Какое значение будет сохранено в I? Число 4, которое является результатом вычитания значения D (2) из значения C (5), а затем добавления 1? Или это будет число 8, которое равно значению добавления 1 к значению элемента данных C-D (7)?

Правильный ответ — 8 — значение элемента данных C-D плюс 1! Надеюсь, это и было предполагаемым результатом.

Компилятор GnuCOBOL фактически прошёл через следующий логический процесс принятия решений при генерации кода для оператора COMPUTE:

1. Существует ли элемент данных с именем C-D? Если да, то используйте его значение для последовательности символов C-D.
2. Если элемента данных C-D нет, то есть ли элементы данных C и D? Если нет, то оператор COMPUTE содержит ошибку. Если они есть, то будет сгенерирован код для вычитания значения D из C и добавления 1 к результату.

Если бы перед и/или после - было хотя бы одно пробельное пространство, неоднозначности не было бы — компилятор был бы вынужден использовать отдельные элементы данных C и D.

Чтобы избежать возможных неоднозначностей и улучшить читаемость программы, считается хорошей практикой программирования на COBOL всегда использовать по крайней мере один пробел слева и справа от каждого оператора в арифметических выражениях, а также символ = в операторе COMPUTE.

Вот несколько примеров того, как приоритет операций влияет на результаты арифметических выражений (все примеры используют числовые литералы для упрощения обсуждения).

Конечно, операнды арифметических выражений могут быть числовыми данными (любой USAGE, кроме POINTER или PROGRAM POINTER), а также числовыми литералами.

2.2.5. Условные выражения

Условные выражения определяют условия, при которых программа может выполнить действие или прекратить его. Таким образом, условные выражения возвращают значение TRUE или FALSE.

Существует семь типов условных выражений, которые рассматриваются в следующих разделах.

2.2.5.1. Имена условий

Это самые простые условия. Обратите внимание на следующий код:

05  SHIRT-SIZE               PIC 99V9.
    88 TINY                  VALUE 0 THRU 12.5
    88 XS                    VALUE 13 THRU 13.5.
    88 S                     VALUE 14, 14.5.
    88 M                     VALUE 15, 15.5.
    88 L                     VALUE 16, 16.5.
    88 XL                    VALUE 17, 17.5.
    88 XXL                   VALUE 18, 18.5.
    88 XXXL                  VALUE 19, 19.5.
    88 VERY-LARGE            VALUE 20 THRU 99.9.

Имена условий TINY, XS, S, M, L, XL, XXL, XXXL и VERY-LARGE будут иметь значения TRUE или FALSE на основе значений в родительском элементе данных (SHIRT-SIZE).

Программа, которая хочет проверить, может ли текущее значение SHIRT-SIZE быть классифицировано как XL, может закодировать это решение как комбинированное условие (самый сложный тип условного выражения), либо как:

IF SHIRT-SIZE = 17 OR SHIRT-SIZE = 17.5

- or -

IF SHIRT-SIZE = 17 OR 17.5

Или она может просто использовать имя условия XL следующим образом:

IF XL

2.2.5.2. Условия класса

Синтаксис условия класса

 identifier-1 IS [ NOT ] { NUMERIC          }
                   ~~~   { ~~~~~~~          }
                         { ALPHABETIC       }
                         { ~~~~~~~~~~       }
                         { ALPHABETIC-LOWER }
                         { ~~~~~~~~~~~~~~~~ }
                         { ALPHABETIC-UPPER }
                         { ~~~~~~~~~~~~~~~~ }
                         { OMITTED          }
                         { ~~~~~~~          }
                         { class-name-1     }

Условия класса оценивают тип данных, хранящихся в элементе данных.

1. Тест класса NUMERIC рассматривает только символы ‘0’, ‘1’, … , ‘9’ как числовые; только элемент данных, содержащий только цифры, пройдет тест класса NUMERIC. Пробелы, десятичные точки, запятые, знаки валюты, знаки плюс, минус и любые другие символы, кроме цифр, не пройдут тест класса NUMERIC.
2. Тест класса ALPHABETIC рассматривает только заглавные и строчные буквы, а также пробелы как алфавитные.
3. Условия класса ALPHABETIC-LOWER и ALPHABETIC-UPPER рассматривают только пробелы и соответствующие типы букв как допустимые для прохождения теста класса.
4. Опция NOT инвертирует значение условия TRUE/FALSE.
5. Обратите внимание, что то, что считается «буквой» (или заглавной/строчной буквой), может быть изменено с помощью спецификаций CHARACTER CLASSIFICATION в пункте OBJECT-COMPUTER (см. OBJECT-COMPUTER).
6. Только элементы данных, тип USAGE (см. USAGE) которых явно или неявно определен как DISPLAY, могут использоваться в условиях класса NUMERIC или любом из условий класса ALPHABETIC.
7. Некоторые реализации COBOL не позволяют использовать групповые элементы или PIC A элементы с условиями класса NUMERIC, а также PIC 9 элементы с условиями класса ALPHABETIC. В GnuCOBOL таких ограничений нет.
8. Условие класса OMITTED используется, когда подпрограмме необходимо определить, был ли ей передан определенный аргумент. В таких условиях identifier-1 должен быть элементом секции связи, определенным в USING пункте заголовка подпрограммы PROCEDURE DIVISION. Дополнительная информация представлена в разделе PROCEDURE DIVISION USING.

Опция class-name-1 позволяет проверять пользовательский класс. Вот пример. Предположим следующее определение пользовательского класса ‘Hexadecimal’ в SPECIAL-NAMES (см. SPECIAL-NAMES):

SPECIAL-NAMES.
    CLASS Hexadecimal IS '0' THRU '9', 'A' THRU 'F', 'a' THRU 'f'.

Теперь рассмотрим следующий код, который выполнит процедуру 150-Process-Hex-Value, если Entered-Value содержит только допустимые шестнадцатеричные цифры:

    IF Entered-Value IS Hexadecimal
        PERFORM 150-Process-Hex-Value
    END-IF

2.2.5.3. Условия знака

Синтаксис условия знака

 identifier-1 IS [ NOT ] { POSITIVE }
                   ~~~   { ~~~~~~~~ }
                         { NEGATIVE }
                         { ~~~~~~~~ }
                         { ZERO     }
                           ~~~~

Условие для проверки состояния числового элемента данных, определённого с помощью PICTURE (см. PICTURE) и/или USAGE (см. USAGE), поддерживающего числовые значения.

1. Условие класса POSITIVE или NEGATIVE будет истинным, только если значение identifier-1 строго больше или меньше нуля соответственно.
2. Условие класса ZERO может быть истинным только если значение identifier-1 равно нулю.
3. Опция NOT инвертирует значение TRUE/FALSE условия.

2.2.5.4. Условия состояния переключателя

В параграфе SPECIAL-NAMES имя внешнего переключателя может быть связано с одним или несколькими именами условий. Эти имена условий могут затем использоваться для проверки состояния ВКЛ/ВЫКЛ внешнего переключателя.

Ниже приведены соответствующие фрагменты кода в программе под названием testprog, предназначенной для простого объявления, если SWITCH-1 включён:

…
ENVIRONMENT DIVISION.
SPECIAL-NAMES.
    SWITCH-1 ON STATUS IS Switch-1-Is-ON.
…
PROCEDURE DIVISION.
…
    IF Switch-1-Is-ON
        DISPLAY "Switch 1 Is On"
    END-IF
…

Ниже представлены два различных сеанса работы с командной строкой — слева на системе Unix/Cygwin/OSX, а справа на системе Windows — которые включат переключатель и затем выполнят программу testprog. Обратите внимание, как сообщение, указывающее, что программа обнаружила установку переключателя, отображается в обоих примерах:

$ COB_SWITCH_1=ON           C:>SET COB_SWITCH_1=ON
$ export COB_SWITCH_1       C:>testprog
$ ./testprog                Switch 1 Is On
Switch 1 Is On              C:>
$

2.2.5.5. Условия соотношения

Синтаксис условия соотношения

 { identifier-1            } IS [ NOT ] RelOp { identifier-2            }
 { literal-1               }      ~~~         { literal-2               }
 { arithmetic-expression-1 }                  { arithmetic-expression-2 }
 { index-name-1            }                  { index-name-2            }

Синтаксис RelOp

 { EQUAL TO                 }
 { ~~~~~                    }
 { EQUALS                   }
 { ~~~~~~                   }
 { GREATER THAN             }
 { ~~~~~~~                  }
 { GREATER THAN OR EQUAL TO }
 { ~~~~~~~      ~~ ~~~~~    }
 { LESS THAN                }
 { ~~~~                     }
 { LESS THAN OR EQUAL TO    }
 { ~~~~      ~~ ~~~~~       }
 { =                        }
 { >                        }
 { >=                       }
 { <                        }
 { <=                       }

Эти условия оценивают, как два разных значения "соотносятся" друг с другом.

1. При сравнении одного числового значения с другим, USAGE (см. USAGE) и количество значащих цифр в любом из значений не имеют значения, поскольку сравнение выполняется с использованием фактических алгебраических значений.
2. При сравнении строк сравнение выполняется на основе сортировочной последовательности программы. Когда два строковых аргумента имеют различную длину, более короткий считается дополненным (справа) достаточным числом пробелов, чтобы сделать две строки одинаковой длины. Сравнение строк происходит посимвольно слева направо до тех пор, пока не будет установлено значение TRUE/FALSE для проверки соотношения. Символы сравниваются в соответствии с их относительным положением в сортировочной последовательности программы COLLATING SEQUENCE (как определено в SPECIAL-NAMES (см. SPECIAL-NAMES)), а не по значениям битового шаблона, которые символы имеют в памяти.
3. По умолчанию сортировочная последовательность программы COLLATING SEQUENCE будет основана исключительно на значениях битовых шаблонов различных символов.
4. Нет функциональной разницы между использованием словесного варианта (IS EQUAL TO, IS LESS THAN, …) и символьного варианта (=, <, …) фактических операторов соотношения.

2.2.5.6. Объединённые условия

Синтаксис объединённого условия

 [ ( ] Condition-1 [ ) ] { AND } [ ( ] Condition-2 [ ) ]
                         { ~~~ }
                         { OR  }
                         { ~~  }

Объединённое условие — это условие, которое вычисляет значение TRUE/FALSE из значений TRUE/FALSE двух других условий (которые сами могут быть объединёнными условиями).

1. Если значение любого из условий равно TRUE, результат OR этих двух значений будет равен TRUE. OR двух FALSE условий даст значение FALSE.
2. Для того, чтобы AND дало значение TRUE, оба условия должны иметь значение TRUE. Во всех других случаях AND даёт значение FALSE.
3. При объединении нескольких аналогичных условий с одним и тем же оператором (ИЛИ/И) и общими подлежащими левого и правого аргументов, возможно сократить код программы. Например:

   IF ACCOUNT-STATUS = 1 OR ACCOUNT-STATUS = 2 OR ACCOUNT-STATUS = 7
   

   Можно сократить до:

   IF ACCOUNT-STATUS = 1 OR 2 OR 7
   

4. Так же как умножение имеет приоритет над сложением в арифметических выражениях, так и AND имеет приоритет над OR в объединённых условиях. Для изменения этого приоритета, при необходимости, используйте скобки. Например:

   FALSE AND FALSE OR TRUE AND TRUE

   Вычисляется как TRUE

   (FALSE AND FALSE) OR (TRUE AND TRUE)

   Вычисляется как TRUE (так как И имеет приоритет над ИЛИ) — это идентично предыдущему примеру

   (FALSE AND (FALSE OR TRUE)) AND TRUE

   Вычисляется как FALSE

2.2.5.7. Отрицаемые условия

Синтаксис отрицаемого условия

 NOT Condition-1
 ~~~

Условие может быть отрицательным, добавив оператор NOT перед ним.

1. Оператор NOT имеет наивысший приоритет среди всех логических операторов, так же как и унарный минус (который «отрицает» числовое значение) — наивысший приоритет арифметических операторов.
2. Скобки должны использоваться для явного указания последовательности, в которой условия оцениваются и обрабатываются, если приоритет по умолчанию нежелателен. Например:

   NOT TRUE AND FALSE AND NOT FALSE

   Вычисляется как FALSE AND FALSE AND TRUE, что вычисляется как FALSE

   NOT (TRUE AND FALSE AND NOT FALSE)

   Вычисляется как NOT (FALSE), что вычисляется как TRUE

   NOT TRUE AND (FALSE AND NOT FALSE)

   Вычисляется как FALSE AND (FALSE AND TRUE), что вычисляется как FALSE

2.2.6. Использование точек

Все реализации COBOL различают предложения и операторы в разделе процедур. Оператор — это единственная исполняемая команда COBOL. Например, следующие являются операторами:

MOVE SPACES TO Employee-Address
ADD 1 TO Record-Counter
DISPLAY "Record-Counter=" Record-Counter

У некоторых операторов COBOL есть сфера применимости, где один или несколько других операторов могут рассматриваться как часть или связанные с данным оператором. Пример такой ситуации может быть следующим, где рассчитывается и отображается процентная ставка по кредиту в 4% для баланса кредита менее 10 000$, и в 4.5% в противном случае. (ПРЕДУПРЕЖДЕНИЕ: следующий код содержит ошибку!):

IF Loan-Balance < 10000
    MULTIPLY Loan-Balance BY 0.04 GIVING Interest
ELSE
    MULTIPLY Loan-Balance BY 0.045 GIVING Interest
DISPLAY "Interest Amount = " Interest

В этом примере оператор IF фактически имеет область, которая может включать два набора связанных операторов: один набор для выполнения, когда условие IF (см. IF) имеет значение TRUE, и другой, если это FALSE.

К сожалению, есть проблема с вышеприведенным примером. Человек, смотрящий на этот код, вероятно, предположит, что оператор DISPLAY (см. DISPLAY), из-за отсутствия отступов, должен выполняться независимо от значения условия TRUE/FALSE IF. К сожалению, компилятор (любой компилятор COBOL) не будет видеть это так, потому что его совершенно не интересует вид используемых отступов. Фактически, любой компилятор COBOL будет одинаково рад видеть код, написанный так:

IF Loan-Balance < 10000 MULTIPLY Loan-balance
BY 0.04 GIVING Interest ELSE MULTIPLY
Loan-Balance BY 0.045 GIVING Interest DISPLAY
"Interest Amount = " Interest

Как же мы сообщим компилятору, что оператор DISPLAY находится вне области оператора IF?

Здесь на помощь приходят предложения.

Предложение COBOL определяется как произвольно длинная последовательность операторов, за которой следует символ точки (.). Символ точки завершает область набора операторов. Следовательно, наш пример должен был быть закодирован так:

IF Loan-Balance < 10000
    MULTIPLY Loan-Balance BY 0.04 GIVING Interest
ELSE
    MULTIPLY Loan-Balance BY 0.045 GIVING Interest.
DISPLAY "Interest Amount = " Interest

Видите точку в конце второго оператора MULTIPLY (см. MULTIPLY)? Именно она завершает область операторов IF, тем самым делая выполнение оператора DISPLAY полностью независимым от значения TRUE/FALSE условия IF.

2.2.7. Использование конструкций VERB/END-VERB

До стандарта COBOL 1985 использование точки было единственным способом обозначить конец области действия оператора.

К сожалению, это вызвало некоторые проблемы. Посмотрите на этот код:

IF A = 1
    IF B = 1
        DISPLAY "A & B = 1"
ELSE *> This ELSE has a problem!
    IF B = 1
        DISPLAY "A NOT = 1 BUT B = 1"
    ELSE
        DISPLAY "NEITHER A NOR B = 1".

Проблема с этим кодом заключается в том, что отступы — настолько важные для улучшения читабельности программы человеком — могут дать ошибочное представление о логическом потоке. Оператор ELSE всегда связан с самым последним встреченным оператором IF; это означает, что выделенный оператор ELSE будет связан с оператором IF B = 1, а не с оператором IF A = 1, как может показаться по отступам.

Этот вид проблемы привел к появлению временного решения, добавленного к языку COBOL: ключевое слово NEXT SENTENCE.

IF A = 1
    IF B = 1
        DISPLAY "A & B = 1"
    ELSE
        NEXT SENTENCE
ELSE
    IF B = 1
        DISPLAY "A NOT = 1 BUT B = 1"
    ELSE
        DISPLAY "NEITHER A NOR B = 1".

NEXT SENTENCE сообщает компилятору, что если условие B = 1 ложно, управление должно перейти к первому оператору, следующему за следующей точкой.

В стандарте COBOL 1985 был представлен гораздо более элегантный способ решения. Любой оператор COBOL (первое ключевое слово оператора), которому необходимо это, может использовать конструкцию END-verb для завершения области без нарушения области любого другого оператора, в котором он мог находиться. Любой компилятор COBOL 85 допустил бы следующее решение нашей проблемы:

IF A = 1
    IF B = 1
        DISPLAY "A & B = 1"
    END-IF
ELSE
    IF B = 1
        DISPLAY "A NOT = 1 BUT B = 1"
    ELSE
        DISPLAY "NEITHER A NOR B = 1".

Эта новая возможность сделала точку практически устаревшей, так как наш фрагмент программы, вероятно, был бы закодирован так сегодня:

IF A = 1
    IF B = 1
        DISPLAY "A & B = 1"
    END-IF
ELSE
    IF B = 1
        DISPLAY "A NOT = 1 BUT B = 1"
    ELSE
        DISPLAY "NEITHER A NOR B = 1"
    END-IF
END-IF

COBOL (включая GnuCOBOL) по-прежнему требует, чтобы каждый параграф раздела процедур содержал хотя бы одно предложение, если в нем есть исполняемый код, но популярным стилем кодирования сейчас является простое кодирование одной точки непосредственно перед концом каждого параграфа.

Стандарт языка COBOL показывает, что различные ключевые слова END-verb являются необязательными, так как использование точки в качестве разделителя областей остается допустимым.

Если вы будете портировать существующий код в GnuCOBOL, вы обнаружите, что это полезная возможность, позволяющая соответствовать используемым языковым и стилистическим стандартам. Однако, если вы создаете новые программы GnuCOBOL, я настоятельно рекомендую вам использовать структуры END-verb в этих программах.

2.2.8. Одновременный доступ к файлам

Обработка данных файлов является одним из больших преимуществ языка COBOL. В COBOL есть функции для решения проблемы одновременного доступа к одному и тому же файлу несколькими программами. Одновременный доступ нескольких программ обрабатывается двумя способами — совместное использование файлов и блокировка записей.

Не все реализации GnuCOBOL поддерживают совместное использование файлов и блокировку записей. Это зависит от операционной системы, для которой они были созданы, и опций сборки, которые использовались при создании конкретной реализации GnuCOBOL.

2.2.8.1. Совместное использование файлов

GnuCOBOL управляет одновременным доступом к файлам на самом высоком уровне с помощью концепции совместного использования файлов, которая применяется при попытке программы открыть файл. Это достигается с помощью системной процедуры UNIX, называемой fcntl. Этот модуль в настоящее время не поддерживается Windows и отсутствует в пакете эмуляции Unix MinGW. GnuCOBOL-сборки, созданные с помощью среды MinGW, не смогут поддерживать контроль совместного использования файлов — файлы всегда будут совместно использоваться в таких средах. GnuCOBOL-сборка, созданная с использованием среды Cygwin в Windows, будет иметь доступ к fcntl и, следовательно, будет поддерживать совместное использование файлов. Конечно, у реальных сборок GnuCOBOL для Unix, а также для OSX не должно быть проблем, так как fcntl должно быть доступно.

Любые ограничения, наложенные на успешное OPEN (см. OPEN), останутся в силе до тех пор, пока ваша программа не выполнит CLOSE (см. CLOSE) для файла или пока программа не завершится.

Совместное использование файлов контролируется с помощью SHARING-клаузы:

    SHARING WITH { ALL OTHER }
    ~~~~~~~      { ~~~       }
                 { NO OTHER  }
                 { ~~        }
                 { READ ONLY }
                   ~~~~ ~~~~

Эта клауза может использоваться в операторе SELECT файла (см. SELECT), операторе OPEN (см. OPEN), который инициирует использование файла вашей программой, или в обоих. Если SHARING вариант указан в обоих местах, указания, сделанные в операторе OPEN, будут иметь приоритет над указаниями из оператора SELECT.

Вот значения трех вариантов:

ALL OTHER

Когда ваша программа открывает файл с этим вариантом совместного использования, никаких ограничений не будет накладываться на другие программы, пытающиеся OPEN файл после вашей программы. Это режим совместного использования по умолчанию.

NO OTHER

Когда ваша программа открывает файл с этим вариантом совместного использования, ваша программа объявляет, что не позволит никаким другим программам иметь доступ к файлу, пока вы используете этот файл; OPEN попытки в других программах будут неуспешны со статусом файла 37 (PERMISSION DENIED) до тех пор, пока вы не CLOSE (см. CLOSE) файл.

READ ONLY

Открытие файла с этим вариантом совместного использования означает, что вы согласны позволить другим программам OPEN файл для чтения, пока вы его держите открытым. Если они попытаются любое другое OPEN, у них это не получится со статусом файла 37. Конечно, ваша программа может потерпеть неудачу, если кто-то другой получил доступ к файлу раньше и открыл его с вариантом совместного использования, который наложил ограничения на совместное использование файлов.

Если SELECT файла закодирована с FILE STATUS клаузой, OPEN неудачи — включая те, которые вызваны проблемами с совместным использованием — будут определяемы программой, и будет возможна плавная работа восстановления (или, по крайней мере, плавное завершение).

Однако, если такая клауза не была закодирована, будет выведено сообщение во время выполнения, и программа завершится.

2.2.8.2. Блокировка записей

Блокировка записей поддерживается усовершенствованным программным обеспечением для управления файлами, встроенным в используемую вами реализацию GnuCOBOL. Это программное обеспечение предоставляет единую точку контроля доступа к файлам — обычно к файлам ORGANIZATION INDEXED. Одним из таких пакетов выполнения, способных сделать это, является пакет Berkeley Database (BDB) — часто используемый пакет в GnuCOBOL-сборках для поддержки индексированных файлов.

Различные операторы ввода-вывода, которые может выполнить ваша программа, могут наложить ограничения на доступ других одновременно выполняемых программ к записи файла, к которой они только что получили доступ. Эти ограничения синтаксически налагаются путём блокирования записи с использованием LOCK клаузы. Другие записи в файле остаются доступными, предполагая, что ограничения совместного использования файлов, наложенные при открытии файла, не препятствовали доступу ко всему файлу.

1. Если используемая вами сборка GnuCOBOL была настроена на использование пакета Berkeley Database (BDB) для ввода-вывода индексированных файлов, блокировка записей будет доступна с помощью переменной среды выполнения DB_HOME.
2. Если оператор SELECT (см. SELECT) или файл OPEN (см. OPEN) указывает SHARING WITH NO OTHER, блокировка записей будет отключена.
3. Если SELECT файла содержит предложение LOCK MODE IS AUTOMATIC, каждый раз при чтении записи из файла эта запись автоматически блокируется. Другие программы могут обращаться к другим записям в файле, но не к заблокированной записи.
4. Если SELECT файла содержит предложение LOCK MODE IS MANUAL, блокировки записей устанавливаются только тогда, когда оператор READ, выполняемый над файлом, включает предложение LOCK (это предложение будет рассмотрено вскоре).
5. Если предложение LOCK ON указано в SELECT файла, блокировки (автоматически или вручную полученные) будут накапливаться по мере чтения всё большего и большего числа записей, пока они явно не будут освобождены. Это называется блокировкой нескольких записей.

   Блокировки, полученные посредством блокировки нескольких записей, остаются в силе до тех пор, пока программа, удерживающая блокировку…

   • …не завершится, или …
   • …не выполнит оператор CLOSE (см. CLOSE) над файлом, или …
   • …не выполнит оператор UNLOCK (см. UNLOCK) над файлом, или …
   • …не выполнит оператор COMMIT (см. COMMIT) или …
   • …не выполнит оператор ROLLBACK (см. ROLLBACK).
6. Если предложение LOCK ON не указано, то следующий оператор ввода-вывода, выполняемый вашей программой, за исключением START (см. START), освободит блокировку. Это называется блокировкой одной записи.
7. Предложение LOCK, которое может быть включено в операторах READ (см. READ), REWRITE (см. REWRITE) или WRITE (см. WRITE), выглядит следующим образом:

       { IGNORING LOCK    }
       { ~~~~~~~~ ~~~~    }
       { WITH [ NO ] LOCK }
       {        ~~   ~~~~ }
       { WITH KEPT LOCK   }
       {      ~~~~ ~~~~   }
       { WITH IGNORE LOCK }
       {      ~~~~~~ ~~~~ }
       { WITH WAIT        }
              ~~~~
   

   Вариант WITH [ NO ] LOCK — единственный доступный для операторов REWRITE или WRITE.

   Значения различных вариантов блокировки записей следующие:

   IGNORING LOCK

   WITH IGNORE LOCK

   Эти варианты (синонимичные) сообщают GnuCOBOL, что любые блокировки, удерживаемые другими программами, должны игнорироваться.

   WITH LOCK

   Доступ к записи другими программами будет запрещен.

   WITH NO LOCK

   Запись не будет заблокирована. Это значение по умолчанию для всех операторов.

   WITH KEPT LOCK

   При блокировке одной записи, когда к новой записи осуществляется доступ, блокировки, полученные для предыдущих записей, освобождаются. Используя этот вариант, не только новая доступная запись блокируется (как это сделало бы WITH LOCK), но и блокировки предыдущих записей сохраняются. Последующий оператор READ без опции KEPT LOCK освободит все «сохраненные» блокировки, как и оператор UNLOCK.

   WITH WAIT

   Этот вариант сообщает GnuCOBOL, что программа готова дождаться освобождения блокировки, удерживаемой (другой программой) на считываемой записи.

   Без этого варианта попытка чтения заблокированной записи будет немедленно прервана, и будет возвращён код состояния файла 51.

   С этим вариантом программа будет ждать в течение заданного времени освобождения блокировки. Если блокировка будет освобождена в течение установленного времени ожидания, чтение будет успешным. Если установленное время ожидания истечёт до освобождения блокировки, попытка чтения будет прервана, и будет выдан код состояния файла 51.

3. CDF - Директивы компилятора

Директивы компилятора, или CDF, предоставляют способ управления компиляцией программ GnuCOBOL. CDF обеспечивает механизм для динамической установки или сброса определённых переключателей компилятора, введения нового исходного кода из одной или нескольких библиотек исходного кода, внесения динамических изменений в исходный код и условной обработки или игнорирования операторов исходного кода. Это достигается с помощью набора специальных операторов и директив CDF, которые будут отображаться в исходном коде программы.

Когда компилятор работает в режиме фиксированного формата, все операторы CDF должны начинаться с восьмого (8) или последующих столбцов.

В GnuCOBOL поддерживаются два типа операторов CDF — операторы обработки текста и директивы компилятора.

Операторы обработки текста CDF COPY и REPLACE используются для введения нового кода в программы с или без изменений, или могут быть использованы для изменения существующих операторов в программе. Операторы обработки текста всегда завершаются точкой.

Директивы CDF, обозначаемые наличием последовательности символов >> в имени оператора, влияют на процесс компиляции программы.

Директивы компилятора никогда не завершаются точкой.

Опция компилятора -D предоставляет дополнительный контроль (см. cobc - Компилятор GnuCOBOL).

3.1. >>CALL-CONVENTION

Синтаксис CDF >>CALL-CONVENTION

 >>CALL-CONVENTION    { COBOL   }
 ~~~~~~~~~~~~~~~~~    { EXTERN  }
                      { STDCALL }
                      { STATIC  } 

Данная директива указывает компилятору, как обращаться к именам программ, и может использоваться для определения других деталей взаимодействия с функцией или программой. Существует четыре варианта, по умолчанию используется COBOL.

COBOL

Имя программы обрабатывается как слово COBOL, которое сопоставляется с внешним именем вызываемой, отменяемой или упоминаемой программы в идентификаторе адреса программы, применяя те же правила сопоставления, что и для имени программы, для которого не указана фраза AS. (Это значение по умолчанию.)

EXTERN

Имя программы обрабатывается как внешняя ссылка.

STDCALL

[требуется дополнительная информация]

STATIC

Имя программы вызывается как включённый элемент и не динамически, что является стандартным значением по умолчанию.

3.2. COPY

Синтаксис оператора CDF COPY

 COPY copybook-name
 ~~~~
 [ IN|OF library-name ]
   ~~ ~~
 [ SUPPRESS PRINTING ]
   ~~~~~~~~
 [ REPLACING { Phrase-Clause | String-Clause }... ] .
   ~~~~~~~~~

Синтаксис фразы-описания CDF COPY

 { ==pseudo-text-1== } BY { ==pseudo-text-2== }
 { identifier-1      } ~~ { identifier-2      }
 { literal-1         }    { literal-2         }
 { word-1            }    { word-2            }

Синтаксис строки CDF COPY

 [ LEADING|TRAILING ] ==partial-word-1== BY ==partial-word-2==
   ~~~~~~~ ~~~~~~~~                      ~~

1. операторы COPY используются для импорта копибуков (см. Копибуки) в программу.
2. операторы COPY могут использоваться в любом месте программы COBOL, где код, содержащийся в копибуке, был бы синтаксически корректным.
3. необязательная фраза SUPPRESS (с необязательным служебным словом PRINTING) синтаксически верна, но не функциональна. Она поддерживается для обеспечения совместимости с исходным кодом, написанным для других версий COBOL.
4. Нет никакой разницы между использованием слова IN и слова OF — используйте то, которое вам больше нравится.
5. Точка строго обязательна в конце каждого оператора COPY, даже если оператор находится в области действия другого оператора, где точка может показаться нарушающей, например, в области действия оператора IF (см. IF). Однако эта обязательная точка в конце оператора не влияет на область действия оператора, в которой находится оператор COPY.
6. И pseudo-text-2, и partial-word-2 могут быть пустыми.
7. Все операторы COPY располагаются, и содержимое соответствующих копибуков вставляется в исходный код программы до начала фактического процесса компиляции. Если копибук содержит оператор COPY, процесс вставки копибука будет повторяться для разрешения встроенного оператора COPY. Это будет продолжаться до тех пор, пока не останется неразрешённых операторов COPY. В этот момент начнется фактическая компиляция программы.
8. См. Расположение копибуков для получения подробных правил о том, как компилятор ищет копибуки.
9. Необязательная фраза REPLACING позволяет выполнить одно или несколько из следующих типов замен текста:

   Фраза-описание

   Замена одного или нескольких полных служебных слов, пользовательских идентификаторов или литералов; для этого варианта справедливы следующие замечания:

   • Этот вариант нельзя использовать для замены части слова, идентификатора или литерала.
   • Всё, что предшествует BY, здесь рассматривается как строка поиска.
   • Строки поиска из одного элемента можно указать, закодировав заменяемые identifier-1, literal-1 или word-1.
   • Строки поиска из нескольких элементов можно указать, используя опцию ==pseudo-text-1==. Например, чтобы заменить все вхождения UPON PRINTER, нужно указать ==UPON PRINTER==.
   • Строка замены, которая следует за BY, может быть указана любым из четырёх вариантов.
   • Если строка замены — многоэлементная фраза или должна быть полностью удалена, нужно использовать опцию ==pseudo-text-2==. Если pseudo-text-2 пусто (то есть текст замены задан как ====), все обнаруженные вхождения строки поиска будут удалены.

   Строка-описание

   С помощью этого варианта можно заменить последовательности символов, которые встречаются в начале (см. LEADING) или конце (см. TRAILING) служебных или пользовательских слов. Например, чтобы изменить все слова вида «0100-xxxxxx» на «020-xxxxxx», нужно закодировать LEADING ==0100-== BY ==020-==. Чтобы просто удалить все префиксы «0100-» из слов, нужно закодировать LEADING ==0100-== BY ====.

3.3. REPLACE

Синтаксис оператора CDF REPLACE (форма 1)

 REPLACE [ ALSO ] { Phrase-Clause | String-Clause }... .
 ~~~~~~~   ~~~~

Синтаксис оператора CDF REPLACE (форма 2)

 REPLACE [ LAST ] OFF .
 ~~~~~~~   ~~~~   ~~~

Синтаксис фразы CDF REPLACE

 { ==pseudo-text-1== } BY { ==pseudo-text-2== }
                       ~~

Синтаксис строки CDF REPLACE

 [ LEADING|TRAILING ] ==partial-word-1== BY ==partial-word-2==
   ~~~~~~~ ~~~~~~~~                      ~~

1. Инструкция REPLACE предоставляет механизм изменения всех или части одного или нескольких операторов GnuCOBOL.
2. Точка является абсолютно обязательной в конце каждого оператора REPLACE (любой формат), даже если оператор находится в области действия другого оператора, где точка может показаться помехой (например, в области действия оператора IF (см. IF)); точка, однако, не повлияет на область действия оператора, в котором находится REPLACE.
3. Следующие пункты относятся к формату 1 инструкции REPLACE:
   1. Формат 1 инструкции REPLACE может использоваться для изменения исходного кода программы аналогично опции REPLACING инструкции COPY с помощью этих опций:

      Phrase-Clause

      Заменить один или несколько полных ключевых слов, определяемых пользователем идентификаторов или литералов; следующие пункты относятся к этой опции:

      • Эта опция не может использоваться для замены части слова, идентификатора или литерала.
      • Всё, что предшествует BY, будет здесь называться строкой поиска.
      • Строки поиска в REPLACE всегда указываются с использованием опции ==pseudo-text-1==. Например, чтобы заменить все вхождения UPON PRINTER, вы бы указали ==UPON PRINTER==.
      • Строка замены, которая следует за BY, указывается с использованием опции ==pseudo-text-2==. Если pseudo-text-2 пуста (то есть, текст замены указан как ====), все найденные вхождения строки поиска будут удалены.

      String-Clause

      С помощью этого вы можете заменить последовательности символов, которые встречаются в начале (см. LEADING) или в конце (см. TRAILING) ключевых или определяемых пользователем слов. Например, чтобы изменить все слова вида "0100-xxxxxx" на "020-xxxxxx", используйте LEADING ==0100-== BY ==020-==. Чтобы просто удалить все префиксы "0100-" из слов, используйте LEADING ==0100-== BY ====.

   2. После обнаружения инструкции REPLACE Формат 1 в текущем компилируемом исходном файле, режим замены становится активным, и указанные в этой инструкции изменения будут автоматически внесены во все последующие операторы исходного кода, которые компилятор считывает из файла.
   3. Режим замены сохраняется — продолжая вносить изменения в исходный код — до тех пор, пока не будет обнаружена другая инструкция REPLACE Формат 1, пока не будет достигнут конец компилируемой программы или пока не будет обнаружена инструкция REPLACE Формат 2.
   4. Когда встречается инструкция REPLACE Формат 1 с ключевым словом ALSO, без того, чтобы Режим замены был активен, эффект будет таким, как если бы ALSO не было указано. Если Режим замены уже был активен, эффект будет заключаться в «добавлении» текущей спецификации изменения на вершину стека и добавлении спецификаций нового оператора к тем, которые уже действовали.
   5. При встрече инструкции REPLACE Формат 1 без ключевого слова ALSO, любые сохранённые спецификации изменений, если таковые имеются, будут удалены, и текущая спецификация изменения, если таковая имеется, будет заменена спецификациями нового оператора.
   6. По достижении конца текущего компилируемого исходного файла, Режим замены деактивируется, и любые сохранённые спецификации замены будут удалены — компиляция следующего исходного файла (если таковой имеется) начнётся с неактивным Режимом замены и без спецификаций изменения в стеке.
4. Следующие пункты относятся к формату 2 инструкции REPLACE:
   1. Если Режим замены в данный момент неактивен, инструкция REPLACE Формат 2 будет проигнорирована.
   2. Если Режим замены в данный момент активен, оператор REPLACE OFF. деактивирует Режим замены и удалит любые спецификации замены из стека. Компилятор продолжит работу так, как будто REPLACE никогда не встречалось, до тех пор, пока не встретится другая инструкция REPLACE Формат 1.
   3. Если Режим замены в данный момент активен, оператор REPLACE LAST OFF. заменит текущие спецификации замены на те, которые были извлечены из вершины стека. Если спецификаций замены в стеке не было, эффект будет таким, как если бы была закодирована инструкция REPLACE OFF..

3.4. >>DEFINE

CDF >>DEFINE Directive Syntax

 >>DEFINE [ CONSTANT ] cdf-variable-1 AS { OFF                    }
 ~~~~~~~~   ~~~~~~~~                     { ~~~                    }
                                         { literal-1 [ OVERRIDE ] }
                                         {             ~~~~~~~~   }
                                         { PARAMETER [ OVERRIDE ] }
                                           ~~~~~~~~~   ~~~~~~~~

Используйте директиву >>DEFINE CDF для создания переменных CDF и (необязательно) присваивания им значений — литералов или переменных среды.

1. Зарезервированное слово AS является необязательным и может быть включено или нет по усмотрению программиста. Наличие или отсутствие этого слова не влияет на программу.
2. Переменные CDF, определённые таким образом, становятся неопределёнными после столкновения с директивой END PROGRAM или END FUNCTION в исходном коде.
3. Директива CDF >>DEFINE — один из способов создания переменных CDF, которые могут обрабатываться другими операторами CDF, такими как >>IF (см. >>IF). Директива CDF >>SET (см. >>SET) предоставляет другой способ их создания.
4. Имена переменных CDF следуют правилам стандартных имен, определённых пользователем в GnuCOBOL, и не могут дублировать какие-либо зарезервированные слова CDF. Имена переменных CDF могут дублировать зарезервированные слова COBOL, при условии, что опция CONSTANT не указана, но такие имена не рекомендуются.
5. Опция CONSTANT допустима только в сочетании с literal-1. Когда CONSTANT указана, переменная CDF, которая создаётся, может использоваться в вашем обычном коде COBOL, как если бы это было значение литерала. Без этой опции переменная CDF может быть использована только в других операторах CDF. Опция OFF используется для создания переменной без присваивания ей какого-либо значения.
6. Опция PARAMETER используется для создания переменной, значение которой соответствует значению переменной среды с тем же именем. Обратите внимание, что это присваивание значения происходит во время компиляции, а не во время выполнения программы.
7. При отсутствии опции OVERRIDE, cdf-variable-1 ещё не должна быть определена. Когда опция OVERRIDE указана, cdf-variable-1 будет создана со значением, указанным в опции, если она ещё не была определена. Если она была определена ранее, она будет переопределена с новым значением.

3.5. >>IF

Синтаксис директивы CDF >>IF

 >>IF CDF-Conditional-Expression-1
 ~~~~     [ Program-Source-Lines-1 ]

 [ >>ELIF CDF-Conditional-Expression-2
   ~~~~~~ [ Program-Source-Lines-2 ] ]...

 [ >>ELSE
   ~~~~~~ [ Program-Source-Lines-3 ] ]

 >>END-IF
 ~~~~~~~~

Синтаксис CDF-условного выражения

 { cdf-variable-1 } IS [ NOT ] { DEFINED                      }
 { literal-1      }      ~~~   { ~~~~~~~                      }
                               { SET                          }
                               { ~~~                          }
                               { CDF-RelOp { cdf-variable-2 } }
                               {           { literal-2      } }

Синтаксис CDF-RelOp

 >=    or    GREATER THAN OR EQUAL TO
             ~~~~~~~      ~~ ~~~~~
 >     or    GREATER THAN
             ~~~~~~~
 <=    or    LESS THAN OR EQUAL TO
             ~~~~      ~~ ~~~~~
 <     or    LESS THAN
             ~~~~
 =     or    EQUAL TO
             ~~~~~
 <>    or    EQUAL TO (with "NOT")
             ~~~~~

Директива CDF >>IF заставляет компилятор GnuCOBOL обрабатывать или игнорировать операторы исходного кода COBOL, операторы обработки текста CDF и/или директивы CDF в зависимости от значения одного или нескольких условных выражений, основанных на переменных CDF.

1. Зарезервированные слова IS, THAN и TO являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Каждая директива >>IF должна завершаться директивой >>END-IF.
3. После директивы >>IF может следовать любое количество >>ELIF разделов, включая ноль.
4. После директивы >>IF может быть не более одного раздела >>ELSE. Если используется >>ELSE, он должен следовать за >>IF и всеми >>ELIF разделами.
5. Компилятор может обработать только один из блоков операторов Program-Source-Lines-n, находящихся в области действия >>IF … >>END-IF. Какой именно (если таковой имеется) будет обработан, определяется следующим образом:
   1. Каждое выражение CDF-Conditional-Expression-n оценивается поочередно в том порядке, в котором они записаны в операторе >>IF и любых >>ELIF разделах, которые могут присутствовать, до тех пор, пока одно из них не примет значение TRUE. Как только одно из выражений примет значение TRUE, блок операторов Program-Source-Lines-n, соответствующий выражению CDF-Conditional-Expression-n, будет обработан. Все остальные блоки в области действия >>IF->>END-IF будут проигнорированы.
   2. Если ни одно выражение CDF-Conditional-Expression не примет значение TRUE, и существует раздел >>ELSE, блок операторов Program-Source-Lines-3, следующий за разделом >>ELSE, будет обработан компилятором, а все остальные блоки в области действия >>IF->>END-IF будут проигнорированы.
   3. Если ни одно выражение CDF-Conditional-Expression-n не примет значение TRUE и раздел >>ELSE отсутствует, то ни один из блоков операторов Program-Source-Lines-n в области действия >>IF->>END-IF не будет обработан компилятором.
   4. Если выбранный для обработки блок операторов Program-Source-Lines-n пустой, ошибки не возникает — просто не будет сгенерирован код из структуры >>IF->>END-IF.
6. Блок Program-Source-Lines-n может содержать любой допустимый код COBOL или CDF.
7. Следующие пункты относятся к любому выражению CDF-Conditional-Expression-n:
   1. Опция DEFINED проверяет, был ли cdf-variable-1 определён, но ещё не присвоено значение (>>DEFINE … OFF); используйте опцию NOT для проверки того, что переменная не определена.
   2. Опция SET проверяет, было ли переменной cdf-variable-1 присвоено значение, либо с помощью оператора >>SET, либо с помощью оператора >>DEFINE без опции OFF.
   3. Два CDF-переменных, два литерала или одна CDF-переменная и один литерал могут быть сравнены друг с другом с помощью оператора отношения. В отличие от стандартного оператора GnuCOBOL IF (см. IF), несколько сравнений не могут быть объединены или сцеплены; однако вы можете вложить второе >>IF внутрь первого, чтобы смоделировать оператор AND, и оператор OR может быть смоделирован с помощью опции >>ELIF.
   4. Символ <> обозначает NOT EQUAL TO.

3.6. >>SET

CDF >>SET Директива синтаксиса

 >>SET { [ CONSTANT ] cdf-variable-1 literal-1 ] }
 ~~~~~ {   ~~~~~~~~                              }
       { SOURCEFORMAT AS FIXED|FREE              }
       { ~~~~~~~~~~~~    ~~~~~ ~~~~              }
       { NOFOLDCOPYNAME                          }
       { ~~~~~~~~~~~~~~                          }
       { FOLDCOPYNAME AS UPPER|LOWER             }
         ~~~~~~~~~~~~    ~~~~~ ~~~~~

Директива CDF >>SET предоставляет альтернативный способ выполнения действий директив >>DEFINE и >>SOURCE, а также способ управления переключателями компилятора -free, -fixed и -ffold-copy внутри исходного кода программы.

1. Зарезервированное слово AS является необязательным (только в SOURCEFORMAT и FOLDCOPYNAME разделах) и может быть включено или нет по усмотрению программиста. Его наличие или отсутствие не влияет на программу.
2. CDF-переменные, определённые таким образом, становятся неопределёнными после встреченного оператора END PROGRAM или END FUNCTION в исходном коде.
3. Опция FOLDCOPYNAME обеспечивает эквивалент указания переключателя компилятора -ffold-copy=xxx, где xxx представляет собой либо UPPER, либо LOWER.
4. Опция NOFOLDCOPYNAME отключает действие оператора >>SET FOLDCOPYNAME или переключателя компилятора -ffold-copy=xxx.
5. Если используется опция CONSTANT, literal-1 также должно быть указано. Эта опция предоставляет другой способ определения констант, которые могут быть использованы в любой части программы там, где может быть указан литерал.
6. Остальные опции директивы CDF >>SET обеспечивают эквивалентную функциональность директив >>DEFINE и >>SOURCE, как показано ниже:

   >>SET cdf-variable-1

   >>DEFINE cdf-variable-1 AS OFF

   >>SET cdf-variable-1 AS literal-1

   >>DEFINE cdf-variable-1 AS literal-1

   >>SET CONSTANT cdf-variable-1 literal-1

   >>DEFINE CONSTANT cdf-variable-1 literal-1

   >>SET SOURCEFORMAT AS FIXED

   >>SOURCE FORMAT IS FIXED

   >>SET SOURCEFORMAT AS FREE

   >>SOURCE FORMAT IS FREE

   >>SET XFD literal-1

   [необходимо сделать]

   >>SET Micro-Focus-Directive

   [необходимо сделать]

3.7. >>SOURCE

CDF >>SOURCE Директива синтаксиса

 >>SOURCE FORMAT IS FIXED|FREE|VARIABLE
 ~~~~~~~~           ~~~~~ ~~~~ ~~~~~~~~

Директива >>SOURCE CDF помещает компилятор в режим формата исходного кода FIXED или FREE. Это, по сути, предоставляет ещё один механизм управления переключателями компилятора -free и -fixed.

1. Зарезервированные слова FORMAT и IS являются необязательными и могут быть включены или не включены по усмотрению программиста. Наличие или отсутствие этих слов не оказывает влияния на программу.
2. Вы можете переключаться между режимами FIXED и FREE по желанию.
3. Вы также можете использовать директиву >>SET CDF для выполнения этой функции.
4. Если компилятор уже находится в указанном режиме, эта инструкция не повлияет на него.

3.8. >>TURN

Синтаксис директивы CDF >>TURN

 >>TURN { exception-name-1 [ file-name-1 ]... }...
 ~~~~~~
    { OFF                           }
    { ~~~                           }
    { CHECKING ON [ WITH LOCATION ] }
      ~~~~~~~~ ~~        ~~~~~~~~

Директива (де-)активирует проверки исключений.

3.9. >>D

Синтаксис директивы CDF >>D

 >>D
 ~~~

Директива удаляет все строки отладки с плавающей точкой, если режим отладки не активен. В противном случае игнорирует часть директивы в строке.

3.10. >>DISPLAY

Синтаксис директивы CDF >>DISPLAY

 >>DISPLAY source-text [ VCS = version-string ]
 ~~~~~~~~~               ~~~

Директива является расширением v1.0 и будет отображать сообщения во время компиляции.

3.11. >>PAGE

Синтаксис директивы CDF >>PAGE

 >>PAGE
 ~~~~~~

Директива позволяет использовать управляющие символы страниц IBM: EJECT, SKIP1, SKIP2, SKIP3 и TITLE.

3.12. >>LISTING

Синтаксис директивы CDF >>LISTING

 >>LISTING  {ON}
 ~~~~~~~~~  {OFF}

Директива позволяет де-(активировать) вывод списка программы.

3.13. >>LEAP-SECONDS

Синтаксис директивы CDF >>LEAP-SECONDS

 >>LEAP-SECONDS
 ~~~~~~~~~~~~~~

Директива >>LEAP-SECONDS CDF синтаксически распознается, но в остальном не функциональна.

Позволяет использовать более 60 секунд в минуте.

3.14. $ Директивы

Синтаксис директивы CDF $

 $ (Dollar) Directives - Active.

 These directives are active and have the same function as ones starting with >>:

 $DEFINE
 $DISPLAY ON|OFF
 $IF
 $ELIF
 $ELSE
 $ELSE-IF
 $END
 $SET

 It is recommend to use the standard directives only instead of the MF directives
 (when possible) as these have a a higher chance for being portable.

 $ (Dollar) Directives - Not Active.
 These are NOT active and will produce a warning message:

 $DISPLAY VCS ...

 Recognised but otherwise ignored.

 @OPTIONS options-text

 Additional Micro-Focus directives accepted :

 ADDRSV | ADD-RSV literal-1
 ADDSYN | ADD-SYN literal-1 = literal-2
 ASSIGN  "EXTERNAL" | "DYNAMIC"
 BOUND
 CALLFH  literal-1
 COMP1  |  COMP-1  "BINARY" | "FLOAT"
 FOLDCOPYNAME | FOLD-COPY-NAME  AS "UPPER" | "LOWER"
 MAKESYN  |  MAKE-SYN
 NOBOUND  |  NO-BOUND
 NOFOLDCOPYNAME  |  NOFOLD-COPY-NAME  |  NO-FOLD-COPY-NAME
 OVERRIDE  literal-1 = literal-2
 REMOVE  literal-1
 SOURCEFORMAT | SOURCE-FORMAT "FIXED" | "FREE" | "VARIABLE"
 SSRANGE "2"
 NOSSRANGE  |  NO-SSRANGE

Предлагает поддержку директив компилятора MF.

3.15. Предопределённые переменные компиляции

GnuCOBOL определяет переменные компиляции, когда выполняются различные условия. Если условие, связанное с переменной, ложно, переменная не определена.

DEBUG

Указан флаг отладки -d.

EXECUTABLE

Модуль, который компилируется, содержит главную программу.

GCCOMP

Размер COMP элемента определяется в соответствии со схемой GnuCOBOL, где для длины описания:

1 - 2

элемент = 1 байт

3 - 4

элемент = 2 байта

5 - 9

элемент = 4 байта

10 - 18

элемент = 8 байт

GNUCOBOL

GnuCOBOL компилирует блок исходного кода.

HOSTSIGNS

Значение числового элемента со знаком, представленного в формате упакованных десятичных чисел, может считаться NUMERIC , если знак = X"F".

IBMCOMP

Размер элемента COMP элемент определяется по схеме IBM, где для длины описания:

1 - 4

элемент = 2 байта

5 - 9

элемент = 4 байта

10 - 18

элемент = 8 байт

MODULE

Компилируемый элемент не содержит главную программу.

NOHOSTSIGNS

Значение числового элемента со знаком, представленного в формате упакованных десятичных чисел, не может считаться NUMERIC , если знак = X"F".

NOIBMCOMP

Размер элемента COMP не определяется по схеме IBM.

NOSTICKY-LINKAGE

Вязкая связь (элементы секции связи, остающиеся выделенными между вызовами) не активна.

NOTRUNC

Числовые данные обрезаются в соответствии с их внутренней формой представления.

P64

Указатели больше 32 бит.

STICKY-LINKAGE

Вязкая связь (элементы секции связи, остающиеся выделенными между вызовами) активна.

TRUNC

Числовые данные обрезаются в соответствии с их PICTURE пунктами.

Хотя эта функция всё ещё поддерживается, она может быть удалена в будущем и не должна использоваться. Вместо этого используйте GCCOMP и GNUCOBOL.

OCCOMP

Размер COMP элемента определяется по схеме GnuCOBOL, где для длины описания:

1 - 2

элемент = 1 байт

3 - 4

элемент = 2 байта

5 - 9

элемент = 4 байта

10 - 18

элемент = 8 байт

OPENCOBOL

GnuCOBOL компилирует блок исходного кода.

4. РАЗДЕЛ ИДЕНТИФИКАЦИИ

Синтаксис раздела IDENTIFICATION DIVISION

[{ IDENTIFICATION } DIVISION. ]
 { ~~~~~~~~~~~~~~ } ~~~~~~~~
 { ID             }
   ~~
 { PROGRAM-ID.  } { program name } .
 { ~~~~~~~~~~   } { literal-1    } [ AS { literal-2 } ] [ Type-clause ] .
 { FUNCTION-ID. } { literal-3 } [ AS literal-4 ] .
   ~~~~~~~~~~~    { function-name } .
 { OPTIONS. }
   ~~~~~~~
 [ DEFAULT ROUNDED MODE IS {AWAY-FROM-ZERO         }
   ~~~~~~~ ~~~~~~~         {NEAREST-AWAY-FROM-ZERO }
                           {NEAREST-EVEN           }
                           {NEAREST-TOWARDS-ZERO   }
                           {PROHIBITED             }
                           {TOWARDS-GREATER        }
                           {TOWARDS-LESSER         }
                           {TRUNCATION             }]
 [ ENTRY-CONVENTION IS {COBOL   }
   ~~~~~~~~~~~~~~~~    {EXTERN  }
                       {STDCALL }]
 [ AUTHOR.        comment-1. ]
   ~~~~~~
 [ DATE-COMPILED. comment-2. ]
   ~~~~~~~~~~~~~
 [ DATE-MODIFIED. comment-3. ]
   ~~~~~~~~~~~~~
 [ DATE-WRITTEN.  comment-4. ]
   ~~~~~~~~~~~~
 [ INSTALLATION.  comment-5. ]
   ~~~~~~~~~~~~
 [ REMARKS.       comment-6. ]
   ~~~~~~~
 [ SECURITY.      comment-7. ]
   ~~~~~~~~

Абзацы AUTHOR, DATE-COMPILED, DATE-MODIFIED, DATE-WRITTEN, INSTALLATION, REMARKS и SECURITY поддерживаются только GnuCOBOL для обеспечения совместимости с программами, написанными по стандартам ANS1974 (или более ранним). Согласно стандарту ANS1985, эти пункты устарели и не должны использоваться в новых программах.

Синтаксис пункта типа PROGRAM-ID

 IS [ COMMON ] [ INITIAL|RECURSIVE PROGRAM ]
      ~~~~~~     ~~~~~~~ ~~~~~~~~~

Раздел идентификации предоставляет основную информацию об идентификации программы, присваивая ей имя и, по желанию, определяя некоторые характеристики высокого уровня через восемь предопределённых абзацев, которые могут быть указаны.

1. Приведённые выше абзацы могут быть записаны в любом порядке.
2. Зарезервированные слова AS, IS и PROGRAM являются необязательными и могут быть включены или опущены по усмотрению программиста. Наличие или отсутствие этих слов не влияет на программу.
3. Пункт Type Clause может быть записан только при указании PROGRAM-ID. Если он указан, необходимо указать COMMON, COMMON INITIAL или COMMON RECURSIVE.
4. Хотя заголовки IDENTIFICATION DIVISION или ID DIVISION необязательны, абзацы PROGRAM-ID / FUNCTION-ID — нет; может быть указан только один из них.
5. Переключатель компилятора -Wobsolete заставит компилятор GnuCOBOL выдавать предупреждающие сообщения, если используется устаревший синтаксис (или любой другой устаревший синтаксис) в программе.
6. Если указан, literal-1 должен быть фактическим алфавитно-цифровым литералом и не может быть фигуральной константой.
7. Абзацы PROGRAM-ID и FUNCTION-ID служат для идентификации программы для внешней среды (т. е. операционной системы). Если нет пункта AS, program-id будет служить этой внешней идентификацией. Если указан пункт AS, указанный литерал будет служить внешней идентификацией. В дальнейшем в этом документе эта «внешняя идентификация» будет называться основным именем точки входа.
8. Слова INITIAL, COMMON и RECURSIVE используются только внутри подпрограмм, выполняющих роль подпрограмм. Их назначение таково:
   1. COMMON следует использовать только внутри подпрограмм, которые являются вложенными подпрограммами. Вложенную подпрограмму, объявленную как COMMON, можно вызывать из любой вложенной программы в исходном файле, который компилируется, а не только из тех, которые находятся «выше» её в структуре вложения.
   2. Пункт RECURSIVE, если он есть, заставит компилятор сгенерировать другой объектный код для подпрограммы, который позволит ей вызывать себя и правильно возвращаться в программу, которая её вызвала.

      Пользовательские функции (т. е. FUNCTION-ID) всегда рекурсивны.

   3. Пункт INITIAL, если он указан, гарантирует, что подпрограмма будет находиться в своём начальном (т. е. скомпилированном) состоянии каждый раз при выполнении, а не только в первый раз.

5. РАЗДЕЛ ОКРУЖАЮЩЕЙ СРЕДЫ

Синтаксис РАЗДЕЛА ОКРУЖАЮЩЕЙ СРЕДЫ

   ENVIRONMENT DIVISION.
   ~~~~~~~~~~~ ~~~~~~~~
 [ CONFIGURATION SECTION. ]
   ~~~~~~~~~~~~~ ~~~~~~~~
 [ SOURCE-COMPUTER.         Compilation-Computer-Specification . ]
   ~~~~~~~~~~~~~~~
 [ OBJECT-COMPUTER.         Execution-Computer-Specification . ]
   ~~~~~~~~~~~~~~~
 [ SPECIAL-NAMES.           Program-Configuration-Specification . ]
   ~~~~~~~~~~~~~
 [ REPOSITORY.              Function-Specification... . ]
   ~~~~~~~~~~
 [ INPUT-OUTPUT SECTION. ]
   ~~~~~~~~~~~~ ~~~~~~~
 [ FILE-CONTROL.            General-File-Description... . ]
   ~~~~~~~~~~~~
 [ I-O-CONTROL.             File-Buffering Specification... . ]
   ~~~~~~~~~~~

Этот раздел определяет внешнюю вычислительную среду, в которой будет работать программа. Это включает в себя определение любых файлов, которые может использовать программа.

• Если оба необязательных раздела этого раздела записаны, они должны быть записаны в указанном порядке.
• Абзацы внутри разделов могут быть записаны в любом порядке.
• Эти разделы состоят из ряда специфических, предопределённых абзацев (SOURCE-COMPUTER и OBJECT-COMPUTER, например), каждый из которых служит определённой цели. Если для цели, которую служит абзац, не требуется код, весь абзац можно опустить.
• Если какой-либо из абзацев в одном из разделов указан, сам заголовок раздела должен быть указан.
• Если ни один из абзацев в одном из разделов не указан, сам заголовок раздела можно опустить.
• Если ни один из разделов в разделе среды не указан, сам заголовок ENVIRONMENT DIVISION. можно опустить.

5.1. РАЗДЕЛ КОНФИГУРАЦИИ

Синтаксис РАЗДЕЛА КОНФИГУРАЦИИ

   CONFIGURATION SECTION.
   ~~~~~~~~~~~~~ ~~~~~~~
 [ SOURCE-COMPUTER. Compilation-Computer-Specification . ]
   ~~~~~~~~~~~~~~~
 [ OBJECT-COMPUTER. Execution-Computer-Specification . ]
   ~~~~~~~~~~~~~~~
 [ SPECIAL-NAMES.   Program-Configuration-Specification . ]
   ~~~~~~~~~~~~~
 [ REPOSITORY.      Function-Specification... . ]
   ~~~~~~~~~~

Этот раздел определяет компьютерную систему, на которой компилируется и выполняется программа, а также указывает любые специальные характеристики конфигурации среды или совместимости.

1. Четыре абзаца в этом разделе могут быть указаны в любом порядке, но если не в этом порядке, будет выведено предупреждение.
2. Раздел конфигурации не разрешён во вложенных подпрограммах. Вложенная программа наследует настройки раздела конфигурации своей родительской программы.
3. Если ни одна из функций, предоставляемых разделом конфигурации, не требуется программой, сам заголовок CONFIGURATION SECTION. может быть опущен из программы.

5.1.1. SOURCE-COMPUTER

Синтаксис SOURCE-COMPUTER

 SOURCE-COMPUTER. computer-name [ WITH DEBUGGING MODE ] .
 ~~~~~~~~~~~~~~~                       ~~~~~~~~~ ~~~~

Этот абзац определяет компьютер, на котором компилируется программа, и предоставляет один способ активации отладочного кода, встроенного в программу.

1. Зарезервированное слово WITH является необязательным и может быть опущено. Наличие или отсутствие этого слова не влияет на программу.
2. Этот абзац не разрешен во вложенной подпрограмме. Вложенная программа наследует настройки SOURCE-COMPUTER родительской программы.
3. Значение, указанное для computer-name, не имеет значения, при условии, что это действительное слово COBOL, которое не совпадает ни с одним зарезервированным словом GnuCOBOL. Значение computer-name может содержать пробелы. Это необязательно должно совпадать со значением computer-name, используемым в абзаце OBJECT-COMPUTER, если таковой имеется.
4. Оператор DEBUGGING MODE, если он присутствует, информирует компилятор о том, что строки отладки (те, у которых в 7-м столбце есть ‘D’ в режиме фиксированного исходного кода или те, которые начинаются с >>D в режиме свободного исходного кода) — обычно обрабатываемые как комментарии — должны быть скомпилированы.
5. Даже без оператора DEBUGGING MODE, строки отладки по-прежнему можно скомпилировать. Строки отладки также можно скомпилировать, указав переключатель -fdebugging-line компилятору GnuCOBOL.

5.1.2. ОБЪЕКТ-КОМПЬЮТЕР

Синтаксис ОБЪЕКТ-КОМПЬЮТЕР

 OBJECT-COMPUTER.  [ computer-name ]
 ~~~~~~~~~~~~~~~
 [ MEMORY SIZE IS integer-1 WORDS|CHARACTERS ]
   ~~~~~~ ~~~~              ~~~~~ ~~~~~~~~~~
 [ PROGRAM COLLATING SEQUENCE IS alphabet-name-1 ]
           ~~~~~~~~~
 [ SEGMENT-LIMIT IS integer-2 ]
   ~~~~~~~~~~~~~
 [ CHARACTER CLASSIFICATION IS { locale-name-1  } ]
             ~~~~~~~~~~~~~~    { LOCALE         }
                               { ~~~~~~         }
                               { USER-DEFAULT   }
                               { ~~~~~~~~~~~~   }
                               { SYSTEM-DEFAULT }
                                 ~~~~~~~~~~~~~~
 .

Операторы MEMORY SIZE и SEGMENT-LIMIT синтаксически распознаются, но в остальном не функциональны.

Этот абзац описывает компьютер, на котором будет выполняться программа.

1. computer-name, если указано, должен следовать непосредственно за именем абзаца OBJECT-COMPUTER. Остальные операторы могут быть записаны в любом порядке.
2. Зарезервированные слова CHARACTER, IS, PROGRAM и SEQUENCE являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
3. Значение, указанное для computer-name, если оно есть, не имеет значения, при условии, что это действительное слово COBOL, которое не совпадает ни с одним зарезервированным словом GnuCOBOL. computer-name может содержать пробелы. Это необязательно должно совпадать со значением computer-name, используемым в абзаце SOURCE-COMPUTER, если таковой имеется.
4. Абзац OBJECT-COMPUTER не разрешен во вложенной подпрограмме. Вложенная программа наследует настройки OBJECT-COMPUTER родительской программы.
5. Оператор COLLATING SEQUENCE позволяет указать настроенную последовательность сортировки символов для сравнения алфавитно-цифровых значений. Данные всё равно будут храниться в нативном наборе символов компьютера, но логическая последовательность упорядочения символов для целей сравнения может быть изменена по сравнению с определённой нативным набором символов компьютера. alphabet-name-1, который вы указываете, должен быть определён в абзаце SPECIAL-NAMES (см. SPECIAL-NAMES).
6. Если не указан оператор COLLATING SEQUENCE, будет использоваться последовательность сортировки, подразумеваемая нативным набором символов компьютера (обычно ASCII).
7. Необязательный оператор CLASSIFICATION может быть использован для указания локали для среды выполнения программы, чтобы повлиять на сопоставление прописных и строчных букв символов для функций UPPER-CASE (см. UPPER-CASE) и LOWER-CASE (см. LOWER-CASE) и классификации символов для проверок класса ALPHABETIC, ALPHABETIC-LOWER и ALPHABETIC-UPPER. Определения этих классов взяты из спецификации культурных соглашений (LC_CTYPE) из указанной локали.

   Значения четырёх спецификаций локали следующие:

   1. locale-name-1 ссылается на определение LOCALE (см. SPECIAL-NAMES).
   2. Ключевое слово LOCALE относится к текущей локали (действующей в момент выполнения программы)
   3. Ключевое слово USER-DEFAULT относится к локали по умолчанию, указанной для пользователя, выполняющего эту программу.
   4. Ключевое слово SYSTEM-DEFAULT обозначает локаль по умолчанию, указанную для компьютера, на котором выполняется программа.
8. Отсутствие оператора CLASSIFICATION приведет к классификации символов в соответствии с правилами нативного набора символов компьютера (ASCII, EBCDIC и т. д.).

5.1.3. SPECIAL-NAMES

Синтаксис SPECIAL-NAMES

 SPECIAL-NAMES.
 ~~~~~~~~~~~~~
  [ CALL-CONVENTION integer-1 IS mnemonic-name-1 ]
    ~~~~~~~~~~~~~~~
  [ CONSOLE IS CRT ]
    ~~~~~~~    ~~~
  [ CRT STATUS IS identifier-1 ]
    ~~~ ~~~~~~
  [ CURRENCY SIGN IS literal-1 ]
    ~~~~~~~~ ~~~~
  [ CURSOR IS identifier-2 ]
    ~~~~~~
  [ DECIMAL-POINT IS COMMA ]
    ~~~~~~~~~~~~~    ~~~~~
  [ EVENT STATUS IS identifier-3 ]
    ~~~~~ ~~~~~~
  [ LOCALE locale-name-1 IS literal-2 ]...
    ~~~~~~
  [ NUMERIC SIGN IS TRAILING SEPARATE ]
    ~~~~~~~ ~~~~    ~~~~~~~~ ~~~~~~~~
  [ SCREEN CONTROL IS identifier-4 ]
    ~~~~~~ ~~~~~~~
  [ device-name-1 IS mnemonic-name-2 ]...

  [ feature-name-1 IS mnemonic-name-3 ]...

  [ Alphabet-Clause ]...

  [ Class-Definition-Clause ]...

  [ Switch-Definition-Clause ]...

  [ Symbolic-Characters-Clause ]...
  .

Операторы EVENT STATUS и SCREEN CONTROL синтаксически распознаются, но в остальном не функциональны.

Абзац SPECIAL-NAMES предоставляет способ указания различных параметров конфигурации программы и операционной среды.

1. Различные пункты, которые могут быть указаны в параграфе SPECIAL-NAMES, могут быть закодированы в любом порядке.
2. Зарезервированное слово IS является необязательным и может быть опущено. Наличие или отсутствие этого слова не влияет на программу.
3. Параграф SPECIAL-NAMES не допускается во вложенной подпрограмме. Вложенная программа наследует настройки SPECIAL-NAMES своей родительской программы.
4. Только заключительный пункт, указанный в этом параграфе, должен заканчиваться точкой.
5. Пункт CALL-CONVENTION позволяет связать десятичное целое число, представляющее серию установок переключателей ВКЛ/ВЫКЛ, со смысловым именем, которое затем можно закодировать в операторе CALL (см. CALL). Установки переключателей, определенные этим смысловым именем, затем будут контролировать, как будет обрабатываться связь с подпрограммой, вызванной оператором CALL, который ссылается на mnemonic-name-1.
6. Пункт CONSOLE IS CRT, если указан, заставит оператор DISPLAY, у которого отсутствует явный пункт UPON, быть обработанным как оператор DISPLAY screen-data-item (см. DISPLAY screen-data-item), а любой оператор ACCEPT, у которого отсутствует пункт FROM, быть обработанным как оператор ACCEPT screen-data-item (см. ACCEPT screen-data-item).
7. Если пункт CRT STATUS не указан, будет выделен неявный идентификатор COB-CRT-STATUS (со PICTURE 9(4)) для получения статусов экрана ACCEPT. Если CRT STATUS указан, то identifier-1 должен быть определен в программе как поле PICTURE 9(4).
8. Пункт CURRENCY SIGN может быть использован для переопределения символа, используемого в качестве знака валюты в пункте PICTURE (см. PICTURE). Знак валюты по умолчанию – знак доллара (‘$’). Вы можете указать любой символ, *кроме* 0-9, A-Z, a-z, +, -, ,, ., *, /, ;, (, ), =, \\, кавычки (‘"’) или пробела.
9. Пункт CURSOR IS позволяет указать элемент данных из 4 или 6 символов, в который будет помещено положение курсора на экране в момент удовлетворения запроса экрана ACCEPT. Значение будет возвращено как *rrcc* или *rrrccc*, в зависимости от длины указанного identifier-2, где *rr* и *rrr* представляют номер строки (начиная с нуля), а *cc* и *ccc* – номер столбца (также начиная с нуля). Если пункт CURSOR IS не указан, то выделенный элемент данных для этого нет, и программисту необходимо определить identifier-2, если этот пункт указан.
10. Пункт DECIMAL POINT IS COMMA меняет определение символов ‘,’ и ‘.’ при использовании их как символов редактирования PICTURE и в числовых литералах. Это может иметь нежелательные последствия – см. Punctuation.
11. Пункт LOCALE может быть использован для связывания внешних названий локалей, определенных ОС (literal-2), с внутренним именем (locale-name-1), которое затем может быть использовано в программе. Имена локалей определяются операционной системой и/или компилятором C, который будет использоваться GnuCOBOL на вашем компьютере.

1. Ниже приведен список возможных кодов локали, например, доступных на компьютере Windows, на котором запущена версия GnuCOBOL, скомпилированная с использованием эмулятора Unix MinGW и компилятора GNU C (gcc):

   А

   af_ZA, am_ET, ar_AE, ar_BH, ar_DZ, ar_EG, ar_IQ, ar_JO, ar_KW, ar_LB, ar_LY, ar_MA, ar_OM, ar_QA, ar_SA, ar-SY, ar_TN, ar_YE, arn_CL, as_IN, az_Cyrl_AZ, az_Latn_AZ

   Б

   ba_R, be_BY, bg_BG, bn_IN bo_BT, bo_CN, br_FR, bs_Cyrl_BA, bs_Latn_BA

   В

   ca_ES, cs_CZ, cy_GB

   Г

   da_DK, de_AT, de_CH, de_DE, de_LI, de_LU, dsb_DE, dv_MV

   Д

   el_GR, en_029, en_AU, en_BZ, en_CA, en_GB, en_IE, en_IN, en_JM, en_MY en_NZ, en_PH, en_SG, en_TT, en_US, en_ZA, en_ZW, es_AR, es_BO, es_CL, es_CO, es_CR, es_DO, es_EC, es_ES, es_GT, es_HN, es_MX, es_NI, es_PA, es_PE, es_PR, es_PY, es_SV, es_US, es_UY es_VE, et_EE, eu_ES

   Е

   fa_IR, fi_FI, fil_PH, fo_FO, fr_BE, fr_CA, fr_CH, fr_FR, fr_LU, fr_MC, fy_NL

   Ж

   ga_IE, gbz_AF, gl_ES, gsw_FR, gu_IN

   З

   ha_Latn_NG, he_IL, hi_IN, hr_BA, hr_HR, hu_HU, hy_AM

   И

   id_ID, ig_NG, ii_CN, is_IS, it_CH, it_IT, iu_Cans_CA, iu_Latn_CA

   К

   ja_JP

   Л

   ka_GE, kh_KH, kk_KZ, kl_GL, kn_IN, ko_KR, kok_IN, ky_KG

   М

   lb_LU, lo_LA, lt_LT, lv_LV

   Н

   mi_NZ, mk_MK, ml_IN, mn_Cyrl_MN, mn_Mong_CN moh_CA, mr_IN, ms_BN, ms_MY, mt_MT

   О

   nb_NO, ne_NP, nl_BE, nl_NL, nn_NO, ns_ZA

   П

   oc_FR, or_IN

   Р

   pa_IN, pl_PL, ps_AF, pt_BR, pt_PT

   С

   qut_GT, quz_BO, quz_EC, quz_PE

   Т

   rm_CH, ro_RO, ru_RU, rw_RW

   У

   sa_IN, sah_RU, se_FI, se_NO se_SE, si_LK, sk_SK, sl_SI, sma_NO, sma_SE, smj_NO, smj_SE, smn_FI, sms_FI, sq_AL, sr_Cyrl_BA, sr_Cyrl_CS, sr_Latn_BA, sr_Latn_CS, sv_FI, sv_SE, sw_KE syr_SY

   Ф

   ta_IN, te_IN, tg_Cyrl_TJ, th_TH tk_TM, tmz_Latn_DZ, tn_ZA, tr_IN, tr_TR, tt_RU

   Х

   ug_CN, uk_UA, ur_PK, uz_Cyrl_UZ, uz_Latn_UZ

   Ц

   vi_VN

   Ч

   wen_DE, wo_SN

   Ш

   xh_ZA

   Щ

   yo_NG

   З

   zh_CN, zh_HK, zh_MO, zh_SG, zh_TW, zu_ZA

2. Указание NUMERIC SIGN TRAILING SEPARATE вызывает создание всех подписанных числовых USAGE DISPLAY элементов данных так, как если бы в их определениях была включена фраза SIGN IS TRAILING SEPARATE CHARACTER.
3. Фраза device-name-1 IS mnemonic-name-2 позволяет указать альтернативное имя (device-name-1) для одного из встроенных имен устройств GnuCOBOL mnemonic-name-2. Список имен устройств, встроенных в GnuCOBOL, и физическое устройство, связанное с этим именем, следующие:

   CONSOLE

   Это (режим экрана) дисплей ПК или системы Unix.

   STDIN

   SYSIN

   SYSIPT

   Эти устройства (они все являются синонимами) представляют стандартный ввод системы (поток 0). В системе PC или UNIX это обычно клавиатура. Содержимое файла может быть передано программе GnuCOBOL для доступа через одно из этих имен устройств путем добавления последовательности «0< имя_файла» в конец команды выполнения программы.

   PRINTER

   STDOUT

   SYSLIST

   SYSLST

   SYSOUT

   Эти устройства (они все являются синонимами) представляют стандартный вывод системы (поток 1). В системе PC или UNIX это обычно дисплей. Вывод, отправленный одному из этих устройств программой GnuCOBOL, может быть отправлен в файл путем добавления последовательности «1> имя_файла» в конец команды выполнения программы.

   STDERR

   SYSERR

   Эти устройства (они являются синонимами) представляют стандартный вывод ошибок системы (поток 2). В системе PC или UNIX это обычно дисплей. Вывод, отправленный одному из этих устройств программой GnuCOBOL, может быть отправлен в файл путем добавления последовательности «2> имя_файла» в конец команды выполнения программы.

4. Фраза feature-name-1 IS mnemonic-name-3 позволяет назначать мнемонические имена до 13 позициям каналов принтера (т.е. вертикальное позиционирование страницы) с именами функций Cnn (nn=01-12) и CSP. После того, как позиции канала получили мнемоническое имя, можно записать указанный печатный документ в позиции канала, назначенного mnemonic-name-3 , используя оператор WRITE record-name AFTER ADVANCING mnemonic-name-3.

   Принтеры, поддерживающие позиционирование каналов, обычно являются принтерами типа мэйнфреймов. При записи на принтеры, не поддерживающие позиционирование каналов, будет выдан управляющий символ перехода на новую страницу.

   Опция позиционирования CSP означает «без пробелов». Тестирование на сборке MinGW GnuCOBOL показывает, что это также приводит к выводу управляющего символа перехода на новую страницу.

5.1.3.1. Оператор_имени_алфавита

Синтаксис_оператор_спец_имен_Алфавит

 ALPHABET alphabet-name-1 IS { ASCII             }
 ~~~~~~~~                    { ~~~~~             }
                             { EBCDIC            }
                             { ~~~~~~            }
                             { NATIVE            }
                             { ~~~~~~            }
                             { STANDARD-1        }
                             { ~~~~~~~~~~        }
                             { STANDARD-2        }
                             { ~~~~~~~~~~        }
                             { Literal-Clause... }

Синтаксис_оператор_спец_имен_Алфавит_буквальный

 literal-1 [ { THRU|THROUGH literal-2 } ]
             { ~~~~ ~~~~~~~           }
             { {ALSO literal-3}...    }
                ~~~~

Оператор ALPHABET связывает alphabet-name-1 со специфицированным набором символов или порядком сортировки, включая набор, определённый вами с помощью опции literal-1.

1. Зарезервированное слово IS является необязательным и может быть опущено. Наличие или отсутствие этого слова не оказывает влияния на программу.
2. Зарезервированные слова THRU и THROUGH взаимозаменяемы.
3. GnuCOBOL считает ASCII, STANDARD-1 и STANDARD-2 взаимозаменяемыми.
4. NATIVE указывает системный набор символов по умолчанию.
5. Следующие пункты относятся к использованию спецификаций literal-n для составления настраиваемого набора символов:
   1. Значения literal-n являются либо целыми числами, либо буквенно-цифровыми символами в кавычках. Они представляют собой отдельный символ в наборе символов NATIVE, либо по фактическому текстовому значению (буквенно-цифровой символ в кавычках), либо по порядковому номеру в наборе символов NATIVE (целое число).
   2. Последовательность определения символов в этом операторе определяет относительный порядок этих символов при сравнениях с использованием этого алфавита.
   3. Позиции символов в этом списке не влияют на фактические значения двоичного представления символов. Двоичные значения всё равно будут теми, что соответствуют набору символов NATIVE.
   4. Вы можете указать любые из фигуративных констант SPACE, SPACES, ZERO, ZEROS, ZEROES, QUOTE, QUOTES, HIGH-VALUE, HIGH-VALUES, LOW-VALUE или LOW-VALUES для любых спецификаций literal-1, literal-2 или literal-3.
6. После определения имени алфавита это имя может быть использовано в спецификациях в CODE-SET, COLLATING SEQUENCE, или SYMBOLIC CHARACTERS операторах в другой части программы.

5.1.3.2. Оператор определения класса

Синтаксис оператора определения класса SPECIAL-NAMES

 CLASS class-name-1 IS { literal-1 [ THRU|THROUGH literal-2 ] }...
 ~~~~~                               ~~~~ ~~~~~~~

1. Зарезервированное слово IS является необязательным и может быть опущено. Наличие или отсутствие этого слова не оказывает влияния на программу.
2. Зарезервированные слова THRU и THROUGH взаимозаменяемы.
3. И literal-1, и literal-2 должны быть буквенно-цифровыми литералами длиной 1.
4. Литерал(ы), указанные в этом операторе, определяют возможные символы, которые могут быть найдены в значении элемента данных, чтобы считаться частью класса.
5. Например, следующее определяет класс под названием Hexadecimal, определение которого указывает единственные символы, которые могут присутствовать в буквенно-цифровом элементе данных, если этот элемент данных должен быть частью класса Hexadecimal:

   CLASS Hexadecimal IS '0' THRU '9'
                        'A' THRU 'F'
                        'a' THRU 'f'
   

6. После определения класса Hexadecimal, код программы может использовать оператор, такой как IF input-item IS Hexadecimal, чтобы определить, являются ли значения символов в элементе данных допустимыми в соответствии с этим классом.

5.1.3.3. Оператор определения переключателя

Синтаксис оператора определения переключателя SPECIAL-NAMES

 switch-name-1 [ IS mnemonic-name-1 ]

   [ ON STATUS IS condition-name-1 ]
     ~~
   [ OFF STATUS IS condition-name-2 ]
     ~~~

Оператор определения переключателя связывает имя условия с переключателем исполнения во время выполнения, чтобы статус этого переключателя мог быть проверен в программе.

1. Зарезервированные слова IS и STATUS являются необязательными и могут быть опушены. Наличие или отсутствие этих слов не оказывает влияния на программу.
2. Допустимые имена switch-name-1 — это SWITCH-n (n = 0-36).
3. Если программа компилируется с переключателем -fsyntax-extension, имена переключателей SWn (n = 0-15) также являются допустимыми; они соответствуют SWITCH-0 через SWITCH-15, а также SWITCH-16 через SWITCH-36, SWITCH 0 через SWITCH 26 и SWITCH A через SWITCH Z.
4. Во время выполнения каждый переключатель будет связан с переменной среды выполнения COB_SWITCH_n, где n будет иметь значение ‘0’ до ‘15’. Любая из этих шестнадцати переменных среды, имеющая значение ON (независимо от регистра), будет считаться установленной «включённой». Любая из этих шестнадцати переменных среды, не имеющая значения или имеющая значение, отличное от ON, будет считаться OFF.
5. Каждый указанный переключатель должен иметь по крайней мере одну из опций IS mnemonic-name-1, ON STATUS или OFF STATUS, в противном случае не будет способа обратиться к переключателю внутри программы GnuCOBOL.
6. Синтаксис IS mnemonic-name-1 предоставляет способ установки переключателя в значение ON или OFF через оператор SET (см. SET).
7. Синтаксис ON STATUS и OFF STATUS предоставляет способ связывания имени условия с включённым или выключенным состоянием переключателя, чтобы статус можно было проверить во время выполнения с помощью оператора IF (см. IF).

5.1.3.4. Оператор символьных символов

Синтаксис оператора символьных символов SPECIAL-NAMES

 SYMBOLIC CHARACTERS
 ~~~~~~~~
   { symbolic-character-1... IS|ARE integer-1... }...

   [ IN alphabet-name-1 ]
     ~~

Этот оператор может быть использован для определения собственных фигуративных констант.

1. Зарезервированные слова ARE, CHARACTERS и IS являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.

2. Должно быть указано ровно столько значений integer-1, сколько существует имён symbolic-character-1.

3. Каждое имя символического символа будет ассоциировано с соответствующим integer-1-м символом в алфавите, указанном в IN пункте. Значения целых чисел выбирают символы из алфавита по их порядковому положению, а не по их числовому значению; таким образом, целое число 15 выберет 15-й символ в указанном алфавите, независимо от фактического числового значения битового шаблона, составляющего этот символ.
4. Если alphabet-name-1 не указан, предполагается системная кодовая страница.
5. Следующие два примера кода определяют один и тот же набор имён фиктивных констант для пяти управляющих символов ASCII (предполагается, что ASCII — это системная кодовая страница). Два примера идентичны по своему действию, хотя способ определения фиктивных констант различен.

   Индивидуально

   SYMBOLIC CHARACTERS NUL IS 1
                       SOH IS 2
                       BEL IS 8
                       DC1 IS 18
                       DC2 IS 19
   

   Соответственно

   SYMBOLIC CHARACTERS NUL SOH BEL DC1 DC2
                   ARE   1   2   8  18  19
   

5.1.4. РЕПОЗИТОРИЙ

Синтаксис РЕПОЗИТОРИЯ

 REPOSITORY.
 ~~~~~~~~~~
    FUNCTION { function-prototype-name-1 [ AS literal-1 ] }...
    ~~~~~~~~ {                             ~~             }
             { intrinsic-function-name-1 [ AS literal-2 ] }
             {                             ~~             }
             { intrinsic-function-name-2 INTRINSIC        }
             { ALL INTRINSIC             ~~~~~~~~~        }
               ~~~ ~~~~~~~~~

Параграф РЕПОЗИТОРИЙ предоставляет способ управления доступом к различным встроенным внутренним функциям и любым пользовательским функциям, которые будет использовать ваша программа.

1. Параграф REPOSITORY не допускается во вложенной подпрограмме. Вложенная программа наследует настройки REPOSITORY родительской программы.
2. Оператор INTRINSIC позволяет пометить одну или несколько (или ALL) встроенных внутренних функций как используемые без необходимости кодирования ключевого слова FUNCTION перед именами функций.
3. В качестве альтернативы использованию оператора ALL INTRINSIC, вы можете скомпилировать свои программы GnuCOBOL, используя переключатель -fintrinsics=ALL.
4. Параметр function-prototype-name-1 необходим для указания имени пользовательской функции, которую будет использовать ваша программа. Дополнительно, если потребуется, вы можете указать псевдоним, по которому вы будете ссылаться на эту пользовательскую функцию. Если нужно, вы также можете использовать оператор AS для предоставления псевдонима для встроенной внутренней функции.
5. В следующем примере
   • разрешаются все встроенные функции для указания без использования ключевого слова FUNCTION,
   • называются две пользовательские функции под названием MY-FUNCTION-1 и MY-FUNCTION-2, которые будут использоваться программой, и
   • указываются псевдонимы SIGMA для внутренней функции STANDARD-DEVIATION и MF2 для MY-FUNCTION-2.

   REPOSITORY.
       FUNCTION ALL INTRINSIC.
       FUNCTION MY-FUNCTION-1.
       FUNCTION MY-FUNCTION-2 AS "MF2".
       FUNCTION STANDARD-DEVIATION AS "SIGMA".
   

Замечание о пользовательских функциях — поскольку вам необходимо назвать пользовательскую функцию, которую будет использовать ваша программа в параграфе REPOSITORY, вы всегда можете ссылаться на эту функцию в разделе процедур своей программы без необходимости использования ключевого слова FUNCTION.

5.2. ВВОД-ВЫВОД

Синтаксис ВВОД-ВЫВОД

 [ INPUT-OUTPUT SECTION. ]
   ~~~~~~~~~~~~ ~~~~~~~
 [ FILE-CONTROL. ]
   ~~~~~~~~~~~~
     [ SELECT-Statement... ]

 [ I-O-CONTROL. ]
   ~~~~~~~~~~~
     [ MULTIPLE-FILE-Statement ]

     [ SAME-RECORD-Statement ]

Раздел INPUT-OUTPUT предоставляет определение всех файлов, к которым будет обращаться программа, а также управление буферизацией ВВОД-ВЫВОД для этих файлов посредством параграфов FILE-CONTROL и I-O-CONTROL соответственно.

1. Как показывает диаграмма, в двух параграфах этого раздела могут встречаться три типа операторов. Если ни один из операторов не закодирован в конкретном параграфе, этот параграф может быть опущен, в противном случае он требуется.
2. Если ни один параграф не закодирован, заголовок INPUT-OUTPUT SECTION. сам по себе может быть опущен, в противном случае он обычно требуется.
3. Если в файле конфигурации компилятора (см. Файлы конфигурации компилятора) используется параметр relaxed-syntax-check со значением ‘yes’, параграфы FILE-CONTROL и I-O-CONTROL могут быть указаны без кодирования заголовка INPUT-OUTPUT SECTION.
4. Если оба типа операторов закодированы в параграфе I-O-CONTROL, порядок их кодирования не имеет значения.

5.2.1. ВЫБОР

Синтаксис оператора ВЫБОР

 SELECT [ [ NOT ] OPTIONAL ] file-name-1
 ~~~~~~     ~~~   ~~~~~~~~
 [ ASSIGN { TO    } [{ EXTERNAL }] [{ DISC|DISK      }] [{ identifier-1 }] ]
   ~~~~~~ { USING }  { ~~~~~~~~ }   { ~~~~ ~~~~      }   { word-1       }
                     { DYNAMIC  }   { DISPLAY        }   { literal-1    }
                       ~~~~~~~      { ~~~~~~~        }
                                    { KEYBOARD       }
                                    { ~~~~~~~~       }
                                    { LINE ADVANCING }
                                    { ~~~~ ~~~~~~~~~ }
                                    { PRINTER        }
                                    { ~~~~~~~        }
                                    { RANDOM         }
                                    { ~~~~~~         }
                                    { TAPE           }
                                      ~~~~
 [ COLLATING SEQUENCE IS alphabet-name-1 ]
   ~~~~~~~~~
 [ FILE|SORT ] STATUS IS identifier-2 [ identifier-3 ] ]
   ~~~~ ~~~~   ~~~~~~
 [ LOCK MODE IS { MANUAL|AUTOMATIC                                } ]
   ~~~~         { ~~~~~~ ~~~~~~~~~                                }
                { EXCLUSIVE [ WITH { LOCK ON MULTIPLE RECORDS } ] }
                  ~~~~~~~~~        { ~~~~ ~~ ~~~~~~~~ ~~~~~~~ }
                                   { LOCK ON RECORD           }
                                   { ~~~~ ~~ ~~~~~~           }
                                   { ROLLBACK                 }
                                   { ~~~~~~~~                 }
 [ ORGANIZATION Clause ]
   ~~~~~~~~~~~~
 [ ORGANISATION Clause ]
   ~~~~~~~~~~~~
 [ RECORD DELIMITER IS STANDARD-1 ]
   ~~~~~~ ~~~~~~~~~    ~~~~~~~~~~
 [ RESERVE integer-1 AREAS ]
   ~~~~~~~
 [ SHARING WITH { ALL OTHER } ]
   ~~~~~~~      { ~~~       }
                { NO OTHER  }
                { ~~        }
                { READ ONLY }
                  ~~~~ ~~~~

Операторы COLLATING SEQUENCE, RECORD DELIMITER, RESERVE и ALL OTHER синтаксически распознаются, но при этом не выполняют никаких действий.

Оператор SELECT создаёт определение файла и связывает это определение COBOL с внешней операционной средой.

1. Зарезервированные слова AREAS, IS, MODE, OTHER, SEQUENCE, TO, USING и WITH являются необязательными и могут быть опущены. Их присутствие или отсутствие не влияет на программу.
2. После file-name-1 различные предложения можно указывать в любом порядке.
3. После последнего предложения должно стоять точка.
4. Предложение OPTIONAL, используемое только для файлов, которые будут использоваться для ввода данных в программу, указывает, что файл может или не может быть доступен во время выполнения. Попытки OPEN файла OPTIONAL при отсутствии файла приведут к специальному значению состояния файла (см. статус 05 в списке значений статуса файла ниже), указывающему, что файла нет; последующая попытка READ этого файла вернёт состояние "конец файла" (end-of-file). По желанию файлы могут быть обозначены как NOT OPTIONAL. Это полезно при указании переключателя компилятора -foptional-file, который автоматически делает все файлы OPTIONAL за исключением тех, которые явно объявлены как NOT OPTIONAL.
5. Значение file-name-1, которое вы укажете, будет именем, с помощью которого вы будете ссылаться на файл в вашей программе. Это имя должно соответствовать правилам для имен, определённых пользователем (см. Пользовательские слова).
6. Необязательное предложение ASSIGN определяет, как — во время выполнения, когда file-name-1 открывается — будет ассоциирован либо логический прибор (STDIN, STDOUT) либо файл в любой точке одной из смонтированных файловых систем с file-name-1, следующим образом:
   1. Предложение ASSIGN состоит из трёх компонентов:

      Type

      EXTERNAL, DYNAMIC или ни то ни другое

      Device

      список вариантов устройств

      Locator

      представлен как выбор между identifier-1, word-1 и literal-1.

   2. ASSIGN TO DISC file-name-1 будет предположено, если нет предложения ASSIGN в SELECT.
   3. Если предложение ASSIGN записано без Device, будет предполагаться устройство DISC.
   4. Если указано предложение Locator, файл COBOL file-name-1 будет присоединён к файлу данных в любой смонтированной и доступной файловой системе в момент открытия file-name-1. Способ идентификации этого файла зависит от указанного Locator, как показано ниже:
      1. Если указано literal-1, значение литерала послужит строкой расположения файла, которая идентифицирует файл данных.
      2. Если указано identifier-1, значение идентификатора послужит строкой расположения файла, которая идентифицирует файл данных.
      3. Если указано word-1 (синтаксически допустимое слово, не дублирующее зарезервированное или пользовательское слово), и Type имеет значение EXTERNAL, то само word-1 послужит строкой расположения файла, которая идентифицирует файл данных. Однако, если Type не указан, компилятор создаст элемент данных PIC X(1024) с именем word-1 в программе; содержимое этого элемента данных в момент открытия программы file-name-1 послужит строкой расположения файла, которая идентифицирует файл данных.
      4. Строки расположения файлов будут рассмотрены вскоре.
   5. Если предложение Locator не указано, file-name-1 будет присоединён к логическому устройству или файлу на основе указанного (или предполагаемого) Device, как показано ниже:
      1. DISC или DISK предполагают присоединение к файлу с именем file-name-1 в текущей директории в момент открытия файла.
      2. DISPLAY предполагает присоединение к логическому устройству STDOUT; эти файлы следует использовать только для вывода.
      3. KEYBOARD предполагает присоединение к логическому устройству STDIN; эти файлы следует использовать только для ввода.
      4. PRINTER предполагает присоединение к логическому устройству/порту LPT1; эти файлы следует использовать только для вывода.
      5. RANDOM или TAPE ведут себя точно так же, как и DISC. Эти два дополнительных Device предоставляются для облегчения компиляции исходного кода COBOL из других реализаций COBOL.
   6. Устройство LINE ADVANCING требует указания Locator; эти файлы следует использовать только для вывода. Файл COBOL с продвижением строк позволит писать символы управления переводом строки, такие как символы перевода строки и перевода страницы, в присоединённый файл операционной системы через предложение ADVANCING оператора WRITE (см. WRITE).
   7. Строки расположения файлов используются (во время выполнения) для идентификации пути и имени файла данных, который должен быть присоединён к file-name-1 при открытии этого файла.

1. 1. Если в файле конфигурации компилятора (см. Файлы конфигурации компилятора) для компиляции программы было задано значение filename-mapping, равное yes, система выполнения GnuCOBOL сначала попытается определить текущую переменную среды, значение которой будет использоваться в качестве пути и имени файла данных, следующим образом:
      1. Если в файле конфигурации компилятора (см. Файлы конфигурации компилятора) (см. Файлы конфигурации компилятора) для компиляции программы было задано значение mf в качестве assign-clause, то строка поиска файла будет интерпретироваться в соответствии с правилами Microfocus COBOL — а именно, всё перед последним символом «-» в строке поиска файла будет проигнорировано; символы после последнего «-» будут рассматриваться как основа имени переменной среды. Если символ «-» отсутствует в строке поиска файла, вся строка поиска файла будет служить основой имени переменной среды. Это поведение по умолчанию для каждого файла конфигурации, кроме ibm.
      2. Если же в файле конфигурации компилятора (см. Файлы конфигурации компилятора) для компиляции программы было задано значение mf в качестве assign-clause, то строка поиска файла будет интерпретироваться в соответствии с правилами IBM COBOL — а именно, ожидается, что строка поиска файла будет иметь вид S-xxx или AS-xxx, в этом случае xxx будет рассматриваться как основа имени переменной среды. Если символ «-» отсутствует в строке поиска файла, вся строка поиска файла будет служить основой имени переменной среды.
      3. После определения основы имени переменной среды (назовём её bbbb), система выполнения будет искать первую из следующих переменных среды, которая существует в указанном порядке:

         DD_bbbb
         dd_bbbb
         bbbb
         

         В системах Windows регистр переменных среды не учитывается, поэтому при использовании реализации GnuCOBOL, созданной для Windows/MinGW или нативной Windows, нет разницы между первыми двумя.

         Если переменная среды найдена, её значение будет использоваться в качестве пути и имени файла данных.

   2. Если переменная среды не найдена или в файле конфигурации компилятора (см. Файлы конфигурации компилятора), используемом для компиляции программы, значение filename-mapping равно NO, тогда значение строки поиска файла будет использоваться в качестве пути и имени файла данных.
   3. Пути и имена файлов могут быть указаны на абсолютной (C:\\Data\\datafile.dat, /Data/datafile.dat, …) или относительной (Data\\datafile.dat, Data/datafile.dat, …) к текущей директории основе. Если имя директории не указано (datafile.dat), файл должен находиться в текущей директории.

1. Оператор FILE STATUS или SORT STATUS (они эквивалентны и только один из них, если нужно, должен быть указан) используется для указания имени двузначного числового элемента данных, в который будет сохранён код состояния ввода-вывода после выполнения любой команды ввода-вывода для файла. Это не приводит к фактическому выделению элемента данных — вы должны определить его самостоятельно в разделе данных. Обратите внимание, что следующий список не является исчерпывающим: можно добавить больше элементов, а все тесты должны включать проверку на значения, отличные от нуля, как общий случай. Возможные коды состояния, которые могут быть возвращены в элемент данных FILE STATUS, следующие:

   00

   Успех

   02

   Успех (запись с дублирующим ключом)

   04

   Успех (неполный)

   05

   Успех (необязательный файл не найден)

   07

   Успех (нет устройства)

   10

   Достигнут конец файла при чтении вперёд или начало файла при чтении назад

   14

   Выход за пределы диапазона ключа

   21

   Неверный ключ

   22

   Ключ уже существует

   23

   Ключ не найден

   24

   Нарушение границ ключа

   30

   Постоянная ошибка ввода-вывода

   31

   Несогласованное имя файла

   34

   Нарушение границ

   35

   Файл не найден

   37

   Доступ запрещён

   38

   Закрыто с блокировкой

   39

   Конфликт атрибутов

   41

   Файл уже открыт

   42

   Файл не открыт

   43

   Чтение не завершено

   44

   Переполнение записи

   46

   Ошибка чтения

   47

   Доступ OPEN INPUT запрещён (недостаточно прав для чтения файла)

   48

   Доступ OPEN OUTPUT запрещён (недостаточно прав для записи в файл)

   49

   Доступ OPEN I-O запрещён (недостаточно прав для чтения и/или записи файла)

   51

   Запись заблокирована

   52

   Конец страницы

   57

   LINAGE некорректное описание (строка ввода-вывода)

   61

   Ошибка совместного использования файла

   71

   Неверный символ

   91

   Файл недоступен

2. Оператор SHARING определяет условия, при которых программа позволит другим программам, выполняющимся одновременно, получить доступ к файлу. Подробности см. в разделе File Sharing.
3. Оператор LOCK определяет, как будет управляться одновременный доступ к файлу на уровне каждой записи. Подробности см. в разделе Record Locking.
4. Подробности синтаксиса оператора ORGANIZATION см. в следующих параграфах.
5. Оператор SELECT без явно указанного оператора ORGANIZATION будет обрабатываться так, как будто указан следующий оператор ORGANIZATION:

   ORGANIZATION IS SEQUENTIAL
   ACCESS MODE IS SEQUENTIAL
   

5.2.1.1. ORGANIZATION SEQUENTIAL

ORGANIZATION SEQUENTIAL Clause Syntax

 [ ORGANIZATION|ORGANISATION IS ] RECORD BINARY SEQUENTIAL
   ~~~~~~~~~~~~ ~~~~~~~~~~~~                    ~~~~~~~~~~
    [ ACCESS MODE IS SEQUENTIAL ]
      ~~~~~~         ~~~~~~~~~~

Файлы, объявленные как ORGANIZATION SEQUENTIAL, будут содержать записи без явного разделителя конца записи; записи в таких файлах «определяются» вычисленным смещением байтов (на основе максимальной длины записи) в файле.

1. Зарезервированные слова BINARY, IS, MODE и RECORD являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Зарезервированные слова ORGANIZATION и ORGANISATION взаимозаменяемы.
3. Фраза ORGANIZATION IS (и её интернационализированный аналог ORGANISATION IS) является необязательной для обеспечения совместимости с теми (несколькими) реализациями COBOL, которые считают ORGANIZATION необязательным. Большинство реализаций COBOL требуют слова ORGANIZATION, поэтому его следует использовать в новых программах.
4. Эти файлы нельзя подготовить с помощью стандартных текстовых редакторов или программ для обработки текста, так как все такие программы будут вставлять разделительные символы в конце записей (используйте ORGANIZATION IS LINE SEQUENTIAL вместо этого).
5. Эти файлы могут содержать данные типа USAGE DISPLAY или USAGE COMPUTATIONAL (любой разновидности), так как никакая последовательность двоичных данных не может быть случайно интерпретирована как разделитель конца записи.
6. Хотя записи в файле ORGANIZATION SEQUENTIAL могут быть определены как имеющие переменную длину, файл будет структурирован таким образом, чтобы зарезервировать место для каждой записи, равное размеру самой большой возможной записи, исходя из описания файла в FILE SECTION.
7. Оператор ACCESS MODE SEQUENTIAL является необязательным, потому что в случае его отсутствия он всё равно подразумевается для этого типа файлов. Внутренняя структура этих файлов такова, что они могут обрабатываться только последовательно; например, для чтения 100-й записи в таком файле сначала необходимо прочитать записи с 1 по 99.
8. Последовательные файлы обрабатываются с помощью следующих операторов:
   • CLOSE (см. CLOSE)
   • COMMIT (см. COMMIT)
   • DELETE (см. DELETE)
   • MERGE (см. MERGE)
   • OPEN (см. OPEN)
   • READ (см. READ)
   • REWRITE (см. REWRITE)
   • SORT (см. SORT)
   • UNLOCK (см. UNLOCK)
   • WRITE (см. WRITE)

5.2.1.2. ОРГАНИЗАЦИЯ ПО СТРОКАМ ПОСЛЕДОВАТЕЛЬНО

Синтаксис предложения ORGANIZATION LINE SEQUENTIAL

 [ ORGANIZATION|ORGANISATION IS ] LINE SEQUENTIAL
   ~~~~~~~~~~~~ ~~~~~~~~~~~~      ~~~~ ~~~~~~~~~~
    [ ACCESS MODE IS SEQUENTIAL ]
      ~~~~~~         ~~~~~~~~~~
    [ PADDING CHARACTER IS literal-1 | identifier-1 ]
      ~~~~~~~

Предложение PADDING CHARACTER синтаксически распознаётся, но в остальном не функционально.

Файлы, объявленные как ORGANIZATION LINE SEQUENTIAL, будут состоять из записей, завершённых символом или последовательностью символов конца записи.

1. Зарезервированные слова CHARACTER, IS и MODE являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Зарезервированные слова ORGANIZATION и ORGANISATION взаимозаменяемы.
3. Фраза ORGANIZATION IS (и её интернационализированный аналог ORGANISATION IS) является необязательной для обеспечения совместимости с теми (несколькими) реализациями COBOL, которые считают это слово необязательным. Большинство реализаций COBOL требуют слова ORGANIZATION, поэтому его следует использовать в новых программах.
4. Это единственный ORGANIZATION допустимый для файлов, назначенных на устройство PRINTER.
5. Эти файлы могут быть созданы с помощью любого стандартного текстового редактора или программы для обработки текста, способной создавать текстовые файлы. Такие файлы не должны содержать данные типа USAGE COMPUTATIONAL или BINARY (любой разновидности), так как такие поля могут случайно содержать последовательности байтов, которые могут быть интерпретированы как разделитель конца записи.
6. Поддерживаются форматы записей с фиксированной и переменной длиной.
7. Последовательность разделителей конца записи будет X‘0A’ (символ ASCII перевода строки) или X‘0D0A’ (последовательность ASCII возврата каретки + перевода строки). Первый вариант используется в реализациях GnuCOBOL на Unix (включая Windows/MinGW, Windows/Cygwin и OSX), а второй - в родных реализациях Windows.
8. При чтении файла LINE SEQUENTIAL, записи, превышающие размер, подразумеваемый описанием файла в FILE SECTION, будут усечены, а записи, короче этого размера, будут дополнены справа SPACES.
9. Предложение ACCESS MODE SEQUENTIAL является необязательным, так как в случае его отсутствия оно предполагается для этого типа файла. Внутренняя структура этих файлов такова, что данные могут обрабатываться только последовательно; например, для чтения 100-й записи в таком файле сначала необходимо прочитать записи с 1 по 99.
10. Файлы, назначенные на устройства PRINTER или CONSOLE, должны быть указаны как ORGANIZATION LINE SEQUENTIAL.
11. Файлы ORGANIZATION LINE SEQUENTIAL обрабатываются с помощью следующих операторов:
    • CLOSE (см. CLOSE)
    • COMMIT (см. COMMIT)
    • DELETE (см. DELETE)
    • MERGE (см. MERGE)
    • OPEN (см. OPEN)
    • READ (см. READ)
    • REWRITE (см. REWRITE)
    • SORT (см. SORT)
    • UNLOCK (см. UNLOCK)
    • WRITE (см. WRITE)

5.2.1.3. Относительная организация

Синтаксис оператора ORGANIZATION RELATIVE

 [ ORGANIZATION|ORGANISATION IS ] RELATIVE
   ~~~~~~~~~~~~ ~~~~~~~~~~~~      ~~~~~~~~
    [ ACCESS MODE IS { SEQUENTIAL } ]
      ~~~~~~         { ~~~~~~~~~~ }
                     { DYNAMIC    }
                     { ~~~~~~~    }
                     { RANDOM     }
                       ~~~~~~
    [ RELATIVE KEY IS identifier-1 ]
      ~~~~~~~~

Эти файлы имеют внутреннюю организацию, позволяющую обрабатывать записи последовательно, основываясь на их физическом расположении в файле, или случайным образом, позволяя читать, записывать или обновлять записи, указывая относительный номер записи в файле.

1. Зарезервированные слова IS, KEY и MODE являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Зарезервированные слова ORGANIZATION и ORGANISATION взаимозаменяемы.
3. Фраза ORGANIZATION IS (и её международная альтернатива ORGANISATION IS) является необязательной для обеспечения совместимости с теми (немногими) реализациями COBOL, которые считают это слово необязательным. Большинство реализаций COBOL требуют слова ORGANIZATION, поэтому его следует использовать в новых программах.
4. Файлы с организацией ORGANIZATION RELATIVE не могут быть назначены устройствам CONSOLE, DISPLAY, LINE ADVANCING или PRINTER.
5. Оператор RELATIVE KEY является необязательным только в случае указания ACCESS MODE SEQUENTIAL.
6. Хотя файл с организацией ORGANIZATION RELATIVE может быть определён как содержащий записи переменной длины, файл будет структурирован таким образом, чтобы резервировать место для каждой записи размером, равным размеру самой большой возможной записи, как определено описанием файла в FILE SECTION.
7. ACCESS MODE SEQUENTIAL, значение по умолчанию для ACCESS MODE, если не указано иное, означает, что записи файла будут обрабатываться последовательно, в соответствии с их физической последовательностью в файле.
8. ACCESS MODE RANDOM означает, что записи будут обрабатываться в случайном порядке, указав их номер записи в файле каждый раз при чтении или записи файла.
9. ACCESS MODE DYNAMIC указывает, что программа может переключаться между режимами SEQUENTIAL и RANDOM во время выполнения. Файл первоначально открывается в режиме SEQUENTIAL, но программа может использовать оператор START (см. START), чтобы переключаться между последовательным и случайным доступом.
10. Данные элемента RELATIVE KEY - это числовой элемент данных, который не может быть определён как поле в записях этого файла. Его назначение — возвращать текущий относительный номер записи относительного файла, который обрабатывается в режиме доступа SEQUENTIAL, и служить ключом для указания относительного номера записи, подлежащей чтению или записи при обработке относительного файла в режиме доступа RANDOM.
11. Относительные файлы обрабатываются с помощью следующих операторов:
    • CLOSE (см. CLOSE)
    • COMMIT (см. COMMIT)
    • DELETE (см. DELETE)
    • MERGE (см. MERGE), ACCESS MODE RANDOM запрещено
    • OPEN (см. OPEN)
    • READ (см. READ)
    • REWRITE (см. REWRITE)
    • SORT (см. SORT), ACCESS MODE RANDOM запрещено
    • START (см. START)
    • UNLOCK (см. UNLOCK)
    • WRITE (см. WRITE)

5.2.1.4. Индексированная организация

Синтаксис оператора ORGANIZATION INDEXED

 [ ORGANIZATION|ORGANISATION IS ] INDEXED
   ~~~~~~~~~~~~ ~~~~~~~~~~~~      ~~~~~~~
    [ ACCESS MODE IS { SEQUENTIAL } ]
      ~~~~~~         { ~~~~~~~~~  }
                     { DYNAMIC    }
                     { ~~~~~~~    }
                     { RANDOM     }
                       ~~~~~~
    [ RECORD KEY IS { [ data-name-1       ]
      ~~~~~~
                    { [ record-key-name-1 ]
                      [ =|{SOURCE IS} data-name-2 ] ... ] }
                           ~~~~~~
    [ ALTERNATE RECORD KEY IS { [ data-name-3       ]
      ~~~~~~~~~ ~~~~~~
                              { [ record-key-name-2 ]
                                [ =|{SOURCE IS} data-name-4 ] ... ] }
                                     ~~~~~~
                              [ WITH DUPLICATES ] ]...
                                     ~~~~~~~~~~
                              [ SUPPRESS WHEN ALL literal     ]
                                ~~~~~~~~~~~~~~~~~
                              [ SUPPRESS WHEN SPACES | ZEROES ]
                                ~~~~~~~~~~~~~~~~~~~~   ~~~~~~

Файлы с индексированной организацией, как и файлы с относительной организацией, могут иметь записи, обрабатываемые как последовательно, так и случайным образом. Однако в отличие от файлов с относительной организацией, фактическое расположение записи в индексированном файле вычисляется автоматически на основе значения(й) одного или нескольких буквенно-цифровых полей в записях файла. Например, индексированный файл с данными о продуктах может использовать код идентификации продукта в качестве ключа записи. Это означает, что вы можете прочитать, записать или обновить A6G4328-ю запись или Z8X7723-ю запись напрямую, основываясь на значении идентификатора продукта этих записей!

1. Зарезервированные слова IS, KEY и MODE являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Зарезервированные слова ORGANIZATION и ORGANISATION взаимозаменяемы.
3. Фраза ORGANIZATION IS (и ее интернационализированный аналог ORGANISATION IS) необязательна для обеспечения совместимости с теми (немногими) реализациями COBOL, которые считают это слово необязательным. Большинство реализаций COBOL требуют слова ORGANIZATION, поэтому его следует использовать в новых программах.
4. Файлы ORGANIZATION INDEXED не могут быть назначены CONSOLE, DISPLAY, KEYBOARD, LINE ADVANCING или PRINTER.
5. ACCESS MODE SEQUENTIAL, значение по умолчанию ACCESS MODE, если не указано иное, указывает, что записи файла будут обрабатываться последовательно относительно значений RECORD KEY или ALTERNATE RECORD KEY, ссылок на них в последнем операторе START (см. START).
6. ACCESS MODE RANDOM означает, что записи будут обрабатываться в случайном порядке путем доступа к записи со специфическими значениями ключа записи или альтернативного ключа записи.
7. ACCESS MODE DYNAMIC позволяет обрабатывать файл в режиме RANDOM или SEQUENTIAL; программа может переключаться между этими режимами по мере необходимости. Оператор START используется для переключения между режимами.
8. Оператор RECORD KEY определяет поле в записи, используемое для основного доступа к записям в файле. Две записи в файле не будут иметь одинакового значения поля PRIMARY KEY. Оператор SOURCE IS используется с Split Keys.
9. Оператор ALTERNATE RECORD KEY, если используется, определяет дополнительное поле в записи, которое предоставляет альтернативный способ прямого доступа к записям или дополнительное поле, с помощью которого можно последовательно обрабатывать содержимое файла. Вы можете разрешить дублирование значений альтернативных ключей, если необходимо.
10. Может быть несколько операторов ALTERNATE RECORD KEY, каждый из которых определяет дополнительный альтернативный ключ для файла.
11. Использование оператора SUPPRESS WHEN используется, когда требуются Sparse Keys, которые могут принимать вид литерала, пробелов или нулей.
12. Индексированные файлы обрабатываются с помощью следующих операторов:
    • CLOSE (см. CLOSE)
    • COMMIT (см. COMMIT)
    • DELETE (см. DELETE)
    • MERGE (см. MERGE), ACCESS MODE RANDOM не разрешено
    • OPEN (см. OPEN)
    • READ (см. READ)
    • REWRITE (см. REWRITE)
    • SORT (см. SORT), ACCESS MODE RANDOM не разрешено
    • START (см. START)
    • UNLOCK (см. UNLOCK)
    • WRITE (см. WRITE)

5.2.2. ОБЛАСТЬ ОДНОЙ ЗАПИСИ

Синтаксис I/O-УПРАВЛЕНИЯ ОБЛАСТЬЮ ОДНОЙ ЗАПИСИ

 SAME { SORT-MERGE } AREA FOR file-name-1... .
 ~~~~ { ~~~~~~~~~~ }
      { SORT       }
      { ~~~~       }
      { RECORD     }
        ~~~~~~

Операторы SAME SORT-MERGE и SAME SORT синтаксически распознаются, но в противном случае не функциональны.

Оператор SAME RECORD AREA позволяет указать, что несколько файлов должны совместно использовать одни и те же буферы ввода-вывода.

1. Зарезервированные слова AREA и FOR являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Данный оператор должен быть завершен точкой.
3. Хотя при кодировании допустим только один имя файла (повторённый элемент file-name-1), этот оператор не повлияет на программу, если не указано по крайней мере два файла.
4. Данный оператор приведет к тому, что указанные файлы будут совместно использовать один и тот же буфер ввода-вывода в памяти. Эти буферы могут быть довольно большими, и, имея несколько файлов, разделяющих один буфер памяти, вы можете значительно уменьшить количество используемой памяти программой (тем самым освободив "место" для большего кода процедур или данных). Если вы используете эту функцию, позаботьтесь о том, чтобы не более одного из указанных файлов были одновременно открытыми.

5.2.3. НЕСКОЛЬКО ФАЙЛОВ

Синтаксис I/O-УПРАВЛЕНИЯ НЕСКОЛЬКИМИ ФАЙЛАМИ

 MULTIPLE FILE TAPE CONTAINS
 ~~~~~~~~
    { file-name-1 [ POSITION integer-1 ] }...
                    ~~~~~~~~
    .

Оператор MULTIPLE FILE TAPE устарел и поэтому распознается, но не функционален.

6. РАЗДЕЛ ДАННЫХ

Синтаксис РАЗДЕЛА ДАННЫХ

   DATA DIVISION.
   ~~~~ ~~~~~~~~
 [ FILE SECTION.
   ~~~~ ~~~~~~~
   { File/Sort-Description [ { FILE-SECTION-Data-Item } ]... }... ]
   {                         { 01-Level-Constant      }      }
   {                         { 78-Level-Constant      }      }
   { 01-Level-Constant                                       }
   { 78-Level-Constant                                       }
 [ WORKING-STORAGE SECTION.
   ~~~~~~~~~~~~~~~ ~~~~~~~
   [ { WORKING-STORAGE-SECTION-Data-Item } ]... ]
     { 01-Level-Constant                 }
     { 78-Level-Constant                 }
 [ LOCAL-STORAGE SECTION.
   ~~~~~~~~~~~~~ ~~~~~~~
   [ { LOCAL-STORAGE-SECTION-Data-Item } ]... ]
     { 01-Level-Constant               }
     { 78-Level-Constant               }
 [ LINKAGE SECTION.
   ~~~~~~~ ~~~~~~~
   [ { LINKAGE-SECTION-Data-Item } ]... ]
     { 01-Level-Constant         }
     { 78-Level-Constant         }
 [ REPORT SECTION.
   ~~~~~~ ~~~~~~~
   { Report-Description [ { Report-Group-Definition } ]... }... ]
   {                      { 01-Level-Constant       }      }
   {                      { 78-Level-Constant       }      }
   { 01-Level-Constant                                     }
   { 78-Level-Constant                                     }
 [ SCREEN SECTION.
   ~~~~~~ ~~~~~~~
   [ { SCREEN-SECTION-Data-Item } ]... ]
     { 01-Level-Constant        }
     { 78-Level-Constant        }

Все данные, используемые любой программой COBOL, должны быть определены в одном из шести разделов раздела данных в зависимости от назначения данных.

1. Если данные не будут описаны в одном из разделов раздела данных, заголовок этого раздела можно опустить.
2. Если разделы раздела данных не нужны, можно опустить сам заголовок DATA DIVISION..
3. Если в разделе данных требуется более одного раздела (обычная ситуация), разделы должны быть закодированы в порядке, представленном выше.

6.1. Принципы определения данных

Данные элементы GnuCOBOL, как и в других реализациях COBOL, описываются иерархически. Это позволяет разбивать данные элементы на подчиненные элементы. Например, рассмотрим следующую логическую структуру части данных, имеющей имя Employee:

                           Employee
                               |                     Additional
              :----------------:----------------:--> Data Items ...
              |                                 |
        Employee-name                    Employment-Dates
              |                                 |
    :---------:-------------:           :-------:-------:
    |         |             |           |               |
Last-Name First-Name Middle-Initial From-Date        To-Date
                                        |               |
                                   :----:----:     :----:----:
                                   |    |    |     |    |    |
                                 Year Month Day  Year Month Day

Данный элемент Employee состоит из двух подчиненных элементов — элемента Employee-Name и элемента Employment-Dates (вероятно, там будет много других, но нас сейчас они не интересуют). Как показывает диаграмма, каждый из этих элементов, в свою очередь, разбивается на подчиненные элементы. Такая иерархия данных элементов может стать довольно deep, и GnuCOBOL, как и другие реализации COBOL, может обрабатывать до 49 уровней таких иерархических структур.

Как уже говорилось ранее (см. Структурированные данные), элемент данных, разбитый на другие элементы данных, называется групповым элементом, а элемент, который не разбивается, называется элементарным элементом.

COBOL использует понятие уровня для указания уровня, на котором элемент данных находится в структуре данных, как показано в примере выше. При определении этих элементов данных все они определяются вместе с числом в диапазоне от 1 до 49, указанным перед их именами. С течением времени среди программистов COBOL сложилась конвенция, согласно которой номера уровней всегда кодируются двузначными числами — их не обязательно указывать двузначными числами, но во всех примерах в этом документе используется именно такой подход!

Элемент данных на вершине, также называемый записью, всегда имеет номер уровня 01. После этого вы можете назначать номера уровней по своему усмотрению (01–02–03–04…, 01–05–10–15…, и т. д.), соблюдая следующие простые правила:

1. Каждый элемент данных на одном уровне диаграммы иерархии, такой как та, которую вы видите здесь (если бы вы её создали, что вы редко, если вообще когда-либо, сделаете, после того как освоите эту концепцию), должен иметь одинаковый номер уровня.
2. Каждый новый уровень использует номер уровня, строго больший, чем номер уровня родительского (следующего выше) уровня.
3. При описании иерархий данных вы никогда не должны использовать номер уровня, больший 49 (за исключением 66, 77, 78 и 88, которые имеют очень специальное значение (см. Специальные элементы данных).

Таким образом, определение этих элементов данных в программе GnuCOBOL будет примерно таким:

    01  Employee
        05 Employee-Name
           10 Last-Name
           10 First-Name
           10 Middle-Initial
        05 Employment-Dates
           10 From-Date
              15 Year
              15 Month
              15 Day
           10 To-Date
              15 Year
              15 Month
              15 Day

Отступы используются по усмотрению программиста, чтобы упростить чтение для человека (компилятор об этом не беспокоится). Раньше в реализациях COBOL, требующих исходные программы в формате фиксированной ширины, требовалось, чтобы номер уровня 01 начинался в области А, а всё остальное — в области В. В GnuCOBOL требуется только, чтобы весь синтаксис определения данных находился в колонках с 8 по 72. В режиме свободного формата, конечно, таких ограничений нет.

Вы заметили, что определено по два элемента данных Year, Month и Day? Это вполне законно, при условии, что каждый может быть однозначно qualified, чтобы отличаться от другого. Например, элементы Year. Один определен как часть элемента данных From-Date, а другой — как часть элемента данных To-Date. В COBOL мы фактически кодируем ссылки на эти два элемента данных как Year OF From-Date и Year OF To-Date или Year IN From-Date и Year IN To-Date (COBOL разрешает использовать IN или OF). Так как эти ссылки прояснят для нас, к какому элементу Year мы ссылаемся, компилятор GnuCOBOL тоже не запутается.

Приведенный выше пример кодирования неполный; он описывает только имена элементов данных и их иерархические отношения друг к другу. Кроме того, любое допустимое определение элемента данных также должно описать тип данных, который должен содержаться в элементе данных (числовой? буквенно-цифровой? буквенный?), сколько данных может храниться в элементе данных и множество других характеристик.

При определении групповых элементов подчиненным элементам можно назначить «имя» FILLER. В рамках группового элемента можно определить любое количество элементов FILLER. Элемент данных с именем FILLER не может быть непосредственно ссылаемым; эти элементы обычно используются для указания неиспользуемой части общего объёма памяти, выделенной для группового элемента. Обратите внимание, что имя самого группового элемента может быть указано как FILLER, если нет необходимости напрямую ссылаться на саму структуру группы.

6.2. РАЗДЕЛ ФАЙЛОВ

Синтаксис РАЗДЕЛА ФАЙЛОВ

 [ FILE SECTION.
   ~~~~ ~~~~~~~
   { File/Sort-Description [ { FILE-SECTION-Data-Item } ]... }... ]
   {                         { 01-Level-Constant      }      }
   {                         { 78-Level-Constant      }      }
   { 01-Level-Constant                                       }
   { 78-Level-Constant                                       }

Каждый файл, на который ссылается оператор SELECT (см. ВЫБОР), также должен быть описан в разделе файла раздела данных.

Файлы, предназначенные для использования в качестве файлов работы сортировки/слияния, должны быть описаны с помощью описания файла сортировки/слияния (SD) , а все остальные файлы — с помощью описания файла (FD). Каждое из этих описаний почти всегда сопровождается по крайней мере одним описанием записи.

6.2.1. Описание файла/сортировки

Синтаксис описания файла/сортировки

 FD|SD file-name-1 [ IS EXTERNAL|GLOBAL ]
 ~~ ~~                  ~~~~~~~~ ~~~~~~
 [ BLOCK CONTAINS [ integer-1 TO ] integer-2 CHARACTERS|RECORDS ]
   ~~~~~                      ~~             ~~~~~~~~~~ ~~~~~~~
 [ CODE-SET IS alphabet-name-1 ]
   ~~~~~~~~
 [ DATA { RECORD IS   } identifier-1... ]
   ~~~~ { ~~~~~~      }
        { RECORDS ARE }
          ~~~~~~~
 [ LABEL { RECORD IS   } OMITTED|STANDARD ]
   ~~~~~ { ~~~~~~      } ~~~~~~~ ~~~~~~~~
         { RECORDS ARE }
           ~~~~~~~
 [ LINAGE IS integer-3 | identifier-2 LINES
   ~~~~~~
     [ LINES AT BOTTOM integer-4 | identifier-3 ]
                ~~~~~~
     [ LINES AT TOP integer-5 | identifier-4 ]
                ~~~
     [ WITH FOOTING AT integer-6 | identifier-5 ] ]
            ~~~~~~~
 [ RECORD { CONTAINS [ integer-7 TO ] integer-8 CHARACTERS   } ]
   ~~~~~~ {                      ~~                          }
          { IS VARYING IN SIZE                               }
          {    ~~~~~~~                                       }
          {     [ FROM [ integer-7 TO ] integer-8 CHARACTERS }
          {                        ~~                        }
          {         DEPENDING ON identifier-6 ]              }
                    ~~~~~~~~~
 [ RECORDING MODE IS recording-mode ]
   ~~~~~~~~~
 [ { REPORT IS   } report-name-1... ]
   { ~~~~~~      }
   { REPORTS ARE }
     ~~~~~~~
 [ VALUE OF implementor-name-1 IS literal-1 | identifier-7 ] .
   ~~~~~ ~~

Клаузы BLOCK CONTAINS, DATA RECORD, LABEL RECORD, RECORDING MODE и VALUE OF синтаксически распознаются, но устарели и не функциональны. Эти клаузы не должны использоваться в новых программах.

1. Зарезервированные слова ARE, AT, CHARACTERS (только в RECORD разделе), CONTAINS, FROM, IN, IS, ON и WITH являются необязательными и могут быть включены или исключены по усмотрению программиста. Наличие или отсутствие этих слов не влияет на программу.
2. Термины RECORD IS и RECORDS ARE взаимозаменяемы.
3. Термины REPORT IS и REPORTS ARE взаимозаменяемы.
4. Только файлы, предназначенные для использования в качестве рабочих файлов для инструкций SORT (см. SORT) или MERGE (см. MERGE), должны быть закодированы с SD — все остальные файлы должны быть определены с FD.
5. Последовательность определения файлов с помощью FD или SD, по сравнению с последовательностью кодирования их SELECT инструкций, не имеет значения.
6. Имя, указанное как file-name-1, должно точно совпадать с именем, указанным в SELECT инструкции файла.
7. Раздел CODE-SET позволяет связать файл с пользовательской кодировкой символов, определённой в разделе SPECIAL-NAMES (см. SPECIAL-NAMES). Этот раздел допустим только при использовании файлов последовательного или построчного доступа.
8. Раздел LINAGE может быть указан только в описании FD файла последовательного или построчного доступа. Если он используется с файлом последовательного доступа, организация этого файла будет неявно изменена на построчный. Различные компоненты раздела LINAGE определяют макет печатных страниц следующим образом:

   LINES AT TOP

   Количество неиспользуемых (т.е. оставленных пустыми) строк в верхней части каждой страницы. По умолчанию, если этот параметр не указан, он равен нулю.

   LINES AT BOTTOM

   Количество неиспользуемых (т.е. оставленных пустыми) строк в нижней части каждой страницы. По умолчанию, если этот параметр не указан, он равен нулю.

   LINAGE IS n LINES

   Общее количество используемых/доступных строк на странице.

   Сумма трёх предыдущих спецификаций должна составлять общее количество возможных строк на одной печатной странице.

   FOOTING AT

   Номер строки, за которым ничего не может быть напечатано, кроме подписи, которая должна отображаться на каждой странице. По умолчанию, если этот параметр не указан, он равен нулю, что означает отсутствие подписей. Это значение не может быть больше значения LINAGE IS n LINES.

9. Эта структура страницы — после её определения — может быть автоматически применена инструкцией WRITE (см. WRITE).
10. Указание раздела LINAGE в FD приведет к созданию специального регистра LINAGE-COUNTER для файла. Эта автоматически созданная переменная всегда будет содержать текущий относительный номер строки на обрабатываемой странице, что послужит отправной точкой для инструкции WRITE.
11. Разделы RECORD CONTAINS и RECORD IS VARYING игнорируются (с выводом предупреждающего сообщения) при работе с файлами построчного доступа. При других организациях файлов эти взаимоисключающие разделы определяют длину записей данных в файле. Переменная, указанная как identifier-6, должна быть определена в одном из описаний записей файла file-name-1.
12. Раздел REPORT IS сообщает компилятору, что файл будет предназначен для системы управления отчетами (RWCS); в разделе указаны один или несколько отчётов, каждый из которых должен быть описан в разделе отчётов. При использовании раздела REPORT применяются следующие специальные правила:
    1. Раздел может быть указан только в описании FD файла последовательного или построчного доступа. Если он используется с файлом последовательного доступа, организация этого файла будет неявно изменена на построчный.
    2. Раздел FD не может быть после описаний записей. Подробные описания данных, которые должны быть напечатаны в файл, будут определены в разделе REPORT SECTION (см. REPORT SECTION).
    3. Если также указан раздел LINAGE, значения, указанные для LINAGE IS и FOOTING AT, будут проигнорированы. Значения LINES AT BOTTOM и LINES AT TOP, если таковые имеются, будут учтены.
13. Следующие специальные правила применяются только к файлам сортировки/слияния:
    1. Файлы сортировки/слияния должны быть назначены на DISK (или DISC) в их SELECT инструкциях.
    2. Сортировка и слияние будут выполняться в памяти, если объём сортируемых данных позволяет.
    3. Если по объёму данных сортировки или слияния необходимы реальные файлы на диске, они будут автоматически выделены на диске в папке, определённой:
       • Переменной среды выполнения TMPDIR (см. Run Time Environment Variables)
       • Переменной среды выполнения TMP
       • Переменной среды выполнения TEMP

       (в указанном порядке).

    4. Эти файлы на диске будут автоматически удалены при завершении SORT или MERGE. Они также будут удалены, если программа завершится аномально до завершения SORT или MERGE. Для временных файлов сортировки/слияния, если нужно, они будут именоваться cob*.tmp.
    5. Если вы укажете конкретное имя файла в SELECT файла сортировки/слияния, оно будет проигнорировано.

1. См. Разделы описания данных, для получения информации об опциях EXTERNAL и GLOBAL.

6.2.2. Элемент данных раздела ФАЙЛ

Синтаксис элемента данных раздела ФАЙЛ

 level-number [ identifier-1 | FILLER ] [ IS GLOBAL|EXTERNAL ]
                               ~~~~~~        ~~~~~~ ~~~~~~~~
 [ BLANK WHEN ZERO ]
   ~~~~~      ~~~~
 [ JUSTIFIED RIGHT ]
   ~~~~
 [ OCCURS [ integer-1 TO ] integer-2 TIMES
   ~~~~~~             ~~
        [ DEPENDING ON identifier-2 ]
          ~~~~~~~~~
        [ ASCENDING|DESCENDING KEY IS identifier-3 ]
          ~~~~~~~~~ ~~~~~~~~~~
        [ INDEXED BY identifier-4 ] ]
          ~~~~~~~
 [ PICTURE IS picture-string ]
   ~~~
 [ REDEFINES identifier-5 ]
   ~~~~~~~~~
 [ SIGN IS LEADING|TRAILING [ SEPARATE [CHARACTER] ] ]
   ~~~~    ~~~~~~~ ~~~~~~~~   ~~~~~~~~
 [ SYNCRONIZED|SYNCHRONISED [ LEFT|RIGHT ] ]
   ~~~~        ~~~~           ~~~~ ~~~~~
 [ USAGE IS data-item-usage ] . [ FILE-SECTION-Data-Item ]...
   ~~~~~

Разделы LEFT и RIGHT (СИНХРОНИЗИРОВАННО) синтаксически распознаются, но в остальном не функциональны.

Каждое описание файла сортировки (SD или FD) должно сопровождаться по меньшей мере одним элементом данных уровня 01, за исключением описаний файлов, содержащих раздел REPORT IS. Эти элементы данных уровня 01, в свою очередь, могут быть разбиты на подчиненные групповые и элементарные элементы. Элемент данных уровня 01, определенный здесь в разделе файла, также известен как запись, даже если это элементарный элемент, при условии, что элементарный элемент не имеет атрибута CONSTANT.

1. Зарезервированные слова BY, IS, KEY, ON и WHEN являются необязательными и могут быть включены или не включены по усмотрению программиста. Наличие или отсутствие этих слов не влияет на программу.
2. Зарезервированные слова SYNCRONIZED и SYNCRONIZED взаимозаменяемы. Оба могут быть сокращены до SYNC.
3. Зарезервированное слово PICTURE может быть сокращено до PIC.
4. Как показывает синтаксическая диаграмма, определение Элемента данных раздела ФАЙЛ является рекурсивным, т.е. после FD или SD может быть любое количество таких спецификаций. Первая такая спецификация должна иметь уровень 01 и будет описывать определенный формат записи данных в файле. Следующие за ней спецификации могут иметь уровень, больший чем 01, в этом случае они определяют иерархическое разбиение записи. Определение записи завершается, когда происходит одно из следующих событий:

   Найден другой элемент уровня 01

   указывает на начало другой компоновки записи для файла.

   Найден другой FD или SD

   помечает завершение подробного описания файла и начинает другое.

   Найден заголовок раздела или подразделения

   также отмечает завершение подробного описания файла и обозначает конец раздела файла.

5. Каждое описание Элемента данных раздела ФАЙЛ должно завершаться точкой.
6. Если для данного FD или SD присутствуют несколько описаний записей, запись с наибольшей длиной определит размер буфера записи, в который команда READ (см. READ) или команда RETURN (см. RETURN) передадут данные, прочитанные из файла, и из которого команда WRITE (см. WRITE) или команда RELEASE (см. RELEASE) извлекут данные для записи в файл.
7. Различные описания записей уровня 01 для описания файла неявно используют один общий буфер записи (таким образом, они предоставляют разные способы просмотра структуры данных, которые могут существовать в файле). Буферы записей могут быть совместно использованы между файлами с помощью раздела SAME RECORD AREA (см. ОБЩАЯ ОБЛАСТЬ ЗАПИСИ).
8. Единственно допустимые номера уровней — 01-49, 66, 77, 78 и 88. Уровни 66, 77, 78 и 88 имеют специальное назначение — См. Специальные элементы данных для получения подробностей.
9. Не указание идентификатор-1 или FILLER сразу после номера уровня имеет тот же эффект, что и если бы было указано FILLER. Элемент данных с именем FILLER не может быть непосредственно обращен; эти элементы обычно используются для указания неиспользуемой части всего хранилища, выделенного для группового элемента, или для описания группового элемента, содержимое которого будет обращаться только по именам тех элементов, которые ему принадлежат.
10. EXTERNAL нельзя комбинировать с GLOBAL или REDEFINES.
11. Буферы данных раздела файла (и, следовательно, все компоновки записей уровня 01, определенные в разделе файла) инициализируются нулями в двоичной системе, когда программа загружается в память.
12. См. Разделы описания данных для получения информации об использовании различных разделов описания данных.

6.3. РАЗДЕЛ РАБОЧЕЙ ПАМЯТИ

Синтаксис элемента данных раздела РАБОЧЕЙ ПАМЯТИ

 level-number [ identifier-1 | FILLER ] [ IS GLOBAL | EXTERNAL ]
                               ~~~~~~        ~~~~~~   ~~~~~~~~
 [ BASED ]
   ~~~~~
 [ BLANK WHEN ZERO ]
   ~~~~~      ~~~~
 [ JUSTIFIED RIGHT ]
   ~~~~
 [ OCCURS [ integer-1 TO ] integer-2 TIMES
   ~~~~~~             ~~
       [ DEPENDING ON identifier-2 ]
         ~~~~~~~~~
       [ ASCENDING|DESCENDING KEY IS identifier-3 ]
         ~~~~~~~~~ ~~~~~~~~~~
       [ INDEXED BY identifier-4 ] ]
         ~~~~~~~
 [ PICTURE IS picture-string ]
   ~~~
 [ REDEFINES identifier-5 ]
   ~~~~~~~~~
 [ SIGN IS LEADING|TRAILING [ SEPARATE CHARACTER ] ]
   ~~~~    ~~~~~~~ ~~~~~~~~   ~~~~~~~~
 [ SYNCRONIZED|SYNCHRONISED [ LEFT|RIGHT ] ]
   ~~~~        ~~~~           ~~~~ ~~~~~
 [ USAGE IS data-item-usage ]
   ~~~~~
 [ VALUE IS [ ALL ] literal-1 ] . [ WORKING-STORAGE-SECTION-Data-Item ]...
   ~~~~~      ~~~

Разделы LEFT и RIGHT (СИНХРОНИЗИРОВАННО) синтаксически распознаются, но в остальном не функциональны.

Раздел рабочей памяти используется для описания элементов данных, которые не являются частью файлов, экранов или отчетов и значения данных которых сохраняются на протяжении всего выполнения программы.

1. Зарезервированные слова BY, CHARACTER, IS, KEY, ON, RIGHT (JUSTIFIED), TIMES и WHEN являются необязательными и могут быть включены или исключены по усмотрению программиста. Наличие или отсутствие этих слов не влияет на программу.
2. Зарезервированные слова SYNCRONIZED и SYNCHRONISED взаимозаменяемы. Оба могут быть сокращены до SYNC.
3. Зарезервированное слово PICTURE может быть сокращено до PIC.
4. Зарезервированное слово JUSTIFIED может быть сокращено до JUST.
5. Как показывает диаграмма синтаксиса, определение WORKING-STORAGE-SECTION-Data-Item является рекурсивным, то есть может быть любое количество таких спецификаций, записанных друг за другом. Первая такая спецификация должна иметь уровень 01. Спецификации, которые следуют за ней, могут иметь уровни, большие чем 01, в этом случае они определяют иерархическое разбиение записи. Определение записи завершается, когда происходит одно из следующего:
   • Встречается элемент уровня 01 — это означает конец определения одной записи и начало другой.
   • Встречается элемент уровня 77 — это означает конец определения записи и начало определения специального элемента данных; см. Элементы данных уровня 77 для получения дополнительной информации.
   • Встречается заголовок раздела или секции — это также отмечает завершение записи и означает конец раздела рабочей памяти.
6. Каждое описание WORKING-STORAGE-SECTION-Data-Item должно завершаться точкой.
7. Единственно допустимые номера уровней — 01-49, 66, 77, 78 и 88. Номера уровней от 01 до 49 используются для определения элементов данных, которые могут быть частью иерархической структуры. Номер уровня 01 также может использоваться для определения константы — элемента с неизменяемым значением, заданным на этапе компиляции.
8. Номера уровней 66, 77, 78 и 88 имеют специальные применения — см. Специальные элементы данных для получения подробной информации.
9. Отсутствие identifier-1 или FILLER сразу после номера уровня имеет тот же эффект, что и если бы было указано FILLER. Элемент данных с именем FILLER не может быть обращен к нему напрямую; эти элементы обычно используются для указания неиспользуемой части общего хранилища элемента группы или для описания элемента группы, содержимое которого будет обращено только к именам тех элементов, которые к нему относятся.
10. Элементы данных, определенные в разделе рабочей памяти, инициализируются автоматически один раз — при загрузке программы, в которой определены данные, в память. Подпрограммы могут загружаться в память более одного раза (см. инструкцию CANCEL (см. CANCEL)), в этом случае инициализация происходит каждый раз при их загрузке. См. Инициализация данных для обсуждения правил инициализации.
11. См. Описания данных для получения информации об использовании различных пунктов описания данных.

6.4. РАЗДЕЛ ЛОКАЛЬНОГО ХРАНЕНИЯ

Синтаксис элемента данных РАЗДЕЛА ЛОКАЛЬНОГО ХРАНЕНИЯ

 level-number [ identifier-1 | FILLER ] [ IS GLOBAL|EXTERNAL ]
                               ~~~~~~        ~~~~~~ ~~~~~~~~
 [ BASED ]
   ~~~~~
 [ BLANK WHEN ZERO ]
   ~~~~~      ~~~~
 [ JUSTIFIED RIGHT ]
   ~~~~
 [ OCCURS [ integer-1 TO ] integer-2 TIMES
   ~~~~~~             ~~
       [ DEPENDING ON identifier-2 ]
         ~~~~~~~~~
       [ ASCENDING|DESCENDING KEY IS identifier-3 ]
         ~~~~~~~~~ ~~~~~~~~~~
       [ INDEXED BY identifier-4 ] ]
         ~~~~~~~
 [ PICTURE IS picture-string ]
   ~~~
 [ REDEFINES identifier-5 ]
   ~~~~~~~~~
 [ SIGN IS LEADING|TRAILING [ SEPARATE CHARACTER ] ]
   ~~~~    ~~~~~~~ ~~~~~~~~   ~~~~~~~~
 [ SYNCRONIZED|SYNCHRONISED [ LEFT|RIGHT ] ]
   ~~~~        ~~~~           ~~~~ ~~~~~
 [ USAGE IS data-item-usage ]
   ~~~~~
 [ VALUE IS [ ALL ] literal-1 ] . [ LOCAL-STORAGE-SECTION-Data-Item ]...
   ~~~~~      ~~~

Описания LEFT и RIGHT (SYNCRONIZED) распознаются синтаксически, но не являются функциональными.

Раздел локального хранения похож на раздел рабочей памяти, но описывает данные внутри подпрограммы, которые будут динамически выделены и инициализированы (автоматически) каждый раз при выполнении подпрограммы. См. Инициализация данных для правил инициализации данных.

1. Зарезервированные слова BY, CHARACTER IS, KEY, ON, RIGHT (JUSTIFIED), TIMES и WHEN являются необязательными и могут быть включены или пропущены по усмотрению программиста. Наличие или отсутствие этих слов не влияет на программу.
2. Зарезервированные слова SYNCRONIZED и SYNCHRONISED взаимозаменяемы. Оба могут быть сокращены до SYNC.
3. Зарезервированное слово PICTURE может быть сокращено до PIC.
4. Зарезервированное слово JUSTIFIED может быть сокращено до JUST.
5. Как показывает синтаксическая диаграмма, определение LOCAL-STORAGE-SECTION-Data-Item является рекурсивным, то есть может содержать любое количество таких спецификаций, записанных друг за другом. Первая такая спецификация должна иметь уровень 01. Последующие спецификации могут иметь уровни, большие чем 01, в этом случае они определяют иерархическое разбиение записи. Определение записи завершается, когда происходит одно из следующих событий:
   • Найден элемент уровня 01 — это означает конец определения одной записи и начало другой.
   • Найден заголовок раздела или подраздела — это также отмечает завершение записи и конец раздела локального хранилища.
6. Каждое описание LOCAL-STORAGE-SECTION-Data-Item должно заканчиваться точкой.
7. Единственно допустимые номера уровней — 01-49, 66, 77, 78 и 88. Номера уровней от 01 до 49 используются для определения элементов данных, которые могут быть частью иерархической структуры. Номер уровня 01 также может использоваться для определения константы — элемента с неизменным значением, заданным во время компиляции.
8. Номера уровней 66, 77, 78 и 88 имеют специальное назначение — см. Специальные элементы данных для получения подробной информации.
9. Отсутствие identifier-1 или FILLER сразу после номера уровня имеет тот же эффект, что и указание FILLER. Элемент данных с именем FILLER не может быть напрямую ссылаться; эти элементы обычно используются для указания неиспользуемой части общего объема памяти, выделенной для элемента группы, или для описания элемента группы, содержимое которого будет ссылаться только с помощью имен элементов, принадлежащих ему.
10. Локальное хранилище не может быть использовано во вложенных подпрограммах.
11. См. Описания элементов данных для получения информации об использовании различных описаний элементов данных.

6.5. РАЗДЕЛ СВЯЗИ

Синтаксис элементов данных раздела связи

 level-number [ identifier-1 | FILLER ] [ IS GLOBAL|EXTERNAL ]
                               ~~~~~~        ~~~~~~ ~~~~~~~~
 [ ANY LENGTH ]
   ~~~ ~~~~~~
 [ BASED ]
   ~~~~~
 [ BLANK WHEN ZERO ]
   ~~~~~      ~~~~
 [ JUSTIFIED RIGHT ]
   ~~~~
 [ OCCURS [ integer-1 TO ] integer-2 TIMES
   ~~~~~~             ~~
       [ DEPENDING ON identifier-3 ]
         ~~~~~~~~~
       [ ASCENDING|DESCENDING KEY IS identifier-4 ]
         ~~~~~~~~~ ~~~~~~~~~~
       [ INDEXED BY identifier-5 ] ]
         ~~~~~~~
 [ PICTURE IS picture-string ]
   ~~~
 [ REDEFINES identifier-6 ]
   ~~~~~~~~~
 [ SIGN IS LEADING|TRAILING [ SEPARATE CHARACTER ] ]
   ~~~~    ~~~~~~~ ~~~~~~~~   ~~~~~~~~
 [ SYNCRONIZED|SYNCHRONISED [ LEFT|RIGHT ] ]
   ~~~~        ~~~~           ~~~~ ~~~~~
 [ USAGE IS data-item-usage ] . [ LINKAGE-SECTION-Data-Item ]...
   ~~~~~

Оператор LEFT и оператор RIGHT (SYNCRONIZED) синтаксически распознаются, но в остальном не функциональны.

Раздел связи описывает данные внутри подпрограммы, которые служат либо входными аргументами, либо выходными результатами подпрограммы.

1. Зарезервированные слова BY, CHARACTER, IS, KEY, ON и WHEN являются необязательными и могут быть включены или не включены по усмотрению программиста. Наличие или отсутствие этих слов не оказывает влияния на программу.
2. Зарезервированные слова SYNCRONIZED и “SYNCHRONISED” взаимозаменяемы. Оба могут быть сокращены до SYNC.
3. Зарезервированное слово PICTURE может быть сокращено до PIC.
4. Зарезервированное слово JUSTIFIED может быть сокращено до JUST.
5. Как показывает синтаксическая диаграмма, определение LINKAGE-SECTION-Data-Item является рекурсивным, то есть может содержать любое количество таких спецификаций, записанных друг за другом. Первая такая спецификация должна иметь уровень 01. Спецификации, следующие за ней, могут иметь уровни, большие, чем 01, в этом случае они определяют иерархическое разбиение записи. Определение записи завершается, когда происходит одно из следующих событий:
   • Найден элемент уровня 01 — это означает конец определения одной записи и начало другой.
   • Найден заголовок раздела или секции — это также отмечает завершение записи и означает конец секции связи.
6. Описание каждого LINKAGE-SECTION-Data-Item должно завершаться точкой.
7. Единственно допустимые уровни — 01-49, 66, 77, 78 и 88. Уровни с 01 по 49 используются для определения элементов данных, которые могут быть частью иерархической структуры. Уровень 01 также может быть использован для определения константы — элемента с неизменяемым значением, указанным во время компиляции.
8. Уровни 66, 77, 78 и 88 имеют специальное назначение — см. Специальные элементы данных для получения подробной информации.
9. Ожидается, что:
   1. Секция связи должна встречаться только внутри подпрограммы. Однако компилятор не запрещает ее использование в основной программе.
   2. Все элементы данных уровня 01, описанные в секции связи подпрограммы, должны появляться в PROCEDURE DIVISION USING (см. Использование PROCEDURE DIVISION) или в качестве аргументов в операторе ENTRY.
   3. Каждый элемент данных уровня 01, описанный в секции связи подпрограммы, должен соответствовать аргументу, переданному в операторе CALL (см. CALL) или аргументу в вызове функции подпрограммы.
10. Не указание identifier-1 или FILLER сразу после номера уровня имеет тот же эффект, что и если было указано FILLER. Элемент данных с именем FILLER не может быть напрямую ссылаться; такие элементы обычно используются для указания неиспользуемой части всего выделенного хранилища для группового элемента или для описания группового элемента, содержимое которого будет ссылаться только по именам тех элементов, которые к нему принадлежат. В секции связи элементы данных уровня 01 не могут быть названы FILLER.
11. Для данных, определенных в секции связи, не выделяется памяти; описания данных там служат лишь для определения областей памяти, которые будут переданы подпрограмме вызывающей программой. Следовательно, любые обсуждения по умолчанию инициализации таких данных неактуальны. Тем не менее, возможно вручную выделять элементы данных секции связи, которые не являются аргументами подпрограммы, с помощью оператора ALLOCATE (см. ALLOCATE). В таких случаях инициализация происходит в соответствии с документацией данного оператора.
12. См. Положения описания данных для получения информации об использовании различных положений описания данных.

6.6. РАЗДЕЛ ОТЧЁТА

Синтаксис РАЗДЕЛА ОТЧЁТА

 [ REPORT SECTION.
   ~~~~~~ ~~~~~~~
   { Report-Description [ { Report-Group-Definition } ]... }... ]
   {                      { 01-Level-Constant       }      }
   {                      { 78-Level-Constant       }      }
   { 01-Level-Constant                                     }
   { 78-Level-Constant                                     }

Синтаксис Описания отчёта (RD)

 RD report-name [ IS GLOBAL ]
 ~~                  ~~~~~~
 [ CODE IS literal-1 | identifier-1 ]
   ~~~~
 [ { CONTROL IS   } { FINAL        }... ]
   { ~~~~~~~      } { ~~~~~        }
   { CONTROLS ARE } { identifier-2 }
     ~~~~~~~~
 [ PAGE [ { LIMIT IS   } ] [ { literal-2    } LINES ]
   ~~~~   { ~~~~~      }     { identifier-3 } ~~~~
          { LIMITS ARE }
            ~~~~~~
       [ literal-3 | identifier-4 COLUMNS|COLS ]
                                  ~~~~~~~ ~~~~
       [ HEADING IS literal-4 | identifier-5 ]
         ~~~~~~~
       [ FIRST DE|DETAIL IS literal-5 | identifier-6 ]
         ~~~~~ ~~ ~~~~~~
       [ LAST CH|{CONTROL HEADING} IS literal-6 | identifier-7 ]
         ~~~~ ~~  ~~~~~~~ ~~~~~~~
       [ LAST DE|DETAIL IS literal-7 | identifier-8 ]
         ~~~~ ~~ ~~~~~~
       [ FOOTING IS literal-8 | identifier-9 ] ] .
         ~~~~~~~

Этот раздел описывает макет печатных отчётов, а также многие функциональные аспекты генерации отчётов, которые будут созданы с помощью Системы управления созданием отчётов. Важно сохранять порядок этих положений и гарантировать, что все поля, определённые или используемые в этом разделе, фактически определены в WORKING-STORAGE SECTION и нигде больше.

1. Зарезервированные слова ARE и IS необязательны и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Фразы CONTROL IS и CONTROLS ARE взаимозаменяемы, как и фразы PAGE LIMIT и PAGE LIMITS.
3. Зарезервированное слово LINES может быть сокращено до LINE.
4. Зарезервированное слово COLUMNS может быть сокращено до COLS.
5. Каждый отчет, на который ссылается раздел REPORT IS (см. Описание файла/сортировки), должен быть описан описанием отчета (RD).
6. См. GLOBAL для получения информации об опции GLOBAL.
7. Пожалуйста, ознакомьтесь с Функциями редактора отчетов, если вы этого еще не сделали. Это поможет вам ознакомиться с терминологией редактора отчетов, которая следует далее.
8. Следующие правила относятся к разделу PAGE LIMITS:
   1. Если раздел PAGE LIMITS не указан, весь отчет будет сгенерирован как будто он состоит из одной произвольно длинной страницы.
   2. Все литералы (literal-2 до literal-8) должны быть числовыми с ненулевыми положительными целочисленными значениями.
   3. Все идентификаторы (identifier-2 до identifier-8) должны быть числовыми, необработанными с ненулевыми положительными целочисленными значениями.
   4. Любое значение, указанное для literal-2 или identifier-2, определит общее количество доступных строк на любой странице отчета, не считая любых неиспользуемых полей вверху и/или внизу страницы (определенных значениями LINES AT TOP и LINES AT BOTTOM в разделе LINAGE отчета FD — этот раздел связан с — см. Описание файла/сортировки).
   5. Любое значение, указанное для literal-3 или identifier-3, будет проигнорировано.
   6. Раздел HEADING определяет номер первой строки, в которой может быть представлен заголовок отчета или заголовок страницы.
   7. Раздел FIRST DETAIL определяет первую строку, в которой может быть представлена группа деталей.
   8. Раздел LAST CONTROL HEADING определяет последнюю строку, в которой может быть представлена любая строка заголовка управления.
   9. Раздел LAST DETAIL определяет последнюю строку, в которой может быть представлена любая строка группы деталей.
   10. Раздел FOOTING определяет последнюю строку, в которой может быть представлена любая строка группы подвала управления.
   11. Следующие правила устанавливают значения по умолчанию для различных разделов PAGE LIMIT, предполагая, что существует один:

       HEADING

       значение по умолчанию — один (1)

       FIRST DETAIL HEADING

       используется значение

       LAST CONTROL HEADING

       значение из LAST DETAIL или, если его нет, значение из FOOTING или, если его тоже нет, значение из PAGE LIMIT

       LAST DETAIL

       значение из FOOTING или, если его нет, значение из PAGE LIMIT

       FOOTING

       значение из LAST DETAIL или, если его нет, значение из PAGE LIMIT

   12. Для того, чтобы значения, указанные в разделе PAGE LIMIT, были корректными, должны выполняться все следующие условия:
       • FIRST DETAIL ≤ HEADING
       • LAST CONTROL HEADING ≤ FIRST DETAIL
       • LAST DETAIL ≤ LAST CONTROL HEADING
       • FOOTING ≤ LAST DETAIL

1. Следующие правила относятся к фрагменту CONTROL:
   1. Если фрагмент CONTROL отсутствует, отчёт не будет содержать разрывов управления; это означает, что в этом RD, не могут быть определены группы отчёта CONTROL HEADING или CONTROL FOOTING.
   2. Включите зарезервированное слово FINAL, если вы хотите включить специальное заголовка управления перед генерацией первой строки детали (CONTROL HEADING FINAL) или после генерации последней строки детали (CONTROL FOOTING FINAL).
   3. Если вы указываете FINAL, оно должно быть первым именем разрыва управления в RD.
   4. Любые спецификации identifier-9, включенные в CONTROL фрагмент, ссылаются на имена данных, определённые в любом разделе описания данных, кроме раздела отчёта.
   5. Для каждой identifier-9 должна быть определена группа отчёта CONTROL HEADING и/или CONTROL FOOTING в разделе отчёта.
   6. Во время выполнения:
      • Каждый раз, когда выполняется инструкция GENERATE (см. GENERATE) по отношению к группе отчёта детали, определённой для этого RD, RWCS проверит содержимое каждого элемента данных identifier-2; всякий раз, когда значение identifier-9 изменилось с момента предыдущего GENERATE, условие разрыва управления будет активным для этого identifier-2.
      • После определения списка разрывов управления будет представлена CONTROL FOOTING для каждого identifier-2 с разрывом управления (если такая группа отчёта определена).
      • Далее будет представлена CONTROL HEADING для каждого identifier-2 с разрывом управления (если такая группа отчёта определена).
      • Группы отчёта CONTROL FOOTING и CONTROL HEADING будут представлены в порядке их перечисления в CONTROL фрагменте.
      • Лишь после этого обработки будет представлена группа отчёта детали, указанная в GENERATE фрагменте.
2. Для каждого RD будет выделено следующее:
   1. Специальный регистр PAGE-COUNTER (см. Специальные Регистры), который будет содержать текущий номер страницы отчёта.
      • Этот регистр будет установлен в значение 1 при выполнении инструкции INITIATE (см. INITIATE) для отчёта и будет увеличиваться на 1 каждый раз, когда RWCS начинает новую страницу отчёта.
      • Ссылки на PAGE-COUNTER внутри раздела отчёта будут неявно квалифицированы именем отчёта, к которому относится группа отчёта, ссылающаяся на регистр.
      • Ссылки на PAGE-COUNTER в разделе процедур должны быть квалифицированы соответствующим именем отчёта, если определено несколько RD.
   2. Специальный регистр LINE-COUNTER, который будет содержать текущий номер строки на текущей странице.
3. Фрагмент RD должен быть последован хотя бы одной группой отчета уровня 01.

6.6.1. Определения групп отчёта

Синтаксис определения группы отчёта

 01 [ identifier-1 ]

 [ LINE NUMBER IS { integer-1 [ [ ON NEXT PAGE ] } ]
   ~~~~           {                  ~~~~ ~~~~   }
                  { +|PLUS integer-1             }
                  {   ~~~~                       }
                  { ON NEXT PAGE                 }
                       ~~~~ ~~~~
 [ NEXT GROUP IS { [ +|PLUS ] integer-2  } ]
   ~~~~ ~~~~~    {     ~~~~              }
                 { NEXT|{NEXT PAGE}|PAGE }
                   ~~~~  ~~~~ ~~~~  ~~~~
 [ TYPE IS { RH|{REPORT HEADING}                      } ]
   ~~~~    { ~~  ~~~~~~ ~~~~~~~                       }
           { PH|{PAGE HEADING}                        }
           { ~~  ~~~~ ~~~~~~~                         }
           { CH|{CONTROL HEADING} FINAL|identifier-2  }
           { ~~  ~~~~~~~ ~~~~~~~  ~~~~~               }
           { DE|DETAIL                                }
           { ~~ ~~~~~~                                }
           { CF|{CONTROL FOOTING} FINAL|identifier-2  }
           { ~~  ~~~~~~~ ~~~~~~~  ~~~~~               }
           { PF|{PAGE FOOTING}                        }
           {  ~~ ~~~~ ~~~~~~~                         }
           { RF|{REPORT FOOTING}                      }
             ~~  ~~~~~~ ~~~~~~~
 . [ REPORT-SECTION-Data-Item ]...

Здесь показан синтаксис определения группы отчёта для отчёта. Этот синтаксис допустим только в разделе отчёта и только после фрагмента RD.

1. Зарезервированные слова IS, NUMBER и ON являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Термины RH и REPORT HEADING взаимозаменяемы, как и PH и PAGE HEADING, CH и CONTROL HEADING, DE и DETAIL, CF и CONTROL FOOTING, PF и PAGE FOOTING, а также RF и REPORT FOOTING.
3. Определяемая группа отчёта будет частью наиболее недавно закодированного RD.
4. Фрагмент TYPE (см. TYPE) указывает тип определяемой группы отчёта.
5. Номер уровня для определения группы отчёта должен быть 01.
6. Необязательная спецификация identifier-1 присваивает имя этой группе отчёта, чтобы группа могла быть использована в инструкции GENERATE или в USE BEFORE REPORTING.
7. Две группы отчёта в одном отчёте (RD) не могут иметь одинаковое имя identifier-1. Однако могут быть несколько определений identifier-1 в разных отчётах. В таких случаях ссылки на identifier-1 должны быть квалифицированы именем отчёта.
8. Может быть только один заголовок отчёта, подвал отчёта, окончательный заголовок управления, окончательный подвал управления, заголовок страницы и подвал страницы на отчёт.
9. Объявления групп отчёта должны быть последованные по крайней мере одной REPORT-SECTION-Data-Item с номером уровня в диапазоне от 02 до 49.
10. Сведения об использовании различных фрагментов описания данных см. в разделе Фрагменты описания данных.

6.6.2. Элементы данных раздела отчёта

Синтаксис элементов данных раздела отчёта

 level-number [ identifier-1 ]

 [ BLANK WHEN ZERO ]
   ~~~~~      ~~~~
 [ COLUMN [ { NUMBER IS   } ] [ +|PLUS ] integer-1 ]
   ~~~      { ~~~~~~      }       ~~~~
            { NUMBERS ARE }
              ~~~~~~~
 [ GROUP INDICATE ]
   ~~~~~ ~~~~~~~~
 [ JUSTIFIED RIGHT ]
   ~~~~
 [ LINE NUMBER IS { integer-2 [ [ ON NEXT PAGE ] } ]
   ~~~~           { +|PLUS integer-2 ~~~~ ~~~~   }
                  {   ~~~~                       }
                  { ON NEXT PAGE                 }
                       ~~~~ ~~~~
 [ OCCURS [ integer-3 TO ] integer-4 TIMES
   ~~~~~~             ~~
     [ DEPENDING ON identifier-2 ]
       ~~~~~~~~~
     [ STEP integer-5 ]
       ~~~~
     [ VARYING identifier-3 FROM { identifier-4 } BY { identifier-5 } ]
       ~~~~~~~              ~~~~ { integer-6    } ~~ { integer-7    }
 [ PICTURE IS picture-string ]
   ~~~
 [ PRESENT WHEN condition-name ]
   ~~~~~~~ ~~~~
 [ SIGN IS LEADING|TRAILING [ SEPARATE CHARACTER ] ]
   ~~~~    ~~~~~~~ ~~~~~~~~   ~~~~~~~~
 [ { SOURCE IS literal-1|identifier-6 [ ROUNDED ]                   } ]
   { ~~~~~~                             ~~~~~~~                     }
   { SUM OF { identifier-7 }... [ { RESET ON FINAL|identifier-8 } ] }
   { ~~~    { literal-2    }      { ~~~~~    ~~~~~              }   }
   { VALUE IS [ ALL ] literal-3   { UPON identifier-9           }   }
     ~~~~~      ~~~                 ~~~~
 . [ REPORT-SECTION-Data-Item ]...

Описания элементов данных, описывающие строки и поля отчёта, которые составляют содержание группы отчёта, непосредственно следуют за определением этой группы.

1. Зарезервированные слова IS, NUMBER, OF, ON, RIGHT, TIMES и WHEN (BLANK) являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Зарезервированное слово COLUMN может быть сокращено до COL.
3. Зарезервированное слово JUSTIFIED может быть сокращено до JUST.
4. Зарезервированное слово PICTURE может быть сокращено до PIC.
5. Определения SOURCE (см. SOURCE), SUM (см. SUM) и VALUE (см. VALUE), допустимые только для элементарных пунктов, взаимно исключают друг друга.
6. Групповые пункты (без PICTURE пунктов) часто используются для описания целых строк отчёта, в то время как элементарные пункты (с пунктом рисунка) часто используются для описания конкретных полей информации в отчёте. При использовании этой кодировочной схемы, групповые пункты будут иметь LINE (см. LINE) пунктов и не будут иметь COLUMN (см. COLUMN) пунктов, в то время как элементарные пункты будут описываться наоборот.
7. См. Описание пунктов данных для получения информации об использовании различных пунктов описания данных.

6.7. БЛОК ЭКРАНА

Синтаксис элемента данных БЛОКА ЭКРАНА

 level-number [ identifier-1 | FILLER ]
                               ~~~~~~
 [ AUTO | AUTO-SKIP | AUTOTERMINATE ] [ BELL | BEEP ]
   ~~~~   ~~~~~~~~~   ~~~~~~~~~~~~~     ~~~~   ~~~~
 [ BACKGROUND-COLOR|BACKGROUND-COLOUR IS integer-1 | identifier-2 ]
   ~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~
 [ BLANK LINE|SCREEN ] [ ERASE EOL|EOS ]
   ~~~~~ ~~~~ ~~~~~~     ~~~~~ ~~~ ~~~
 [ BLANK WHEN ZERO ] [ JUSTIFIED RIGHT ]
   ~~~~~      ~~~~     ~~~~
 [ BLINK ] [ HIGHLIGHT | LOWLIGHT ] [ REVERSE-VIDEO ]
   ~~~~~     ~~~~~~~~~   ~~~~~~~~     ~~~~~~~~~~~~~
 [ COLUMN NUMBER IS [ +|PLUS ] integer-2 | identifier-3 ]
   ~~~                  ~~~~
 [ FOREGROUND-COLOR|FOREGROUND-COLOUR IS integer-3 | identifier-4 ]
   ~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~
 [ { FROM literal-1 | identifier-5 } ]
   { ~~~~                          }
   { TO identifier-5               }
   { ~~                            }
   { USING identifier-5            }
   { ~~~~~                         }
   { VALUE IS [ ALL ] literal-1    }
     ~~~~~      ~~~
 [ FULL | LENGTH-CHECK ] [ REQUIRED | EMPTY-CHECK ] [ SECURE | NO-ECHO ]
   ~~~~   ~~~~~~~~~~~~     ~~~~~~~~   ~~~~~~~~~~~     ~~~~~~   ~~~~~~~
 [ LEFTLINE ] [ OVERLINE ] [ UNDERLINE ]
   ~~~~~~~~     ~~~~~~~~     ~~~~~~~~~
 [ LINE NUMBER IS [ +|PLUS ] integer-4 | identifier-6 ]
   ~~~~               ~~~~
 [ OCCURS integer-5 TIMES ]
   ~~~~~~
 [ PICTURE IS picture-string ]
   ~~~
 [ PROMPT [ CHARACTER IS literal-2 | identifier-7 ]
   ~~~~~~   ~~~~~~~~~
 [ SIGN IS LEADING|TRAILING [ SEPARATE CHARACTER ] ]
   ~~~~    ~~~~~~~ ~~~~~~~~   ~~~~~~~~
 . [ SCREEN-SECTION-Data-Item ]...

Блок экрана описывает экраны, которые должны отображаться во время взаимодействия с терминалом/консолью.

1. Зарезервированные слова CHARACTER (пункт SEPARATE), IS, NUMBER, RIGHT, TIMES и WHEN являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Зарезервированное слово COLUMN может быть сокращено до COL.
3. Зарезервированное слово PICTURE может быть сокращено до PIC.
4. Следующие наборы зарезервированных слов взаимозаменяемы:
   • AUTO, AUTO-SKIP и AUTOTERMINATE
   • BACKGROUND-COLOR и BACKGROUND-COLOUR
   • BELL и BEEP
   • FOREGROUND-COLOR и FOREGROUND-COLOUR
   • FULL и LENGTH-CHECK
   • REQUIRED и EMPTY-CHECK
   • SECURE и NO-ECHO
5. Элементы данных, определённые в блоке экрана, описывают макеты экранов для ввода, вывода или их комбинации, которые будут использоваться с инструкцией ACCEPT screen-data-item (см. ACCEPT screen-data-item) или инструкцией DISPLAY screen-data-item (см. DISPLAY screen-data-item). Эти макеты экранов могут определять всю доступную область экрана или любую её подмножество.
6. Термин доступная область экрана является расплывчатым в тех средах, где сеансы командной строки вызываются внутри графической среды пользователя, как это происходит в Windows, OSX и большинстве систем Unix/Linux — эти среды позволяют окнам сеансов командной строки существовать с переменным числом доступных строк и столбцов экрана. При проектировании экранов GnuCOBOL необходимо учитывать логическую геометрию строк/столбцов экрана, в которой будет выполняться программа.
7. Элементы данных с уровнями 01 (Константы), 66, 78 и 88 могут быть использованы в блоке экрана; они имеют тот же синтаксис, правила и использование, что и в других разделах отдела данных.
8. Без пунктов LINE (см. СТРОКА) или COLUMN (см. СТОЛБЕЦ), поля блока экрана будут отображаться на окне консоли, начиная с координат строки/столбца, указанных или подразумеваемых инструкцией ACCEPT screen-data-item или DISPLAY screen-data-item, которая отображает элемент экрана. После того, как поле отображено на окне консоли, следующее поле будет отображено сразу после него.
9. Пункт LINE явно указанный в определении элемента данных блока экрана, переопределит любой пункт LINE включённый в инструкции ACCEPT screen-data-item или DISPLAY screen-data-item , которая отображает этот элемент данных на экране. То же самое касается пунктов COLUMN.
10. Клавиши Tab и Back-Tab (Shift-Tab на большинстве клавиатур) расположат курсор от поля к полю в последовательности строк/столбцов, в которой поля отображаются на экране во время выполнения, независимо от последовательности, в которой они были определены в блоке экрана.
11. См. Описание пунктов данных для получения информации об использовании различных пунктов описания данных.

6.8. Специальные элементы данных

6.8.1. Константы уровня 01

Синтаксис константы уровня 01

 01 constant-name-1 CONSTANT [ IS GLOBAL ]
                    ~~~~~~~~      ~~~~~~
   { AS { literal-1                           } } .
   {    { { BYTE-LENGTH } OF { identifier-1 } } }
   {    { { ~~~~~~~~~~~ }    { usage-name   } } }
   {    { { LENGTH      }                     } }
   {        ~~~~~~                              }
   { FROM CDF-variable-name-1                   }
     ~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, SCREEN.

Постоянная 01-го уровня является одним из четырёх типов констант времени компиляции, которые могут быть объявлены в программе. Другие три типа — это >>DEFINE директивы CDF (см. >>DEFINE) константы, >>SET директивы CDF (см. >>SET) константы и константы 78-го уровня (см. Элементы данных 78-го уровня).

1. Зарезервированные слова AS, IS и OF являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. См. GLOBAL, для получения информации об опции GLOBAL.
3. Этот конкретный тип объявления констант предоставляет возможность определить длину элемента данных или размер памяти, связанный с определённым числовым USAGE (см. USAGE) типом — то, что невозможно с другими типами констант.
4. Константы, определённые таким образом, становятся неопределёнными после того, как в входном источнике встретится END PROGRAM или END FUNCTION.
5. Описания данных такого вида фактически не выделяют никакой памяти — они просто определяют имя (constant-name-1), которое может быть использовано везде, где может использоваться числовая литерал (см. BYTE-LENGTH или LENGTH опции) или литерал того же типа, что и literal-1.
6. Имя constant-name-1 не может быть использовано в директиве CDF.
7. Следует быть внимательным, чтобы constant-name-1 не дублировало любое другое имя элемента данных, определённое в программе, поскольку ссылки на это имя элемента данных будут ссылаться на константу, а не на элемент данных. Компилятор GnuCOBOL не выдаст предупреждения об этом условии.
8. Значение, указанное для usage-name, может быть любым USAGE, который не использует PICTURE (см. PICTURE) пункт. Это могут быть любые из BINARY-C-LONG, BINARY-CHAR, BINARY-DOUBLE, BINARY-LONG, BINARY-SHORT, COMP-1 (или COMPUTATIONAL-1), COMP-2 (или COMPUTATIONAL-2), FLOAT-DECIMAL-16, FLOAT-DECIMAL-34, FLOAT-LONG, FLOAT-SHORT, POINTER, или PROGRAM-POINTER.
9. Пункт BYTE-LENGTH создаст числовое значение для constant-name-1, идентичное тому, которое вернёт функция BYTE-LENGTH по отношению к identifier-1 или элементу данных, объявленному с USAGE usage-name.
10. Пункт LENGTH создаст числовое значение для constant-name-1, идентичное тому, которое вернёт функция LENGTH по отношению к identifier-1 или элементу данных, объявленному с USAGE usage-name.

Вот пример программы GnuCOBOL, которая использует константы 01-го уровня для отображения длины (в байтах) различных типов использования без формата изображения.

    IDENTIFICATION DIVISION.
    PROGRAM-ID. Usage Lengths.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    01  Len-BINARY-C-LONG    CONSTANT AS LENGTH OF BINARY-C-LONG.
    01  Len-BINARY-CHAR      CONSTANT AS LENGTH OF BINARY-CHAR.
    01  Len-BINARY-DOUBLE    CONSTANT AS LENGTH OF BINARY-DOUBLE.
    01  Len-BINARY-LONG      CONSTANT AS LENGTH OF BINARY-LONG.
    01  Len-BINARY-SHORT     CONSTANT AS LENGTH OF BINARY-SHORT.
    01  Len-COMP-1           CONSTANT AS LENGTH OF COMP-1.
    01  Len-COMP-2           CONSTANT AS LENGTH OF COMP-2.
    01  Len-FLOAT-DECIMAL-16 CONSTANT AS LENGTH OF FLOAT-DECIMAL-16.
    01  Len-FLOAT-DECIMAL-34 CONSTANT AS LENGTH OF FLOAT-DECIMAL-34.
    01  Len-FLOAT-LONG       CONSTANT AS LENGTH OF FLOAT-LONG.
    01  Len-FLOAT-SHORT      CONSTANT AS LENGTH OF FLOAT-SHORT.
    01  Len-POINTER          CONSTANT AS LENGTH OF POINTER.
    01  Len-PROGRAM-POINTER  CONSTANT AS LENGTH OF PROGRAM-POINTER.
    PROCEDURE DIVISION.
    000-Main.
        DISPLAY "On this system, with this build of GnuCOBOL, the"
        DISPLAY "PICTURE-less USAGE's have these lengths (in bytes):"
        DISPLAY " "
        DISPLAY "BINARY-C-LONG:    " Len-BINARY-C-LONG
        DISPLAY "BINARY-CHAR:      " Len-BINARY-CHAR
        DISPLAY "BINARY-DOUBLE:    " Len-BINARY-DOUBLE
        DISPLAY "BINARY-LONG:      " Len-BINARY-LONG
        DISPLAY "BINARY-SHORT:     " Len-BINARY-SHORT
        DISPLAY "COMP-1:           " Len-COMP-1
        DISPLAY "COMP-2:           " Len-COMP-2
        DISPLAY "FLOAT-DECIMAL-16: " Len-FLOAT-DECIMAL-16
        DISPLAY "FLOAT-DECIMAL-34: " Len-FLOAT-DECIMAL-34
        DISPLAY "FLOAT-LONG:       " Len-FLOAT-LONG
        DISPLAY "FLOAT-SHORT:      " Len-FLOAT-SHORT
        DISPLAY "POINTER:          " Len-POINTER
        DISPLAY "PROGRAM-POINTER:  " Len-PROGRAM-POINTER
        STOP RUN
        .

Вывод этой программы на системе Windows 7 с 32-разрядной сборкой MinGW GnuCOBOL:

    On this system, with this build of GnuCOBOL, the
    PICTURE-less USAGE's have these lengths (in bytes):

    BINARY-C-LONG:    4
    BINARY-CHAR:      1
    BINARY-DOUBLE:    8
    BINARY-LONG:      4
    BINARY-SHORT:     2
    COMP-1:           4
    COMP-2:           8
    FLOAT-DECIMAL-16: 8
    FLOAT-DECIMAL-34: 16
    FLOAT-LONG:       8
    FLOAT-SHORT:      4
    POINTER:          4
    PROGRAM-POINTER:  4

6.8.2. Элементы данных 66-го уровня

Синтаксис элементов данных 66-го уровня

 66 identifier-1 RENAMES identifier-2 [ THRU|THROUGH identifier-3 ] .
                 ~~~~~~~                ~~~~ ~~~~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE

Элемент данных 66-го уровня объединяет ранее определённые элементы, задавая альтернативные, возможно перекрывающиеся, группировки элементарных элементов данных.

1. Зарезервированные слова THRU и THROUGH взаимозаменяемы.
2. Элемент данных 66-го уровня не может переименовать элемент данных 66-го, 01-го, 77-го или 88-го уровня.
3. Может быть несколько элементов данных 66-го уровня, переименовывающих элементы данных, содержащиеся в одном описании записи 01-го уровня.
4. Все RENAMES записи, связанные с одной логической записью, должны следовать сразу после последней записи описания данных данной записи.

6.8.3. Элементы данных 77-го уровня

Синтаксис элемента данных 77-го уровня

 77 identifier-1 [ IS GLOBAL|EXTERNAL ]
                      ~~~~~~ ~~~~~~~~
 [ BASED ]
   ~~~~~
 [ BLANK WHEN ZERO ]
   ~~~~~      ~~~~
 [ JUSTIFIED RIGHT ]
   ~~~~
 [ PICTURE IS picture-string ]
   ~~~
 [ REDEFINES identifier-5 ]
   ~~~~~~~~~
 [ SIGN IS LEADING|TRAILING [ SEPARATE CHARACTER ] ]
   ~~~~    ~~~~~~~ ~~~~~~~~   ~~~~~~~~
 [ SYNCRONIZED|SYNCHRONISED [ LEFT|RIGHT ] ]
   ~~~~        ~~~~           ~~~~ ~~~~~
 [ USAGE IS data-item-usage ]
   ~~~~~
 [ VALUE IS [ ALL ] literal-1 ] .
   ~~~~~      ~~~

Пункты LEFT и RIGHT (SYNCRONIZED) синтаксически распознаются, но в остальном не функциональны.

Этот синтаксис допустим в следующих разделах: WORKING-STORAGE, LOCAL-STORAGE, LINKAGE

Цель элемента 77-го уровня — возможность создания самостоятельного элементарных данных.

1. Зарезервированные слова CHARACTER, IS, RIGHT (JUSTIFIED) и WHEN являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Зарезервированное слово JUSTIFIED может быть сокращено до JUST, зарезервированное слово PICTURE может быть сокращено до PIC, а зарезервированные слова SYNCRONIZED и SYNCHRONISED могут быть сокращены до SYNC.
3. Новые программы, требующие самостоятельного элементарного элемента, должны быть закодированы с использованием уровня 01, а не 77.
4. См. Разделы описания данных, для получения информации об использовании различных разделов описания данных.

6.8.4. Элементы данных 78-го уровня

Синтаксис констант 78-го уровня

 78 constant-name-1 VALUE IS literal-1 .
                    ~~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, SCREEN

Постоянная величина 78-го уровня — один из четырёх типов констант времени компиляции, которые можно объявить в программе. Другие три типа — константы директивы >>DEFINE CDF (см. >>DEFINE), константы директивы >>SET CDF (см. >>SET) и константы 01-го уровня (см. Константы 01-го уровня).

1. Зарезервированное слово IS является необязательным и может быть опущено. Наличие или отсутствие этого слова не влияет на программу.
2. Константы, определённые таким образом, становятся неопределёнными после того, как в исходном коде встретится END PROGRAM или END FUNCTION.
3. Описания данных такого формата фактически не выделяют памяти — они просто определяют имя (constant-name-1), которое можно использовать в любом месте, где может использоваться литерал того же типа, что и literal-1.
4. Имя constant-name-1 не может быть использовано в директиве CDF.
5. Следует позаботиться о том, чтобы constant-name-1 не дублировало никакое другое имя элемента данных, определённое в программе, так как ссылки на это имя элемента данных будут относиться к константе, а не к элементу данных. Компилятор GnuCOBOL не выведет предупреждение об этом условии.

6.8.5. Элементы данных 88-го уровня

Синтаксис элементов данных 88-го уровня

 88 condition-name-1 { VALUE IS   } {literal-1 [ THRU|THROUGH literal-2 ]}...
                     { ~~~~~      }              ~~~~ ~~~~~~~
                     { VALUES ARE }
                       ~~~~~~

   [ WHEN SET TO FALSE IS literal-3 ] .
                 ~~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, REPORT, SCREEN

Имена условий — это булевы (т.е. TRUE / FALSE) элементы данных, которые получают свои значения TRUE и FALSE на основе значений элемента данных без уровня 88, определение которого непосредственно следует за ними.

1. Зарезервированные слова ARE, IS, SET и TO являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Зарезервированные слова THRU и THROUGH взаимозаменяемы.
3. Имена условий всегда определяются подчинено другому (не 88-уровневому) элементу данных. Этот элемент данных должен быть элементарным. Всякий раз, когда родительский элемент данных принимает одно из значений, указанных в пункте VALUE (см. VALUE) элемента 88-го уровня, condition-name-1 примет значение TRUE.
4. Имена условий не занимают памяти.
5. Необязательный пункт THROUGH позволяет указать диапазон возможных значений TRUE.
6. Всякий раз, когда родительский элемент данных принимает любое значение, кроме одного из значений, указанных в пункте VALUE элемента condition-name-1, condition-name-1 примет значение FALSE.
7. Выполнение оператора SET condition-name-1 TO TRUE заставит родительский элемент данных condition-name-1 принять первое значение, указанное в пункте VALUE элемента condition-name-1.
8. Выполнение оператора SET condition-name-1 TO FALSE заставит родительский элемент данных condition-name-1 принять значение, указанное в пункте FALSE элемента condition-name-1. Если у condition-name-1 нет пункта FALSE, оператор SET (см. SET) сгенерирует сообщение об ошибке во время компиляции.
9. Дополнительную информацию см. в разделе Имена условий.

6.9. Описания элементов данных

6.9.1. ANY LENGTH

Синтаксис атрибута ANY LENGTH

 ANY LENGTH
 ~~~ ~~~~~~

Этот синтаксис допустим в следующих разделах: LINKAGE

Элементы данных, объявленные с атрибутом ANY LENGTH, не имеют фиксированной длины во время компиляции. Такие элементы могут быть определены только в разделе связывания подпрограммы, так как они могут служить только описаниями аргументов подпрограммы. Эти элементы должны иметь пункт PICTURE (см. PICTURE), который указывает ровно один символ A, X или 9.

1. Пункты ANY LENGTH и BASED (см. BASED) не могут использоваться вместе в одном описании элемента данных.

6.9.2. AUTO

Синтаксис атрибута AUTO

 AUTO
 ~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Поле, описание которого включает этот атрибут, заставит курсор автоматически переместиться к следующему полю экрана, которое можно ввести, если поле полностью заполнено входными данными.

1. Пункты AUTO, AUTO-SKIP (см. AUTO-SKIP) и AUTOTERMINATE (см. AUTOTERMINATE) взаимозаменяемы и не могут использоваться вместе в одном описании элемента данных.

6.9.3. AUTO-SKIP

Синтаксис атрибута AUTO-SKIP

 AUTO-SKIP
 ~~~~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Поле, описание которого включает этот атрибут, заставит курсор автоматически переместиться к следующему полю экрана, которое можно ввести, если поле полностью заполнено входными данными.

1. Пункты AUTO (см. AUTO), AUTO-SKIP и AUTOTERMINATE (см. AUTOTERMINATE) взаимозаменяемы и не могут использоваться вместе в одном описании элемента данных.

6.9.4. AUTOTERMINATE

AUTOTERMINATE Атрибут синтаксиса

 AUTOTERMINATE
 ~~~~~~~~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Поле, описание которого включает этот атрибут, заставит курсор автоматически перейти к следующему полю, поддерживающему ввод на экране, если поле полностью заполнено входными данными.

1. Приведенные AUTO (см. AUTO), AUTO-SKIP (см. AUTO-SKIP) и AUTOTERMINATE пункты взаимозаменяемы и не могут использоваться вместе в описании одного и того же элемента данных.

6.9.5. BACKGROUND-COLOR

BACKGROUND-COLOR Атрибут синтаксиса

 BACKGROUND-COLOR|BACKGROUND-COLOUR IS integer-1 | identifier-1
 ~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Этот пункт используется для указания цвета фона экрана для элемента данных экрана или цвета фона по умолчанию для подчиненных элементов, если он используется для группового элемента.

1. Зарезервированное слово IS необязательно и может быть опущено. Наличие или отсутствие этого слова не оказывает влияния на программу.
2. Зарезервированные слова BACKGROUND-COLOR и BACKGROUND-COLOUR взаимозаменяемы.
3. Цвета можно указать по номеру (0-7) или используя имена констант, предоставленные в копибуке screenio.cpy (предоставляется со всеми дистрибутивами исходного кода GnuCOBOL).
4. Цвета также можно указать с помощью числового неотредактированного идентификатора, значение которого находится в диапазоне 0-7.

Для составных DISPLAY атрибуты всегда применяются только к предыдущему элементу-источнику, но также позволяют изменять значение переменной или литералом, то есть

DISPLAY "Name: "   BACKGROUND-COLOR COB-YELLOW
         NAME-VAR  BACKGROUND-COLOR COB-BLACK
END-DISPLAY

См. Палитру цветов и атрибуты видео для получения дополнительной информации о цветах экрана и атрибутах видео.

6.9.6. BASED

BASED Атрибут синтаксиса

 BASED
 ~~~~~

Этот синтаксис допустим в следующих разделах: WORKING-STORAGE, LOCAL-STORAGE, LINKAGE

Элементы данных, объявленные с BASED, не выделяют памяти во время компиляции. Во время выполнения, ALLOCATE (см. ALLOCATE) или SET ADDRESS (см. УСТАНОВИТЬ АДРЕС) операторы используются для выделения памяти для таких элементов и (необязательно) их инициализации.

1. BASED и ANY LENGTH (см. ЛЮБОЙ ДЛИНЫ) пункты не могут использоваться вместе в описании одного и того же элемента данных.
2. BASED пункт может быть использован только для элементов данных уровня 01 и уровня 77.

6.9.7. BEEP

BEEP Атрибут синтаксиса

 BEEP
 ~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

1. BEEP и BELL (см. ЗВОНОК) пункты взаимозаменяемы и не могут использоваться вместе в описании одного и того же элемента данных.
2. Используйте этот пункт, чтобы вызвать звуковой сигнал при DISPLAY элементе экрана.

6.9.8. BELL

BELL Атрибут синтаксиса

 BELL
 ~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

1. BEEP (см. BEEP) и BELL пункты взаимозаменяемы и не могут использоваться вместе в описании одного и того же элемента данных.
2. Используйте этот пункт, чтобы вызвать звуковой сигнал при DISPLAY элементе экрана.

6.9.9. BLANK

BLANK Атрибут синтаксиса

 BLANK LINE|SCREEN
 ~~~~~ ~~~~ ~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Этот пункт очистит весь экран (BLANK SCREEN) или только строку, в которой данные будут отображаться (BLANK LINE).

1. Очищенные области будут иметь цвета переднего и заднего плана, установленные в соответствии с атрибутами поля, содержащего BLANK пункт.
2. Этот пункт полезен, когда один элемент экрана отображается поверх ранее отображенного.

6.9.10. BLANK WHEN ZERO

BLANK-WHEN-ZERO Атрибут синтаксиса

 BLANK WHEN ZERO
 ~~~~~      ~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, REPORT, SCREEN

Этот пункт приведет к автоматическому преобразованию значения элемента в пробелы, если значение 0 когда-либо MOVE будет назначено элементу.

1. Зарезервированное слово WHEN необязательно и может быть опущено. Наличие или отсутствие этого слова не оказывает влияния на программу.
2. Этот пункт может использоваться только для элемента данных PIC 9 с USAGE (см. USAGE) значения DISPLAY.

6.9.11. BLINK

BLINK Атрибут синтаксиса

 BLINK
 ~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

BLINK пункт изменяет визуальное отображение поля, заставляя содержимое поля мигать.

См. Палитру цветов и атрибуты видео для получения дополнительной информации о цветах экрана и атрибутах видео.

6.9.12. COLUMN

COLUMN (РАЗДЕЛ ОТЧЕТА) Синтаксис пункта

 COLUMN [ { NUMBER IS   } ] [ +|PLUS ] integer-1 ]
 ~~~      { NUMBERS ARE }       ~~~~

COLUMN (РАЗДЕЛ ЭКРАНА) Синтаксис пункта

 COLUMN NUMBER IS [ +|PLUS ] integer-2 | identifier-3 ]
 ~~~                  ~~~~

Этот синтаксис допустим в следующих разделах: REPORT, SCREEN

Оператор COLUMN определяет колонку, в которой поле должно быть представлено на экране или в отчёте.

1. Зарезервированные слова ARE, IS, NUMBER и NUMBERS являются необязательными и могут быть опущены. Их присутствие или отсутствие не влияет на программу.
2. Зарезервированное слово COLUMN может быть сокращено до COL.
3. Позиция строки поля в отчёте или на экране будет определена оператором LINE (см. LINE).
4. Значение integer-1 должно быть 1 или больше.
5. Если identifier-1 используется для указания абсолютной или относительной позиции столбца, identifier-1 должно быть определено как числовой элемент любого USAGE (см. USAGE), кроме COMPUTATIONAL-1 или COMPUTATIONAL-2, без редактирования символов. Значение identifier-1 в момент вывода данных на экран должно быть 1 или больше. Обратите внимание, что идентификатор COMPUTATIONAL-1 или COMPUTATIONAL-2 будет принят компилятором, но приведет к непредсказуемым результатам во время выполнения.
6. Координата столбца поля может быть указана в абсолютном формате (например COLUMN 5) или в относительном формате, основанном на конце ранее выведенного поля (например COLUMN PLUS 1).
7. Символ ‘+’ может быть использован вместо слова PLUS, если необходимо; однако, если используется символ ‘+’, должно быть хотя бы одно пробельное разделитель между ним и integer-1. Отсутствие пробела приведёт к тому, что символ ‘+’ будет просто обработан как часть integer-1, и оператор COLUMN будет интерпретироваться как абсолютная, а не относительная, спецификация столбца.
8. Использование относительного позиционирования столбца (COLUMN PLUS) имеет несколько отличающееся поведение в зависимости от раздела, в котором используется оператор, как следует:
   1. При использовании в разделе отчёта COLUMN PLUS поместит начало значения нового поля так, чтобы между концом предыдущего поля и началом текущего поля было integer-1 пустых столбцов.

      Если описание элемента данных отчёта включает операторы SOURCE (см. SOURCE), SUM (см. SUM) или VALUE (см. VALUE), но не включает COLUMN, то COLUMN PLUS 1 будет предположено.

   2. При использовании в разделе экрана COLUMN PLUS разместит новое поле так, чтобы оно начиналось ровно на integer-1 или identifier-1 символов после последнего символа предыдущего поля. Таким образом, COLUMN PLUS 1 не оставит пустых позиций между концом предыдущего поля и началом текущего.

      Если описание элемента данных экрана включает операторы FROM (см. FROM), TO (см. TO), USING (см. USING) или VALUE (см. VALUE), но не включает COLUMN, новое поле на экране начнется в координате столбца последнего символа предыдущего поля.

6.9.13. CONSTANT

Синтаксис атрибута CONSTANT

 CONSTANT
 ~~~~~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, SCREEN

Этот параметр указывает, что элемент данных 01-уровня, в объявлении которого указан CONSTANT, будет рассматриваться как символическое имя для литерального значения, которое может быть использовано там, где может быть использован литерал соответствующего типа.

1. Значение элемента данных, определенного как константа, не может быть изменено во время выполнения. Фактически, использование такого элемента данных в качестве целевого поля любого оператора раздела процедуры, который сохраняет значение, не допустимо с точки зрения синтаксиса.
2. См. 01-Уровневые константы для дополнительной информации.

6.9.14. EMPTY-CHECK

Синтаксис атрибута EMPTY-CHECK

 EMPTY-CHECK
 ~~~~~~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Этот оператор требует от пользователя ввода данных в поле, для которого он указан (или во все подчиненные поля ввода, если EMPTY-CHECK указан для группового элемента).

1. Операторы EMPTY-CHECK и REQUIRED (см. REQUIRED) взаимозаменяемы и не могут быть использованы вместе в описании одного элемента данных.
2. Для активации этого оператора пользователь должен сначала переместить курсор в поле, для которого он определён.
3. Оператор ACCEPT screen-data-item (см. ACCEPT screen-data-item) игнорирует клавишу Enter и любые другие клавиши перемещения курсора, которые могли бы переместить курсор в другой элемент экрана, если в поле не были введены данные. Функциональные клавиши всё ещё могут быть использованы для завершения ACCEPT.
4. Для функционирования данного атрибута необходима поддержка подлежащего пакета «curses» в вашей реализации GnuCOBOL. На данный момент пакет «PDCurses» (используемый для нативных сборок Windows или MinGW) не поддерживает EMPTY-CHECK.

6.9.15. ERASE

Синтаксис оператора ERASE

 ERASE EOL|EOS
 ~~~~~ ~~~ ~~~

Этот синтаксис допустим в следующих разделах: SCREEN

ERASE очистит содержимое экрана с места отображения элемента данных экрана, описание которого содержит эту клаузу, до конца экрана (ERASE EOS)

1. Очищенные области получат цвета переднего и заднего плана, соответствующие атрибутам поля, содержащего клаузу ERASE.
2. Эта клауза полезна, когда один элемент экрана отображается поверх ранее отображенного.

См. Цветовая палитра и атрибуты видео для получения дополнительной информации о цветах экрана и атрибутах видео.

6.9.16. EXTERNAL

Синтаксис атрибута EXTERNAL

 EXTERNAL
 ~~~~~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE

Эта клауза отмечает описание элемента данных, FD или SD, как доступное для обмена с другими программами, выполняемыми из того же потока выполнения. См. Описание файла/сортировки.

1. Указав клаузу EXTERNAL в описании файла или FD, или SD, описание файла может быть общим для всех программ, выполняемых из одного потока выполнения, при условии, что клауза EXTERNAL с описанием файла прописана в каждой программе, которой оно необходимо. Это совместное использование позволяет открывать, читать и/или записывать и закрывать файл в различных программах. Это совместное использование также распространяется на описания записей, подчиненных описанию файла.
2. Указав клаузу EXTERNAL в описании элемента данных, этот элемент может быть общим для всех программ, выполняемых из того же потока выполнения, при условии, что элемент данных прописан (с клаузой EXTERNAL) в каждой программе, которой он нужен.
3. Следующие моменты относятся к указанию EXTERNAL в определении элемента данных:
   1. Клаузу EXTERNAL можно указывать только на уровнях 77 или 01.
   2. Элемент EXTERNAL должен иметь имя данных, которое не может быть FILLER.
   3. EXTERNAL нельзя комбинировать с BASED (см. BASED), GLOBAL (см. GLOBAL) или REDEFINES (см. REDEFINES).

6.9.17. FALSE

Синтаксис клаузы FALSE

 WHEN SET TO FALSE IS literal-1
             ~~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, REPORT, SCREEN

Эта клауза, которая может появляться только в определении имени условия уровня 88, используется для указания значения элемента данных, являющегося родителем имени условия уровня 88, которое заставит имя условия принять значение FALSE.

1. Зарезервированные слова IS, SET, TO и WHEN являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. См. Элементы данных уровня 88 или Имена условий для получения дополнительной информации.

6.9.18. FOREGROUND-COLOR

Синтаксис атрибута FOREGROUND-COLOR

 FOREGROUND-COLOR|FOREGROUND-COLOUR IS integer-1 | identifier-1
 ~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Эта клауза используется для указания цвета текста в элементе данных экрана или цвета текста по умолчанию для подчиненных элементов, если она используется в групповом элементе.

1. Зарезервированное слово IS является необязательным и может быть опущено. Наличие или отсутствие этого слова не влияет на программу.
2. Зарезервированные слова FOREGROUND-COLOR и FOREGROUND-COLOUR взаимозаменяемы.
3. Цвета задаются числом (0-7) или с использованием имен констант, предоставленных в копибуке screenio.cpy (который предоставляется со всеми дистрибутивами исходного кода GnuCOBOL).
4. Цвета также можно задать с помощью числового неотредактированного идентификатора, значение которого находится в диапазоне от 0 до 7.

См. Цветовая палитра и атрибуты видео для получения дополнительной информации о цветах экрана и атрибутах видео.

6.9.19. FROM

Синтаксис клаузы FROM

 FROM literal-1 | identifier-5
 ~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Эта клауза используется для указания элемента данных, от которого поле секции экрана получает значение при отображении экрана, или литерала, который задаст значение этого поля.

1. Клаузы FROM, TO (см. TO), USING (см. USING) и VALUE (см. VALUE) взаимоисключают друг друга в определении любого элемента данных секции экрана.

6.9.20. FULL

Синтаксис атрибута FULL

 FULL
 ~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Клауза FULL заставляет пользователя вводить данные в поле, для которого она указана (или во все подчиненные поля, способные принимать ввод, если она указана для группового элемента), достаточно для заполнения всех позиций символов поля.

1. Операторы FULL и LENGTH-CHECK (см. LENGTH-CHECK) взаимозаменяемы и не могут использоваться вместе в одном описании элемента данных.
2. Для того, чтобы этот оператор вступил в силу во время выполнения, пользователь должен переместить курсор в поле, в определении которого он указан.
3. Оператор ACCEPT screen-data-item (см. ACCEPT screen-data-item) проигнорирует клавишу Enter и любые другие клавиши перемещения курсора, которые могли бы переместить курсор на другой элемент экрана, если в поле не было введено необходимое количество данных. Однако функциональные клавиши по-прежнему будут разрешены для завершения ACCEPT.
4. Для функционирования этого атрибута он должен поддерживаться базовым пакетом «curses», с которым была построена ваша реализация GnuCOBOL. На данный момент пакет «PDCurses» (используемый для нативных сборок Windows или MinGW) не поддерживает FULL.

6.9.21. GLOBAL

GLOBAL Атрибут Синтаксис

 GLOBAL
 ~~~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, REPORT

Этот оператор помечает элемент данных, константу уровня 01, FD (см. Описание файла/сортировки), SD (см. Описание файла/сортировки) или RD (см. Раздел отчета) как разделяемый с любыми вложенными подпрограммами.

1. Указав оператор GLOBAL в описании файла или отчета, это описание может быть разделено между программой и любыми вложенными подпрограммами в ней, при условии, что оператор FD, SD или RD (с оператором GLOBAL) закодирован в каждой вложенной подпрограмме, требующей его. Эта совместная работа позволяет файлу открываться, читаться и/или записываться, а также закрываться, или отчёту запускаться или завершаться в этих программах. Разные скомпилированные программы не могут использовать общее описание файла GLOBAL, но они могут использовать общее описание файла EXTERNAL (см. EXTERNAL). Эта совместная работа распространяется также на описания записей, подчиненные описанию файла, и на группы отчетов, подчиненные описанию RD.
2. Указав оператор GLOBAL в описании элемента данных, этот элемент данных может быть разделен между программой и любыми вложенными подпрограммами в ней, при условии, что элемент данных закодирован (с оператором GLOBAL ) в каждой программе, которая его требует.
3. Следующие моменты относятся к указанию GLOBAL в определении элемента данных:
   1. Оператор GLOBAL может быть указан только на уровне 77 или 01.
   2. Элемент GLOBAL должен иметь имя данных, и это имя не может быть FILLER.
   3. GLOBAL не может быть объединён с EXTERNAL (см. EXTERNAL), REDEFINES (см. REDEFINES) или BASED (см. BASED).

6.9.22. GROUP INDICATE

GROUP-INDICATE Атрибут Синтаксис

 GROUP INDICATE
 ~~~~~ ~~~~~~~~

Этот синтаксис допустим в следующих разделах: REPORT

Оператор GROUP INDICATE указывает, что элемент данных, в определении которого он указан, будет отображаться только в очень ограниченных обстоятельствах.

1. Этот оператор может быть указан только внутри группы отчета DETAIL (см. TYPE).
2. При наличии этого оператора, элемент данных в вопросе будет отображаться только при следующих обстоятельствах:
   1. При первом отображении детализированной группы после INITIATE (см. INITIATE) отчета.
   2. При первом отображении детализированной группы после начала каждой новой страницы.
   3. При первом отображении детализированной группы после любого разрыва контроля.

6.9.23. HIGHLIGHT

HIGHLIGHT Атрибут Синтаксис

 HIGHLIGHT
 ~~~~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Этот оператор управляет интенсивностью текста (FOREGROUND-COLOR (см. FOREGROUND-COLOR)), установив эту интенсивность на максимальное из трёх возможных значений.

1. Этот оператор, наряду с оператором LOWLIGHT (см. LOWLIGHT), предназначен для обеспечения трёхступенчатой схемы интенсивности (LOWLIGHT … ничего (Нормальный) … HIGHLIGHT).

См. Цветовая палитра и видеоатрибуты, для получения дополнительной информации о цветах экрана и видеоатрибутах.

6.9.24. JUSTIFIED

JUSTIFIED Атрибут Синтаксис

 JUSTIFIED RIGHT
 ~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, REPORT, SCREEN

Наличие оператора JUSTIFIED RIGHT в определении элемента данных изменяет способ хранения данных в поле с дефолтного «выравнивания по левому краю, заполнение пробелами» на «выравнивание по правому краю, заполнение пробелами».

1. Зарезервированное слово RIGHT необязательно и может быть опущено. Наличие или отсутствие этого слова не влияет на программу.
2. Зарезервированное слово JUSTIFIED может быть сокращено до JUST.
3. Этот пункт действителен только для символьных (PIC A) или буквенно-цифровых (PIC X) данных.
4. Наличие или отсутствие этого пункта влияет на поведение оператора MOVE (см. MOVE), а также описания данных FROM (см. FROM), SOURCE (см. SOURCE) и USING (см. USING).
5. Если значение, сохраняемое в поле, имеет такую же длину, как и принимающее поле, наличие или отсутствие пункта JUSTIFIED RIGHT в описании этого поля не имеет значения.
6. Следующие примеры иллюстрируют поведение наличия и отсутствия пункта JUSTIFIED RIGHT в случае, когда размер поля отличается от размера сохраняемого значения. В этих примерах символ b представляет пробел.

   Когда значение короче размера поля: Без JUSTIFIED С JUSTIFIED 01 A PIC X(6). MOVE @code{ABC} TO A 01 A PIC X(6) JUSTIFIED RIGHT. MOVE @code{ABC} TO A Результат Результат ABCbbb bbbABC

   Когда значение длиннее размера поля: Без JUSTIFIED С JUSTIFIED 01 A PIC X(6). MOVE 'ABCDEFGHI' TO A 01 A PIC X(6) JUSTIFIED RIGHT. MOVE 'ABCDEFGHI' TO A Результат Результат ABCDEF DEFGHI

6.9.25. LEFTLINE

LEFTLINE Атрибут Синтаксис

 LEFTLINE
 ~~~~~~~~

Этот синтаксис действителен в следующих разделах: SCREEN

Пункт LEFTLINE добавит вертикальную линию на левом краю поля экрана.

1. Пункты LEFTLINE, OVERLINE (см. OVERLINE) и UNDERLINE (см. UNDERLINE) могут быть использованы в любой комбинации в описании одного поля.
2. Этот пункт фактически не функционален при использовании в средах командной оболочки Windows (cmd.exe) и при выполнении программ, скомпилированных с использованием реализации GnuCOBOL, построенной на основе «PDCurses» (например, сборки Windows/MinGW).
3. Будет ли этот пункт работать в системах Cygwin или UNIX/Linux/OSX, зависит от возможностей атрибутов видео вывода терминала и используемого программного обеспечения «curses».

См. Цветовая палитра и атрибуты видео для получения дополнительной информации о цветах экрана и атрибутах видео.

6.9.26. LENGTH-CHECK

LENGTH-CHECK Атрибут Синтаксис

 LENGTH-CHECK
 ~~~~~~~~~~~~

Этот синтаксис действителен в следующих разделах: SCREEN

Пункт LENGTH-CHECK заставляет пользователя вводить данные в поле, для которого он указан (или во все подчиненные поля, если указан для группового элемента), достаточные для заполнения каждой позиции символа в поле.

1. Пункты FULL (см. FULL) и LENGTH-CHECK взаимозаменяемы и не могут использоваться вместе в одном описании данных.
2. Для того, чтобы этот пункт вступил в действие во время выполнения, пользователь должен переместить курсор в поле, в котором этот пункт указан в его определении.
3. Оператор ACCEPT screen-data-item (см. ACCEPT screen-data-item) проигнорирует нажатие клавиши Enter и любые другие нажатия клавиш перемещения курсора, которые могли бы переместить курсор в другой элемент экрана, пока не будет введено необходимое количество данных в поле. Функциональные клавиши все же будут разрешены для завершения ACCEPT, однако.
4. Для функционирования этот атрибут должен поддерживаться базовым пакетом «curses» вашей реализации GnuCOBOL. На данный момент пакет «PDCurses» (используемый для собственных сборок Windows или MinGW) не поддерживает LENGTH-CHECK.

6.9.27. LINE

LINE (РАЗДЕЛ ОТЧЕТА) Синтаксис пункта

 LINE NUMBER IS { integer-2 [ [ ON NEXT PAGE ] }
 ~~~~           {                  ~~~~ ~~~~   }
                { +|PLUS integer-2             }
                {   ~~~~                       }
                { ON NEXT PAGE                 }
                     ~~~~ ~~~~

LINE (РАЗДЕЛ ЭКРАНА) Синтаксис пункта

 [ LINE NUMBER IS [ +|PLUS ] integer-4 | identifier-6 ]
   ~~~~               ~~~~

Этот синтаксис действителен в следующих разделах: REPORT, SCREEN

Этот пункт предоставляет возможность явно указать, на какой строке должно быть представлено поле на окне консоли (раздел экрана) или в отчете (раздел отчета).

1. Зарезервированные слова IS, NUMBER и ON являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Следующие пункты описывают использование формата 1 пункта LINE:
   1. Положение столбца элемента отчета определяется пунктом COLUMN (см. COLUMN).
   2. Значение integer-1 должно быть 1 или больше.
   3. Номер строки отчета, на которой будет отображаться элемент данных, содержащий этот пункт, а также любые подчиненные элементы данных, может быть указан в абсолютном формате (например LINE 5) или в относительном формате, основанном на ранее отображенной строке (например LINE PLUS 1).
   4. Символ ‘+’ может быть использован вместо слова PLUS, если это необходимо; однако, если используется ‘+’, между ним и integer-1 должен быть хотя бы один пробел. Отсутствие пробела приведет к тому, что ‘+’ будет просто считаться частью integer-1, и пункт LINE будет интерпретирован как абсолютная спецификация строки, а не относительная.
   5. Необязательный пункт NEXT PAGE указывает, что — независимо от того, может ли группа отчета поместиться на текущей странице отчета, она будет вынужденно отображаться на новой странице.
3. Следующие пункты описывают использование формата 2 пункта LINE:
   1. Положение столбца поля раздела экрана определяется пунктом COLUMN (см. COLUMN).
   2. Значение integer-1 должно быть 1 или больше.
   3. Если identifier-1 используется для указания абсолютного или относительного положения столбца, identifier-1 должен быть определен как числовой элемент любого типа USAGE (см. USAGE), кроме COMPUTATIONAL-1 или COMPUTATIONAL-2, без редактирования символов. Значение identifier-1 в момент отображения элемента данных экрана должно быть 1 или больше. Обратите внимание, что идентификаторы COMPUTATIONAL-1 или COMPUTATIONAL-2 будут приняты компилятором, но могут привести к непредсказуемым результатам во время выполнения.
   4. Номер строки экрана, на которой будет отображаться элемент данных, содержащий этот пункт, а также любые подчиненные элементы данных, может быть указан в абсолютном формате (например LINE 5) или в относительном формате, основанном на ранее отображенной строке (например LINE PLUS 1).
   5. Символ ‘+’ может быть использован вместо слова PLUS, если это необходимо; однако, если используется ‘+’, между ним и integer-1 должен быть хотя бы один пробел. Отсутствие пробела приведет к тому, что ‘+’ будет просто считаться частью integer-1, и пункт LINE будет интерпретирован как абсолютная спецификация строки, а не относительная.
   6. Если описание элемента данных экрана включает пункты FROM (см. FROM), TO (см. TO), USING (см. USING) или VALUE (см. VALUE), но не содержит пункта LINE, будет предполагаться «текущая строка экрана».

6.9.28. LOWLIGHT

Синтаксис атрибута LOWLIGHT

 LOWLIGHT
 ~~~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Пункт LOWLIGHT управляет интенсивностью текста (FOREGROUND-COLOR) путем установки этой интенсивности на минимальное из трех возможных значений.

1. Этот пункт, наряду с HIGHLIGHT (см. HIGHLIGHT), предназначен для обеспечения трехступенчатой схемы интенсивности (LOWLIGHT … ничего (Нормальное) … HIGHLIGHT). В средах, таких как консоль Windows, где поддерживается только два уровня интенсивности, LOWLIGHT эквивалентен опущению этого пункта.

См. Цветовая палитра и видеоатрибуты для получения дополнительной информации о цветах экрана и видеоатрибутах.

6.9.29. NEXT GROUP

Синтаксис пункта NEXT-GROUP

 NEXT GROUP IS { [ +|PLUS ] integer-2  }
 ~~~~ ~~~~~    {     ~~~~              }
               { NEXT|{NEXT PAGE}|PAGE }
                 ~~~~  ~~~~ ~~~~  ~~~~

Этот синтаксис допустим в следующих разделах: REPORT

Этот пункт определяет правила, согласно которым следующая группа, подлежащая отображению в отчете, начнется с точки зрения строк относительно последней строки группы, в которой этот пункт появляется.

1. Зарезервированное слово IS является необязательным и может быть опущено. Наличие или отсутствие этого слова не влияет на программу.
2. Термины NEXT, NEXT PAGE и PAGE взаимозаменяемы.
3. Группа отчета должна содержать по крайней мере один пункт LINE NUMBER для того, чтобы также содержать пункт NEXT GROUP.
4. Если пункт RD (см. РАЗДЕЛ ОТЧЕТА) в котором находится группа отчета, содержащая пункт NEXT GROUP, не содержит пункта PAGE LIMITS, может быть указан только параметр PLUS integer-1.
5. Параметр NEXT PAGE не может быть использован в PAGE FOOTING.
6. Параметр NEXT GROUP не может быть указан ни в REPORT HEADING, ни в PAGE HEADING.
7. Эффекты NEXT GROUP будут дополнять любой интервал строк, определенный пунктом LINE NUMBER следующей отображаемой группы.

6.9.30. NO-ECHO

Синтаксис атрибута NO-ECHO

 NO-ECHO
 ~~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Оператор NO-ECHO заставит все данные, введенные в поле, отображаться на экране звёздочками.

1. Операторы NO-ECHO и SECURE (см. SECURE) взаимозаменяемы и не могут использоваться вместе в одном описании элемента данных.
2. Данный оператор может быть использован только в поле, допускающем ввод данных (поле, содержащее оператор USING (см. USING) или TO (см. TO)).

Дополнительную информацию о цветовых палитрах и атрибутах видео см. в разделе Цветовая палитра и атрибуты видео.

6.9.31. OCCURS

Синтаксис оператора OCCURS (раздел отчёта)

 OCCURS [ integer-1 TO ] integer-2 TIMES
 ~~~~~~             ~~
   [ DEPENDING ON identifier-1 ]
     ~~~~~~~~~
   [ STEP integer-3 ]
     ~~~~
   [ VARYING identifier-2 FROM { identifier-3 } BY { identifier-4 } ]
     ~~~~~~~              ~~~~ { integer-4    } ~~ { integer-5    }

Синтаксис оператора OCCURS (раздел экрана)

 OCCURS integer-2 TIMES
 ~~~~~~

Синтаксис оператора OCCURS (все остальные разделы)

 OCCURS [ integer-1 TO ] integer-2 TIMES
 ~~~~~~             ~~
      [ DEPENDING ON identifier-1 ]
        ~~~~~~~~~
      [ ASCENDING|DESCENDING KEY IS identifier-5... ]...
        ~~~~~~~~~ ~~~~~~~~~~
      [ INDEXED BY identifier-6 ]
        ~~~~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, REPORT, SCREEN

Оператор OCCURS используется для создания структуры данных, называемой таблицей, где записи в этой структуре повторяются многократно.

1. Зарезервированные слова BY (INDEXED), IS, KEY, ON и TIMES являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Значение integer-2 определяет, сколько записей будет выделено в таблице.
3. Ниже приведен пример того, как может быть определена таблица:

   05 QUARTERLY-REVENUE OCCURS 4 TIMES PIC 9(7)V99.
   

   Это выделит следующее:

   QUARTERLY-REVENUE(1)
   QUARTERLY-REVENUE(2)
   QUARTERLY-REVENUE(3)
   QUARTERLY-REVENUE(4)
   

   Каждая запись ссылается с использованием синтаксиса индексации (числовой литерал, арифметическое выражение или числовой идентификатор в скобках), показанного выше.

4. Оператор OCCURS также может использоваться на уровне группы, в этом случае вся структура группы повторяется, как показано ниже:

   05 GRP OCCURS 3 TIMES.
       10 A     PIC X(1).
       10 B     PIC X(1).
       10 C     PIC X(1).
   

   Это позволит ссылаться на любое из следующего:

   GRP(1)   includes A(1), B(1) and C(1)
   GRP(2)   includes A(2), B(2) and C(2)
   GRP(3)   includes A(3), B(3) and C(3)
   

   или каждый элемент A, B, C можно ссылаться следующим образом:

   A(1)   character #1 of GRP(1)
   B(1)   character #2 of GRP(1)
   C(1)   character #3 of GRP(1)
   A(2)   character #1 of GRP(2)
   B(2)   character #2 of GRP(2)
   C(2)   character #3 of GRP(2)
   A(3)   character #1 of GRP(3)
   B(3)   character #2 of GRP(3)
   C(3)   character #3 of GRP(3)
   

5. Необязательный оператор DEPENDING ON может быть добавлен к OCCURS для создания таблицы переменной длины. В таких случаях значение integer-1 определяет минимальное количество записей в таблице, а integer-2 — максимальное. Такие таблицы будут выделены до максимального размера, указанного как integer-2. Во время выполнения значение identifier-1 определит, сколько элементов таблицы доступно.
6. Для получения объяснений операторов SEARCH (см. SEARCH), SEARCH ALL (см. SEARCH ALL) и SORT (см. SORT) см. документацию операторов KEY и INDEXED BY.
7. Оператор OCCURS не может быть указан в записи описания данных, имеющей уровень 01, 66, 77 или 88, хотя он допустим в элементах данных, описанных подчинённо элементу данных уровня 01.
8. Следующие пункты относятся к оператору OCCURS в разделе отчёта:
   1. Необязательный оператор STEP определяет значение приращения, которое будет добавляться к любым абсолютным значениям LINE (см. LINE) или COLUMN (см. COLUMN), которые могут быть частью или подчинены определению этого элемента данных.
   2. Необязательный оператор VARYING определяет идентификатор, который может быть использован в качестве индекса для множественных вхождений этого или любого подчиненного элемента данных, если оператор SOURCE (см. SOURCE) или SUM (см. SUM) в этом или подчиненных элементах данных ссылается на записи в таблице. Элемент данных identifier-2 динамически создается по мере необходимости и не может быть использован за пределами области определения элемента данных отчёта.
   3. Два следующих примера иллюстрируют два различных способа включения в отчёт данных о продажах за четыре квартала — один «сложным способом» и один с использованием расширенных возможностей операторов OCCURS из STEP и VARYING. Оба примера предполагают определение следующей таблицы в рабочем хранилище:
      05 SALES OCCURS 4 TIMES PIC 9(7)V99.

      Сначала «Сложный способ»:

      10 COL 7  PIC $(7)9.99 SOURCE SALES(1).
      10 COL 17 PIC $(7)9.99 SOURCE SALES(2).
      10 COL 27 PIC $(7)9.99 SOURCE SALES(3).
      10 COL 37 PIC $(7)9.99 SOURCE SALES(4).
      

      А затем с использованием STEP и VARYING:

      10 COL 7  OCCURS 4 TIMES STEP 10 VARYING QTR FROM 1 BY 1
                PIC $(7)9.99 SOURCE SALES(QTR).
      

6.9.32. OVERLINE

Синтаксис атрибута OVERLINE

 OVERLINE
 ~~~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Оператор OVERLINE нарисует горизонтальную линию в верхней части поля экрана.

1. Оператор LEFTLINE (см. LEFTLINE), OVERLINE и UNDERLINE (см. UNDERLINE) могут быть использованы в любом сочетании в описании одного поля.
2. Этот оператор фактически не выполняет никаких функций при использовании в средах командной оболочки Windows (cmd.exe) и при запуске программ, скомпилированных с использованием реализации GnuCOBOL, построенной на базе «PDCurses» (например, сборки Windows/MinGW).
3. Будет ли этот оператор работать в системах Cygwin или UNIX/Linux/OSX, зависит от возможностей атрибутов видео драйверов терминального вывода и используемого программного обеспечения «curses».

См. Цветовые палитры и атрибуты видео для получения дополнительной информации о цветах экрана и атрибутах видео.

6.9.33. PICTURE

Синтаксис оператора PICTURE

 PICTURE IS picture-string
 ~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, REPORT, SCREEN

Оператор PICTURE определяет класс (числовой, алфавитный или буквенно-цифровой), размер и формат данных, которые могут храниться в определяемом элементе данных. Иногда эту роль выполняет оператор USAGE (см. USAGE), а в некоторых случаях эта роль полностью возлагается на этот оператор.

1. Зарезервированное слово IS является необязательным и может быть опущено. Наличие или отсутствие этого слова не влияет на программу.
2. Зарезервированное слово PICTURE может быть сокращено до PIC. Большинство программистов предпочитают использовать последнее.
3. Оператор PICTURE может быть указан только для элементарных элементов.
4. picture-string — это последовательность специальных символов: ‘$’, ‘*’, ‘+’, ‘,’, ‘-’, ‘.’, ‘/’, ‘0’ (ноль), ‘9’, ‘A’, ‘B’, CR, DB, ‘S’, ‘V’, ‘X’ и ‘Z’.
5. В общем случае, каждый символ PICTURE представляет либо один символ в памяти, либо одну десятичную цифру. Есть несколько исключений, которые будут рассмотрены по мере необходимости.
6. Когда picture-string содержит повторяющуюся последовательность символов — PIC 9999/99/99 — например, повторение можно указать с помощью указания числа повторений в скобках, как в PIC 9(4)/9(2)/9(2). Использование указаний повторений является необязательным, и их использование (или отсутствие) полностью зависит от программиста. Многие программисты используют повторение для небольших последовательностей (PIC XXX) и указания повторений для более крупных (%%%CODE_BLOCK_2132%%).
7. Этот первый набор символов PICTURE определяет базовый тип данных элемента данных. Каждый символ представляет один символ памяти.

   ‘A’

   Определяет память, зарезервированную для одного буквенного символа (‘A’-‘Z’, ‘a’-‘z’).

   ‘N’

   Определяет память, зарезервированную для одного символа в национальном наборе символов компьютера. Поддержка национальных наборов символов в GnuCOBOL в настоящее время реализована частично, и действие символа ‘N’ в PICTURE аналогично тому, как если бы был набран X(2), с дополнительным эффектом, что такое поле будет квалифицироваться как поле NATIONAL или NATIONAL-EDITED в операторе INITIALIZE (см. INITIALIZE).

   ‘X’

   Определяет память, зарезервированную для одного буквенно-цифрового символа (любого символа).

   ‘9’

   Определяет память, зарезервированную для одного цифрового символа (‘0’-‘9’).

   Обычно в одном операторе PICTURE используется только один тип каждого из этих символов, но это не обязательно. Элементы данных, использующие только символы ‘A’ среди вышеперечисленных символов, называются алфавитными элементами данных, в то время как те, которые используют символы ‘9’ без символов ‘A’ или ‘X’ (или имеющие USAGE без PICTURE) называются числовыми элементами данных. Все остальные элементы данных называются буквенно-цифровыми элементами данных.

   Если вам нужно выделить место для элемента данных, имеющего формат из двух букв, за которыми следуют пять цифр и три буквы, вы можете использовать picture-string AA99999AAA, A(2)9(5)A(3) XXXXXXXXXX или X(10). Абсолютно нет никакой функциональной разницы между этими четырьмя вариантами — ни один из них не предоставляет функциональность, которой не обладают другие. Первые два, вероятно, лучше отражают документацию ожидаемого содержимого поля, но они не предоставляют возможностей проверки во время выполнения.

   Однако с точки зрения проверки как алфавитные, так и числовые строки PICTURE обеспечивают возможности проверки как на этапе компиляции, так и на этапе выполнения. В случае проверки на этапе компиляции компилятор может выводить предупреждающие сообщения, если вы пытаетесь указать нечисловое значение для числового элемента данных или пытаетесь MOVE (см. MOVE) нечисловой элемент данных в числовой. Аналогичные возможности существуют для алфавитных элементов данных. Во время выполнения вы можете использовать специальный тест класса (см. Условия класса), чтобы определить, содержит ли элемент данных только цифровые или только буквенные данные.

1. Следующие символы картинок могут быть использованы с числовыми элементами данных.

   ‘P’

   Определяет предполагаемую позицию цифры, которая будет рассматриваться как ноль при обращении к элементу данных во время выполнения. Этот символ используется для того, чтобы элементы данных, которые будут содержать очень большие значения, можно было выделять с меньшим объемом памяти, предполагая наличие определенного количества конечных нулей (по одному на ‘P’) в конце значений.

   Символ ‘P’ не допускается в сочетании с ‘N’.

   Символ ‘P’ может использоваться только в начале или конце пункта изображения.

   ‘P’ — это повторяющийся символ.

   Все вычисления и операции MOVE (см. MOVE) с таким элементом данных будут выполняться так, как если бы нули были фактически там.

   Например, предположим, что вам нужно выделить элемент данных, который содержит количество миллионов долларов выручки вашей компании в этом году:

   01 Gross-Revenue PIC 9(9).

   В этом случае будет зарезервировано 9 символов памяти. Значения от 000000000 до 999999999 будут представлять валовую выручку. Но если отслеживаются только миллионы (то есть последние шесть цифр всегда будут 0), вы можете определить поле как:

   01 Gross-Revenue PIC 9(3)P(6).

   Всякий раз, когда выручка Gross-Revenue используется в расчетах или когда ее значение перемещается в другой элемент данных, значение Gross-Revenue будет рассматриваться так, как если бы оно было nnn000000, где nnn — фактическое значение в памяти.

   Если вы хотите сохранить значение 128 миллионов в этом поле, вы сделаете это, как если бы ‘P’ были ‘9’:

   MOVE 128000000 TO Gross-Revenue
   

   Вывод DISPLAY (см. DISPLAY) элемента данных, содержащего символы ‘P’, немного необычен. Выводимое значение будет таким, какое фактически хранится в памяти, но общий размер выводимого значения будет таким, как если бы символы ‘P’ были заменены на ‘9’. Таким образом, после выполнения вышеуказанного оператора для Gross-Revenue, DISPLAY Gross-Revenue выведет вывод ‘000000128’.

   ‘S’

   Если этот символ используется, он должен быть первым символом в значении PICTURE. ‘S’ указывает, что элемент данных является Signed, то есть для этого элемента данных возможны отрицательные значения. Без ‘S’ любые отрицательные значения, записанные в этот элемент данных с помощью MOVE или арифметического оператора, будут лишены отрицательного знака (фактически становясь абсолютным значением).

   Символ ‘S’ не допускается в сочетании с ‘N’.

   Символ ‘S’ может встречаться только один раз в строке изображения. См. SIGN IS для получения дополнительной информации о том, как хранить отрицательные значения в числовом элементе данных.

   ‘V’

   Этот символ используется для определения расположения предполагаемой десятичной точки (если она есть) в числовом элементе. Так же как может быть только одна десятичная точка в числе, так и ‘V’ не может быть более одного в PICTURE. Предполагаемые десятичные точки не занимают места в памяти — они просто определяют, как используются значения. Например, если значение 1234 находится в памяти в поле, определенном как PIC 999V9, это значение будет интерпретироваться как 123,4 в любых операциях, в которых оно упоминается.

   Символ ‘V’ не допускается в сочетании с ‘N’.

   Символ ‘V’ может встречаться только один раз в строке изображения.

2. Любые символы редактирования, введенные после этой точки, если они закодированы в пункте изображения иначе числового элемента данных, преобразуют этот элемент данных из числового в редактируемый числовой элемент данных. Редактируемые числовые элементы данных обрабатываются как буквенно-цифровые и не могут использоваться в качестве индексов таблиц или в качестве аргументов источника в арифметическом операторе.
3. Ниже приведены фиксированные символы редактирования вставки, которые могут быть указаны в строке изображения. Каждый из этих символов редактирования вставит специальный символ в значение поля в позиции, указанной в строке изображения. Эти символы редактирования каждый добавляют один дополнительный символ в общий размер поля для каждого вхождения символа в строке изображения.

   ‘B’

   Символ редактирования вставки ‘B’ вставляет пробел в значение поля для каждого вхождения.

   Можно закодировать несколько символов ‘B’.

   Следующий пример отформатирует десятизначное число (вероятно, телефонный номер) в формате ‘### ### ####’:

       ...
           05 Phone-Number       PIC 9(3)B9(3)B9(4).
       ...
           MOVE 5185551212 TO Phone-Number
           DISPLAY Phone-Number
   

   Этот код отобразит ‘518 555 1212’.

   ‘0’

   Символ редактирования вставки ‘0’ (ноль) вставляет один символ «0» в значение поля для каждого вхождения в строку изображения.

   Можно закодировать несколько символов ‘0’.

   Вот пример:

       ...
           05  Output-Item     PIC 909090909.
       ...
           MOVE 12345 TO Output-Item
           DISPLAY Output-Item
   

   Вышеупомянутое отобразит ‘102030405’.

   ‘/’

   Символ редактирования вставки ‘/’ вставляет один символ «/» в значение поля для каждого вхождения в строку изображения.

   Можно закодировать несколько символов ‘/’.

   Этот символ редактирования чаще всего используется для форматирования дат, как показано ниже:

       ...
           05  Year-Month-Day   PIC 9(4)/9(2)/9(2).
       ...
           MOVE 20140207 TO Year-Month-Day
           DISPLAY Year-Month-Day
   

   Этот пример отобразит ‘2014/02/07’.

1. Ниже приведены символы числового форматирования, которые могут быть указаны в строке изображения. Каждый из этих символов редактирования вставит специальные символы в значение поля, чтобы представить числа в «дружественном» формате. Каждый из этих символов редактирования добавит по одному дополнительному символу к общему размеру поля для каждого вхождения символа в строку изображения. Числовые поля, чья строка описания содержит эти символы, не могут использоваться в качестве исходных полей в любом вычислении, ни могут служить исходными полями для передачи значений данных ни в какой элемент данных, кроме алфавитно-цифрового поля.

   ‘.’

   Символ ‘.’ вставляет десятичную точку в числовое значение поля. Когда содержимое числового элемента отправляющего поля перемещается в элемент принимающего поля, чья строка описания содержит символ редактирования ‘.’, неявная (‘V’) или фактическая десятичная точка в элементе отправляющего поля или литерале, соответственно, будет выровнена со символом ‘.’ в принимающем поле. Затем цифры передаются из отправляющего поля в принимающее поле, начиная от ‘V’ или ‘.’ отправляющего поля, усекая цифры отправляющего поля, если в принимающем поле не хватает позиций. Любые позиции цифр в принимающем поле, которые не получают цифры из отправляющего поля, если таковые имеются, будут установлены в 0.

   Символ ‘.’ не допускается в сочетании с ‘N’.

   Пример, вероятно, поможет:

       ...
       05  Source-Field   PIC 9(2)V9 VALUE 7.2.
       05  Dest-Field     PIC 9(5).9(2).
       ...
       MOVE 1234567.89 TO Dest-Field
       DISPLAY Dest-Field
       MOVE 19 TO Dest-Field
       DISPLAY Dest-Field
       MOVE Source-Field TO Dest-Field
       DISPLAY Dest-Field
   

   Пример покажет три результата — ‘34567.89’, ‘00019.00’ и ‘00007.20’.

   Оба определения элементов данных, похоже, содержат две десятичные точки в своих строках описания. На самом деле это не так, потому что последний символ каждого определения элемента данных всегда является точкой — точка, которая завершает определение.

   ‘,’

   Символ ‘,’ служит разделителем тысяч. Часто вы видите большие числа, отформатированные с этими символами — например, 123 456 789. Это можно легко сделать, добавив символы разделителей тысяч в строку описания. Разделители тысяч, которые не нужны, будут вести себя так, как если бы они были ‘9’.

   Символ ‘,’ не допускается в сочетании с ‘N’.

   Вот пример:

       ...
       05  My-Lottery-Winnings   PIC 9(3),9(3),9(3).
       ...
       MOVE 12345 TO My-Lottery-Winnings
       DISPLAY My-Lottery-Winnings
   

   Будет отображено значение ‘0000012 345’ (очень разочаровывающее для моих планов на пенсию, но хорошая демонстрация разделителей тысяч). Обратите внимание, как, поскольку первая запятая не была нужна из-за скудного количества, которое я выиграл, она вела себя как ещё одна ‘9’.

   При желании вы можете изменить роли символов редактирования ‘.’ и ‘,’, указав DECIMAL POINT IS COMMA в SPECIAL-NAMES (см. SPECIAL-NAMES) абзаце.

2. Ниже приведены символы вставки. Они используются для вставки дополнительного символа (двух в случае CR и DB) для обозначения знака (положительного или отрицательного) числового значения, которое перемещается в поле, чья строка описания содержит один из этих символов, или факта, что элемент данных представляет собой денежную сумму. Только один из символов ‘+’, ‘-’, CR или DB может использоваться в строке описания. В этом контексте, когда любой из этих символов используется в picture-string, они должны быть в конце. Символы ‘+’, ‘-’ и/или валюты также могут использоваться в качестве плавающих символов редактирования в начале picture-string — тема, которая будет рассмотрена в следующем абзаце с номером.

   ‘+’

   Если значение числового значения, перемещаемого в поле, положительное (0 или больше), будет вставлен символ ‘+’. Если значение отрицательное (меньше 0), вставляется символ ‘-’.

   Символ ‘+’ не допускается в сочетании с ‘N’.

   ‘-’

   Если значение числового значения, перемещаемого в поле, положительное (0 или больше), вставляется пробел. Если значение отрицательное (меньше 0), вставляется символ ‘-’.

   Символ ‘-’ не допускается в сочетании с ‘N’.

   CR

   Этот символ кодируется как два символа ‘C’ и ‘R’. Если значение числового значения, перемещаемого в поле, положительное (0 или больше), будут вставлены два пробела. Если значение отрицательное (меньше 0), вставляются символы CR (кредит).

   Символ CR не допускается в сочетании с ‘N’.

   DB

   Этот символ кодируется как два символа ‘D’ и ‘B’. Если значение числового значения, перемещаемого в поле, положительное (0 или больше), будут вставлены два пробела. Если значение отрицательное (меньше 0), вставляются символы DB (дебет).

   Символ DB не допускается в сочетании с ‘N’.

   ‘$’

   Независимо от значения, перемещаемого в поле, этот символ вставит символ валюты в значение элемента данных в позиции, где он встречается в picture-string (см. SPECIAL-NAMES).

   Символ ‘$’ не допускается в сочетании с ‘N’.

1. Эти символы редактирования известны как символы плавающей замены. Эти символы могут встречаться последовательностями перед любыми символами редактирования ‘9’ в picture-string числового элемента данных. Использование этих символов преобразует этот числовой элемент данных в числовой отредактированный элемент данных, который больше нельзя использовать в расчётах или подстрочных индексах.
2. Каждый из следующих символов ведёт себя как символ ‘9’, пока все цифры в числовом значении не будут исчерпаны и не возникнет необходимость вставки ведущих нулей. По сути, эти символы редактирования определяют, что должно произойти с этими ведущими нулями.

   ‘$’

   Из тех символов валюты, которые соответствуют позициям символов, в которых находятся ведущие нули, самый правый будет иметь своё значение ‘0’ заменённым символом валюты, действующим для программы (см. SPECIAL-NAMES). Любые оставшиеся ведущие нули, занимающие позиции, описанные этим символом, будут заменены пробелами.

   Символ ‘$’ не допускается в сочетании с ‘N’.

   Любой символ валюты, закодированный справа от ‘.’, будет обрабатываться точно так же, как ‘9’.

   ‘*’

   Этот символ называется символом защиты от подделки. Все символы защиты от подделки, соответствующие позициям символов, в которых находятся ведущие нули, будут иметь свои значения ‘0’ заменёнными на ‘*’.

   Символ ‘*’ не допускается в сочетании с ‘N’.

   Любой символ подавления проверки, закодированный справа от ‘.’, будет обрабатываться точно так же, как ‘9’.

   ‘+’

   Из тех символов ‘+’, которые соответствуют позициям символов, в которых находятся ведущие нули, самый правый будет иметь своё значение ‘0’ заменённым на ‘+’, если значение в элементе данных равно или больше нуля, или на ‘-’ в противном случае. Любые оставшиеся ведущие нули, занимающие позиции, описанные этим символом, будут заменены пробелами. Вы не можете использовать оба ‘+’ и ‘-’ в одной и той же picture-string.

   Символ ‘+’ не допускается в сочетании с ‘N’.

   Любой символ ‘+’, закодированный справа от ‘.’, будет обрабатываться точно так же, как ‘9’.

   ‘-’

   Из тех символов ‘-’, которые соответствуют позициям символов, в которых находятся ведущие нули, самый правый будет иметь своё значение ‘0’ заменённым пробелом, если значение в элементе данных равно или больше нуля, или на ‘-’ в противном случае. Любые оставшиеся ведущие нули, занимающие позиции, описанные этим символом, будут заменены пробелами. Вы не можете использовать оба ‘+’ и ‘-’ в одной и той же picture-string.

   Символ ‘-’ не допускается в сочетании с ‘N’.

   Любой символ ‘-’, закодированный справа от ‘.’, будет обрабатываться точно так же, как ‘9’.

   ‘Z’

   Все символы ‘Z’, соответствующие позициям символов, в которых находятся ведущие нули, будут иметь свои значения ‘0’ заменёнными пробелами.

   Любой символ подавления нулей, закодированный справа от ‘.’, будет обрабатываться точно так же, как ‘9’.

   ‘Z’ и ‘*’ не должны быть закодированы в одной picture-string

   ‘+’ и ‘-’ не должны быть закодированы в одной picture-string

   Когда закодированы несколько плавающих символов, даже если используется только один из них, все они будут считаться плавающими и смогут принимать свойства друг друга. Например, если элемент данных имеет picture-string, и значение 1 перемещается в это поле во время выполнения, результирующее значение будет (символ b представляет пробел) bbbb+$1.00. Это не соответствует многим другим реализациям COBOL, где результатом было бы +$bbbb1.00.

   Большинство других реализаций COBOL отклоняют использование нескольких вхождений нескольких плавающих символов редактирования. Например, они отклонят picture-string такие как +++$$$9.99, $$$ZZZ9.99 и так далее. GnuCOBOL принимает эти. Программисты, создающие программы GnuCOBOL, должны избегать таких picture-stringов, если есть вероятность, что эти программы могут быть использованы с другими реализациями COBOL.

6.9.34. PRESENT WHEN

PRESENT-WHEN Оператор синтаксиса

 PRESENT WHEN condition-name
 ~~~~~~~ ~~~~

Этот синтаксис допустим в следующих разделах: REPORT

Этот оператор называет существующее Condition Name (см. Имена условий), которое будет использоваться в качестве переключателя, управляющего представлением или подавлением группы отчёта.

1. Если указанному имени условия присвоено значение FALSE, когда оператор GENERATE (см. GENERATE) вызывает представление группы отчёта, представление этой группы будет подавлено.
2. Если имя условия имеет значение TRUE, группа будет представлена.
3. См. Имена условий для получения дополнительной информации.

6.9.35. PROMPT

PROMPT Оператор синтаксиса

 PROMPT [ CHARACTER IS literal-1 | identifier-1 ]
 ~~~~~~   ~~~~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Этот оператор определяет символ, который будет использоваться в качестве символа заполнения для любых входных полей на экране.

1. Зарезервированное слово IS является необязательным и может быть опущено. Наличие или отсутствие этого слова не влияет на программу.
2. Знак подсказки по умолчанию, если не указано CHARACTER, или если PROMPT отсутствует, представляет собой подчёркивание (‘_’).
3. Символы подсказки будут автоматически преобразованы в пробелы при вводе.

См. Палитру цветов и атрибуты видео для получения дополнительной информации о цветах экрана и атрибутах видео.

6.9.36. ЗАЩИЩЕННЫЙ

Синтаксис атрибута PROTECTED

 PROTECTED SIZE IS { identifier }
 ~~~~~~~~  ~~~~    { integer    }

Этот синтаксис допустим в следующих разделах: SCREEN

1. Расширенная фраза PROTECTED будет ограничивать размер указанного поля, независимо от размера изображения.²
2. Фраза SIZE указывает размер (длину) поля. После завершения ACCEPT или DISPLAY, курсор размещается непосредственно после поля, определенного этой фразой, если это не выводит курсор за пределы текущего окна терминала. В этом случае курсор перемещается в начало следующей строки (с прокруткой окна, если необходимо).
3. Если фраза SIZE не используется, то длина поля по умолчанию соответствует размеру вводимого или отображаемого элемента. Однако, если используется фраза CONVERT, размер поля зависит от типа данных элемента и используемого глагола.
   1. Если выполняется глагол DISPLAY, то размер соответствует размеру, как если бы фраза CONVERT не была указана, за исключением числовых элементов. Для числовых элементов размер составляет количество цифр в элементе плюс один, если он не является целым числом, плюс один, если он со знаком. Остальные случаи описывают размер при использовании инструкции ACCEPT.
   2. Если элемент числовой или числовой отформатированный, то размер равен количеству цифр в элементе плюс один, если он не является целым числом, плюс один, если он со знаком.
   3. Если элемент буквенно-цифровой отформатированный, то размер устанавливается в количество позиций ‘A’ или ‘X’, указанных в его фразе PICTURE.
   4. Для всех других типов данных размер поля устанавливается в размер элемента (также, как если бы CONVERT не было указано).
4. Обратите внимание, что фраза OUTPUT изменяет способ вычисления размера поля по умолчанию. Подробности см. в заголовке выше. Также обратите внимание, что фраза OUTPUT влияет только на отображение элементов на экране; внутренний формат принимаемых данных не затрагивается.
5. Обратите внимание, что вы не можете использовать фразу CONVERT в разделе экрана. Таким образом, размер поля раздела экрана всегда соответствует размеру его экранного ввода, если не указана фраза SIZE.

6.9.37. ПЕРЕОПРЕДЕЛЯЕТ

Синтаксис фразы REDEFINES

 REDEFINES identifier-1
 ~~~~~~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE

Фраза REDEFINES заставляет элемент данных, в определении которого указана фраза REDEFINES (далее – объект переопределения), занимать то же физическое место в памяти, что и identifier-1 (далее – субъект переопределения).

1. Следующие правила должны быть соблюдены для использования REDEFINES:
   1. Номер уровня элементов данных субъекта и объекта должен быть одинаковым.
   2. Номера уровней элементов данных субъекта и объекта не могут быть 66, 78 или 88.
   3. Если N представляет номер уровня объекта, то между субъектом и объектом не могут быть определены другие элементы данных с номером уровня N, если они тоже не являются REDEFINES субъекта.
   4. Если N представляет номер уровня объекта, то между субъектом и объектом не могут быть определены другие элементы данных с номером уровня меньше N.
   5. Общий выделенный размер элемента данных субъекта должен быть таким же, как и общий выделенный размер элемента данных объекта.
   6. Никакая фраза OCCURS (см. OCCURS) не может быть частью определения ни субъекта, ни объекта. Однако, любой из них может быть групповым элементом, который *содержит* элементы данных с фразами OCCURS.
   7. Никакая фраза VALUE (см. VALUE) не может быть определена для элемента данных объекта, и ни один элемент данных, подчиненный элементу данных объекта, не может иметь фразу VALUE, за исключением имён условий уровня 88.

6.9.38. ПЕРЕИМЕНОВАНИЕ

Синтаксис фразы RENAMES

 RENAMES identifier-1 [ THRU|THROUGH identifier-2
 ~~~~~~~                ~~~~ ~~~~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE

Фраза RENAMES перегруппировывает ранее определенные элементы, указывая альтернативные, возможно перекрывающиеся, группировки элементарных элементов данных.

1. Зарезервированные слова THRU и THROUGH взаимозаменяемы.
2. Вы должны использовать номер уровня 66 для записей описания данных, содержащих предложение RENAMES.
3. Элементы данных identifier-1 и identifier-2, а также все элементы данных, определенные между этими двумя элементами в исходном коде программы, должны быть включены в одно описание записи уровня 01.
4. Для получения дополнительной информации о предложении RENAMES см. раздел Элементы данных уровня 66.

6.9.39. ОБЯЗАТЕЛЬНО

Синтаксис атрибута REQUIRED

 REQUIRED
 ~~~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Это условие заставляет пользователя вводить данные в поле, на котором оно указано (или во все подчиненные поля, допускающие ввод, если REQUIRED указано для элемента группы).

1. Предложения EMPTY-CHECK (см. EMPTY-CHECK) и REQUIRED взаимозаменяемы и не могут использоваться вместе в описании одного элемента данных.
2. Для вступления в силу пользователь должен сначала переместить курсор в поле, содержащее это условие в своём определении.
3. Предложение ACCEPT screen-data-item (см. ACCEPT screen-data-item) проигнорирует нажатие клавиши Enter и любые другие нажатия клавиш, перемещающие курсор на другой элемент экрана, за исключением случаев, когда в поле были введены данные. Функциональные клавиши всё ещё будут разрешены для завершения ACCEPT.
4. Для функционирования этот атрибут должен поддерживаться базовым пакетом «curses», с которым была создана ваша реализация GnuCOBOL. На данный момент пакет «PDCurses» (используемый для нативных сборок Windows или MinGW) не поддерживает REQUIRED.

6.9.40. ОБРАТНЫЙ_ВИДЕО

Синтаксис атрибута REVERSE-VIDEO

 REVERSE-VIDEO
 ~~~~~~~~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Атрибут REVERSE-VIDEO меняет местами указанные или подразумеваемые атрибуты FOREGROUND-COLOR (см. FOREGROUND-COLOR) и BACKGROUND-COLOR (см. BACKGROUND-COLOR) для поля, определение которого содержит это условие (или для всех подчиненных полей, если оно используется для элемента группы).

См. Цветовая палитра и атрибуты видео для получения дополнительной информации о цветах экрана и атрибутах видео.

6.9.41. ЗАЩИЩЁННЫЙ

Синтаксис атрибута SECURE

 SECURE
 ~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Это условие заставит все введенные в поле данные отображаться на экране в виде звездочек.

1. Предложения NO-ECHO (см. NO-ECHO) и SECURE взаимозаменяемы и не могут использоваться вместе в одном описании элемента данных.
2. Это условие может быть использовано только для поля, допускающего ввод данных (поле, содержащее либо предложение USING (см. USING), либо TO (см. TO)).

См. Цветовая палитра и атрибуты видео для получения дополнительной информации о цветах экрана и атрибутах видео.

6.9.42. SIGN IS

Синтаксис условия SIGN-IS

 SIGN IS LEADING|TRAILING [ SEPARATE CHARACTER ]
 ~~~~    ~~~~~~~ ~~~~~~~~   ~~~~~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, REPORT, SCREEN

Это условие, разрешенное только для числовых элементов данных USAGE DISPLAY, определяет, как символ 'S' будет интерпретироваться в предложении 'picture' элемента данных.

1. Зарезервированные слова CHARACTER и IS являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Без опции SEPARATE CHARACTER, знак значения элемента данных будет закодирован путем преобразования последней (см. TRAILING) или первой (см. LEADING) цифры следующим образом:

   Первая/Последняя цифра	Значение для положительного	Значение для отрицательного
   0	0	p
   1	1	q
   2	2	r
   3	3	s
   4	4	t
   5	5	u
   6	6	v
   7	7	w
   8	8	x
   9	9	y

3. Если используется пункт SEPARATE CHARACTER, то фактический символ ‘+’ или ‘-’ будет вставлен в значение поля как первый (LEADING) или последний (TRAILING) символ. Обратите внимание, что наличие этого символа в хранилище элемента данных не препятствует использованию элемента данных в качестве исходного поля в арифметических операциях.
4. При указании SEPARATE CHARACTER, символ ‘S’ в элементе данных PICTURE необходимо учитывать при определении размера элемента данных.
5. Ни наличие закодированной цифры (см. выше), ни фактический символ ‘+’ или ‘-’ символ, встроенный в хранилище элемента данных, не препятствуют использованию элемента данных в качестве исходного поля в арифметических операциях.

6.9.43. Источник

Синтаксис пункта SOURCE

 SOURCE IS literal-1 | identifier-1 [ ROUNDED ]
 ~~~~~~                               ~~~~~~~

Этот синтаксис допустим в следующих разделах: REPORT

Этот пункт логически присоединяет элемент данных раздела отчета к другому элементу данных, определенному в другом месте раздела данных.

1. Зарезервированное слово IS является необязательным и может быть опущено. Наличие или отсутствие этого слова не влияет на программу.
2. При представлении группы отчета, содержащей этот пункт, значение указанного числового литерала или идентификатора будет автоматически перемещено в элемент данных отчета перед представлением.
3. Указанный идентификатор может быть определен в любом месте раздела данных, но если он определен в разделе отчета, он может быть только PAGE-COUNTER, LINE-COUNTER или счетчиком SUM (см. СУММА).
4. PICTURE (см. PICTURE) элемента данных отчета должен быть таким, чтобы было законно MOVE (см. MOVE) указанный литерал или идентификатор в элемент данных с этим PICTURE.
5. Опция ROUNDED вступает в силу, если количество цифр справа от фактической или предполагаемой десятичной точки отличается между значением указанного литерала или идентификатора (значение «источника») и PICTURE , указанным для поля, в определении которого появляется пункт SOURCE (поле «назначения»). Без ROUNDED, избыточные цифры в исходном значении будут просто усечены, чтобы соответствовать полю назначения. С ROUNDED, значение источника будет арифметически округлено, чтобы соответствовать полю назначения. См. ROUNDED, для получения информации о правиле округления NEAREST-AWAY-FROM-ZERO, которое будет применяться.

6.9.44. СУММА

Синтаксис пункта SUM-OF

 SUM OF { identifier-7 }... [ { RESET ON FINAL|identifier-8 } ]
 ~~~    { literal-2    }      { ~~~~~    ~~~~~              }
                              { UPON identifier-9           }
                                ~~~~

Этот синтаксис допустим в следующих разделах: REPORT

Пункт SUM устанавливает счетчик суммирования, значение которого будет арифметически вычисляться всякий раз, когда поле представляется.

1. Зарезервированные слова OF и ON являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Оператор SUM может появляться только в группе отчёта CONTROL FOOTING.
3. Если элементу данных, в котором появляется оператор SUM, присвоено собственное имя идентификатора, и это имя не FILLER, то этот элемент данных называется счётчиком суммы.
4. Все элементы данных identifier-7 должны быть числовыми, не требующими редактирования.
5. Если любой элемент данных identifier-7 определён в разделе отчёта, он должен быть счётчиком суммы.
6. Любые элементы данных identifier-7, являющиеся счётчиками суммы, должны быть определены либо в той же группе отчёта, что и элемент данных, в котором появляется этот оператор SUM, либо в элементе данных отчёта, находящемся на более низком уровне в иерархии управления этим отчётом. Дополнительную информацию см. в разделе Иерархия управления.
7. Значение элемента данных отчёта, в описании которого присутствует этот оператор SUM, должно быть таким, чтобы было законно выполнить операцию MOVE (см. MOVE) указанного значения identifier-7 или literal-2 в элемент данных с таким же PICTURE.
8. Следующие пункты относятся к опции UPON:
   1. Элемент данных identifier-9 должен быть именем группы подробностей, указанной в том же отчёте, что и группа итогов управления, в которой появляется этот оператор SUM.
   2. Наличие оператора UPON ограничивает оператор SUM добавлением указанного числового литерала или значения идентификатора в счётчик суммы только при выполнении оператора GENERATE identifier-9.
   3. Если оператор UPON не указан, значение identifier-7 или literal-2 будет добавляться в счётчик суммы всякий раз, когда выполняется операция GENERATE (см. GENERATE) любой группы отчёта о деталях в отчёте.
   4. Если в определении отчёта имеется только одна группа подробностей, оператор UPON не имеет смысла.
9. Следующие пункты относятся к опции RESET:
   1. Если закодирована опция RESET, FINAL или identifier-8 (которое закодировано в RESET) должно быть одним из контрольных разрывов отчёта, указанных в операторе CONTROLS.
   2. Если опция RESET не закодирована, счётчик суммы будет сброшен до нуля после каждого отображения итоговой группы управления, содержащей оператор SUM. Это типичное ожидаемое поведение.
   3. Однако, если вы хотите сбросить счётчик SUM только при отображении итоговой группы управления для контрольного разрыва, расположенного выше в иерархии управления, укажите этот более высокий контрольный разрыв в опции RESET.

6.9.45. SYNCRONIZED

Синтаксис SYNCRONIZED

 SYNCRONIZED|SYNCHRONISED [ LEFT|RIGHT ]
 ~~~~        ~~~~           ~~~~ ~~~~~

Операторы LEFT и RIGHT (SYNCRONIZED) синтаксически распознаются, но в остальном не являются функциональными.

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE

Этот необязательный оператор оптимизирует хранение двоичных числовых элементов, чтобы сделать их чтение процессором максимально быстрым.

1. Зарезервированные слова SYNCRONIZED и SYNCHRONISED взаимозаменяемы и могут быть сокращены до SYNC.
2. Если оператор SYNCRONIZED закодирован не для числового элемента данных с USAGE (см. USAGE), который определяет хранение данных в двоичной форме, то оператор SYNCRONIZED будет проигнорирован.
3. Синхронизация выполняется (компилятором) следующим образом:
   1. Если двоичный элемент занимает один байт памяти, синхронизация не выполняется.
   2. Если двоичный элемент занимает два байта памяти, двоичный элемент размещается на следующей границе полуслова.
   3. Если двоичный элемент занимает четыре байта памяти, двоичный элемент размещается на следующей границе слова.
   4. Если двоичный элемент занимает четыре байта памяти, двоичный элемент размещается на следующей границе слова.

6.9.46. TO

Синтаксис оператора TO

 TO identifier-5
 ~~

Этот синтаксис допустим в следующих разделах: SCREEN

Этот оператор логически прикрепляет элемент данных раздела экрана к другому элементу данных, определённому в другом месте раздела данных.

1. Оператор TO используется для определения поля ввода данных без начального значения; при вводе значения оно сохранится в указанном идентификаторе.
2. Операторы FROM (см. FROM), TO, USING (см. USING) и VALUE (см. VALUE) являются взаимоисключающими для любого элемента данных раздела экрана.

6.9.47. TYPE

Синтаксис оператора TYPE

 [ TYPE IS { RH|{REPORT HEADING}                      } ]
   ~~~~    { ~~  ~~~~~~ ~~~~~~~                       }
           { PH|{PAGE HEADING}                        }
           { ~~  ~~~~ ~~~~~~~                         }
           { CH|{CONTROL HEADING} FINAL|identifier-2  }
           { ~~  ~~~~~~~ ~~~~~~~  ~~~~~               }
           { DE|DETAIL                                }
           { ~~ ~~~~~~                                }
           { CF|{CONTROL FOOTING} FINAL|identifier-2  }
           { ~~  ~~~~~~~ ~~~~~~~  ~~~~~               }
           { PF|{PAGE FOOTING}                        }
           {  ~~ ~~~~ ~~~~~~~                         }
           { RF|{REPORT FOOTING}                      }
             ~~  ~~~~~~ ~~~~~~~

Этот синтаксис допустим в следующих разделах: REPORT

Этот оператор определяет тип группы отчёта, который определяется для отчёта.

1. Этот пункт обязателен для всех определений данных на уровне 01 (кроме констант уровня 01) в разделе отчета. Этот пункт недействителен для других определений данных в разделе отчета.
2. Может быть максимум одна (1) группа отчета на RD определенная с TYPE REPORT HEADING, PAGE HEADING, PAGE FOOTING и REPORT FOOTING.
3. Для каждой записи, указанной в пункте CONTROLS ARE RD, должен быть указан либо CONTROL HEADING, либо CONTROL FOOTING, или оба.
4. Различные группы отчетов, составляющие отчет, могут быть определены в любом порядке.
5. См. Лексикон RWCS для описания семи различных типов групп отчетов.

6.9.48. ПОДЧЁРКИВАНИЕ

Синтаксис атрибута ПОДЧЁРКИВАНИЕ

 UNDERLINE
 ~~~~~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Пункт UNDERLINE выведет горизонтальную линию в нижней части поля экрана.

1. Пункты LEFTLINE (см. LEFTLINE), OVERLINE (см. OVERLINE) и UNDERLINE могут быть использованы в любом сочетании в описании одного поля.
2. Этот пункт фактически нефункционален при использовании в средах командной оболочки Windows (cmd.exe) и при выполнении программ, скомпилированных с помощью реализации GnuCOBOL, построенной с использованием «PDCurses» (например, сборки Windows/MinGW).
3. Будет ли этот пункт работать в системах Cygwin или UNIX/Linux/OSX, зависит от возможностей атрибутов видео выходных драйверов терминала и используемого программного обеспечения «curses».

См. Цветовая палитра и атрибуты видео для получения дополнительной информации о цветах экрана и атрибутах видео.

6.9.49. ИСПОЛЬЗОВАНИЕ

Синтаксис пункта ИСПОЛЬЗОВАНИЕ

 USAGE IS data-item-usage
 ~~~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, REPORT

Пункт USAGE определяет формат, который будет использоваться для хранения значения элемента данных.

1. Зарезервированное слово IS необязательно и может быть опущено. Наличие или отсутствие этого слова не оказывает влияния на программу.

1. Следующая таблица обобщает различные спецификации ИСПОЛЬЗОВАНИЯ, доступные в GnuCOBOL.

   BINARY~~~~~~

   	Диапазон значений:	Определяется количеством символов ‘9’ и наличием или отсутствием символа ‘S’ в PICTURE
   	Формат хранения:	Совместимый двоичный целoe число
   	Разрешены отрицательные значения?:	Если PICTURE содержит ‘S’
   	PICTURE используется?:	Да

   BINARY-C-LONG [ SIGNED ]~~~~~~~~~~~~~

   Так же, как BINARY-DOUBLE SIGNED

   BINARY-C-LONG UNSIGNED~~~~~~~~~~~~~ ~~~~~~~~

   	Диапазон значений:	Обычно 0 – 4 294 967 295
   	Формат хранения:	Нативный двоичный целoe число
   	Разрешены отрицательные значения?:	Нет
   	PICTURE используется?:	Нет

   BINARY-CHAR [ SIGNED ]~~~~~~~~~~~

   	Диапазон значений:	-128 – 127
   	Формат хранения:	Нативный двоичный целoe число
   	Разрешены отрицательные значения?:	Да
   	PICTURE используется?:	Нет

   BINARY-CHAR UNSIGNED~~~~~~~~~~~ ~~~~~~~~

   	Диапазон значений:	0 – 255
   	Формат хранения:	Нативный двоичный целoe число
   	Разрешены отрицательные значения?:	Нет
   	PICTURE используется?:	Нет

   BINARY-DOUBLE [ SIGNED ]~~~~~~~~~~~~~

   	Диапазон значений:	-9 223 372 036 854 775 808 – 9 223 372 036 854 775 807
   	Формат хранения:	Нативный двоичный целoe число
   	Разрешены отрицательные значения?:	Да
   	PICTURE используется?:	Нет

   BINARY-DOUBLE UNSIGNED~~~~~~~~~~~~~ ~~~~~~~~

   	Диапазон значений:	0 – 18 446 744 073 709 551 615
   	Формат хранения:	Нативный двоичный целoe число
   	Разрешены отрицательные значения?:	Нет
   	PICTURE используется?:	Нет

   BINARY-INT~~~~~~~~~~

   Так же, как BINARY-LONG SIGNED

   BINARY-LONG [ SIGNED ]~~~~~~~~~~~

   	Диапазон значений:	-2 147 483 648 – 2 147 483 647
   	Формат хранения:	Нативный двоичный целoe число
   	Разрешены отрицательные значения?:	Да
   	PICTURE используется?:	Нет

   BINARY-LONG UNSIGNED~~~~~~~~~~~ ~~~~~~~~

   	Диапазон значений:	0 – 4 294 967 295
   	Формат хранения:	Нативный двоичный целoe число
   	Разрешены отрицательные значения?:	Нет
   	PICTURE используется?:	Нет

   BINARY-LONG-LONG~~~~~~~~~~~~~~~~

   Так же, как BINARY-DOUBLE SIGNED

   BINARY-SHORT [ SIGNED ]~~~~~~~~~~~~

   	Диапазон значений:	-32 768 – 32 767
   	Формат хранения:	Нативный двоичный целoe число
   	Разрешены отрицательные значения?:	Да
   	PICTURE используется?:	Нет

   BINARY-SHORT UNSIGNED~~~~~~~~~~~~ ~~~~~~~~

   	Диапазон значений:	0 – 65 535
   	Формат хранения:	Нативный двоичный целoe число
   	Разрешены отрицательные значения?:	Нет
   	PICTURE используется?:	Нет

   COMPUTATIONAL~~~~

   Так же, как BINARY

   COMP[UTATIONAL]-1~~~~ ~~

1. То же самое, что и FLOAT-SHORT

   COMP[UTATIONAL]-2~~~~ ~~

   То же самое, что и FLOAT-LONG

   COMP[UTATIONAL]-3~~~~ ~~

   То же самое, что и PACKED-DECIMAL

   COMP[UTATIONAL]-4~~~~ ~~

   То же самое, что и BINARY

   COMP[UTATIONAL]-5~~~~ ~~

   	Диапазон значений:	Зависит от количества символов ‘9’ в PICTURE и параметра binary-size в файле конфигурации, используемом для компиляции программы
   	Формат хранения:	Целое число в собственном двоичном формате
   	Разрешены ли отрицательные значения?:	Если PICTURE содержит ‘S’
   	PICTURE используется?:	Да

   COMP[UTATIONAL]-6~~~~ ~~

   	Диапазон значений:	Определяется количеством символов ‘9’ и наличием или отсутствием символа ‘S’ в PICTURE
   	Формат хранения:	Беззнаковое упакованное десятичное число
   	Разрешены ли отрицательные значения?:	Нет
   	PICTURE используется?:	Да

   COMP[UTATIONAL]-X~~~~ ~~

   	Диапазон значений:	Если используется с PIC X, выделяет один байт памяти на каждый символ ‘X’; диапазон значений от 0 до максимального значения, которое может быть хранимо в указанном количестве байтов. Если используется с PIC 9, диапазон значений зависит от количества символов ‘9’ в PICTURE
   	Формат хранения:	Двоичное беззнаковое (X) или со знаком (9)
   	Разрешены ли отрицательные значения?:	Если PICTURE содержит 9 и ‘S’
   	PICTURE используется?:	Да

   DISPLAY~~~~~~~

   	Диапазон значений:	Зависит от PICTURE — один символ на каждый X, A, 9, точку, $, Z, 0, *, S (если указан SEPARATE CHARACTER), +, -, или символ B в PICTURE; Добавьте еще 2 байта, если используются символы редактирования DB или CR
   	Формат хранения:	Символы
   	Разрешены ли отрицательные значения?:	Если PICTURE содержит ‘S’
   	PICTURE используется?:	Да

   FLOAT-DECIMAL-16~~~~~~~~~~~~~~~~

   	Диапазон значений:	-9.999999999999999 * 10383 – 9.999999999999999 * 10384
   	Формат хранения:	Десятичное число с плавающей запятой IEEE 754 Decimal64 в собственном формате
   	Разрешены ли отрицательные значения?:	Да
   	PICTURE используется?:	Нет

   FLOAT-DECIMAL-34~~~~~~~~~~~~~~~~

   	Диапазон значений:	-9.99999... * 106143 – 9.99999... * 106144
   	Формат хранения:	Десятичное число с плавающей запятой IEEE 754 Decimal128 в собственном формате
   	Разрешены ли отрицательные значения?:	Да
   	PICTURE используется?:	Нет

   FLOAT-LONG~~~~~~~~~~

   	Диапазон значений:	Приблизительно -1.797693134862316 * 10308 – 1.797693134862316 * 10308
   	Формат хранения:	Двоичное число с плавающей запятой IEEE 754 Binary64 в собственном формате
   	Разрешены ли отрицательные значения?:	Да
   	PICTURE используется?:	Нет

   FLOAT-SHORT~~~~~~~~~~~

   	Диапазон значений:	Приблизительно -3.4028235 * 1038 – 3.4028235 * 1038
   	Формат хранения:	Двоичное число с плавающей запятой IEEE 754 Binary32 в собственном формате
   	Разрешены ли отрицательные значения?:	Да
   	PICTURE используется?:	Нет

   INDEX~~~~~

1. 	Диапазон значений:	От 0 до максимального возможного адреса (32 или 64 бита)
   	Формат хранения:	Нативный двоичный целое
   	Разрешены отрицательные значения?:	Нет
   	PICTURE Используется?:	Нет

   NATIONAL~~~~~~~~

   USAGE NATIONAL, хотя синтаксически распознается, не поддерживается GnuCOBOL

   PACKED-DECIMAL~~~~~~~~~~~~~~

   	Диапазон значений:	Определяется количеством «9» и наличием или отсутствием «S» в описании формата данных
   	Формат хранения:	Знаковый упакованный десятичный
   	Разрешены отрицательные значения?:	Если PICTURE содержит «S»
   	PICTURE Используется?:	Да

   POINTER~~~~~~~

   	Диапазон значений:	От 0 до максимального возможного адреса (32 или 64 бита)
   	Формат хранения:	Нативный двоичный целое
   	Разрешены отрицательные значения?:	Нет
   	PICTURE Используется?:	Нет

   PROCEDURE-POINTER~~~~~~~~~~~~~~~~~

   То же, что и PROGRAM-POINTER

   PROGRAM-POINTER~~~~~~~~~~~~~~~

   	Диапазон значений:	От 0 до максимального возможного адреса (32 или 64 бита)
   	Формат хранения:	Нативный двоичный целое
   	Разрешены отрицательные значения?:	Нет
   	PICTURE Используется?:	Нет

   SIGNED-INT~~~~~~~~~~

   То же, что и BINARY-LONG SIGNED

   SIGNED-LONG~~~~~~~~~~~

   То же, что и BINARY-DOUBLE SIGNED

   SIGNED-SHORT~~~~~~~~~~~~

   То же, что и BINARY-SHORT SIGNED

   UNSIGNED-INT~~~~~~~~~~~~

   То же, что и BINARY-LONG UNSIGNED

   UNSIGNED-LONG~~~~~~~~~~~~~

   То же, что и BINARY-DOUBLE UNSIGNED

   UNSIGNED-SHORT~~~~~~~~~~~~~~

   То же, что и BINARY-SHORT UNSIGNED

2. Двоичные данные (целые или с плавающей точкой) могут храниться в формате Big-Endian или Little-Endian.

   При использовании схемы размещения данных Big-Endian байты, составляющие двоичную величину, размещаются таким образом, что наименее значимый байт находится справа. Например, четырехбайтовая двоичная величина, имеющая значение 20 в десятичной системе, будет размещена в формате big-endian как 00000014 (показано в шестнадцатеричном формате).

   При использовании схемы размещения данных Little-Endian байты, составляющие двоичную величину, размещаются таким образом, что наименее значимый байт находится слева. Например, четырехбайтовая двоичная величина, имеющая значение 20 в десятичной системе, будет размещена в формате little-endian как 14000000 (показано в шестнадцатеричном формате).

   Все процессоры способны понимать формат big-endian, что делает его наиболее совместимым форматом двоичного хранения на различных компьютерных системах.

   Некоторые процессоры, такие как процессоры архитектуры Intel/AMD i386/x64, используемые в большинстве ПК с Windows, предпочитают обрабатывать двоичные данные в формате little-endian. Поскольку этот формат более эффективен на этих системах, он называется нативным двоичным форматом.

   В системе, поддерживающей только один формат двоичного хранения (обычно это big-endian), термины наиболее эффективный и нативный формат являются синонимами.

3. Элементы данных, имеющие атрибут UNSIGNED явно в коде, или DISPLAY, PACKED-DECIMAL, COMP-5, COMP-X элементы, не содержащие символ «S» в описании формата данных, не могут сохранять отрицательные значения, которые могут быть сохранены в них. Хранение отрицательного значения в таком поле фактически приведет к удалению знака, фактически сохраняя абсолютное значение в элементе данных.

1. Данные с упакованной десятичной записью (т.е. USAGE PACKED-DECIMAL, USAGE COMP-3 или USAGE COMP-6) хранятся как серия байтов, в каждом из которых содержится два 4-битных поля, называемые нибблами (поскольку они составляют половину «байта», они просто «нибблы» — не стоните, я не выдумываю это!). Каждый ниббл представляет «9» в PICTURE и содержит одну десятичную цифру, закодированную как её двоичное значение (0 = 0000, 1 = 0001, … , 9 = 1001).

   Последний байт данных PACKED-DECIMAL или COMP-3 всегда содержит свой левый ниббл, соответствующий последней цифре «9» в PICTURE, и его правый ниббл, резервированный для индикатора знака. Этот индикатор знака всегда присутствует независимо от того, содержал ли PICTURE символ «S».

   Первый байт элемента данных будет содержать неиспользуемый левый ниббл, если у PICTURE было чётное количество символов «9».

   Индикатор знака будет иметь значение от шестнадцатеричного A до F. Стандартные правила кодирования упакованной десятичной записи предполагают шестнадцатеричные значения F, A, C или E («FACE») в ниббле знака для обозначения положительного значения и B или D для представления отрицательного значения (шестнадцатеричные цифры 0-9 не определены). Тестирование с использованием реализации Windows MinGW/GnuCOBOL показывает, что фактически шестнадцатеричная цифра D представляет отрицательное число, а любая другая шестнадцатеричная цифра — положительное. Поэтому поле упакованной десятичной записи PIC S9(3) COMP-3 со значением -15 будет храниться внутри как шестнадцатеричное 015D в GnuCOBOL.

   Если вы попытаетесь сохранить отрицательное число в поле упакованной десятичной записи, в котором в PICTURE нет «S», то фактически будет сохранено абсолютное значение отрицательного числа.

   USAGE COMP-6 не допускает отрицательных значений, поэтому ниббл знака не будет выделен. Элемент данных USAGE COMP-6 с нечётным количеством символов «9» в PICTURE оставит свой крайний левый ниббл неиспользованным.

2. Спецификации USAGE FLOAT-DECIMAL-16 и FLOAT-DECIMAL-34 будут кодировать данные в формате IEEE 754 Decimal64 и Decimal128 соответственно. Первый позволяет использовать до 16 знаков точности, а второй — 34. Термин «точная точность» используется потому, что традиционные двоичные представления десятичных действительных чисел в формате с плавающей точкой (FLOAT-LONG и FLOAT-SHORT, например) дают только приближение фактического значения, потому что многие десятичные дроби не могут быть точно представлены в двоичном формате. Однако Decimal64 и Decimal128 представляют десятичные действительные числа в кодированном десятичном формате примерно так же, как PACKED-DECIMAL представляет десятичное целое число в виде десятичного представления цифры за цифрой. Точный способ выполнения этого преобразования сложен (в Википедии есть отличная статья на эту тему — просто найдите Decimal64).
3. GnuCOBOL хранит элементы данных FLOAT-DECIMAL-16 и FLOAT-DECIMAL-34 в формате Big-Endian или Little-Endian, в зависимости от того, какой формат используется в системе.
4. Спецификации USAGE FLOAT-LONG и FLOAT-SHORT используют форматы IEEE 754 Binary64 и Binary32 соответственно. Это двоичные кодировки десятичных чисел с плавающей точкой, и, как таковые, они не могут представлять все возможные значения между минимальным и максимальным значениями в диапазоне для этих применений. В Википедии есть отличная статья о схемах кодирования Binary64 и Binary32 — просто найдите Binary32 или Binary64.

   GnuCOBOL хранит элементы данных FLOAT-LONG и FLOAT-SHORT в формате Big-Endian или Little-Endian, в зависимости от того, какой формат используется в системе.

5. Оператор USAGE, указанный на уровне группового элемента, применим к всем подчиненным элементам данных, кроме тех, у которых есть оператор USAGE.
6. Единственный оператор USAGE, разрешённый в разделе отчёта, — USAGE DISPLAY.

6.9.50. USING

Синтаксис оператора USING

 USING identifier-1
 ~~~~~

Этот синтаксис допустим в следующих разделах: SCREEN

Этот оператор логически привязывает элемент данных раздела экрана к другому элементу данных, определённому в другом месте раздела данных.

1. При отображении элемента экрана, определение которого содержит этот оператор, значение, текущее в identifier-1, будет автоматически перемещено в элемент экрана в первую очередь.
2. При обработке элемента экрана, определение которого содержит этот оператор (или его родительского элемента), текущее содержимое элемента экрана будет сохранено обратно в identifier-1 по завершении ACCEPT.
3. Операторы FROM (см. FROM), TO (см. TO), USING и VALUE (см. VALUE) являются взаимоисключающими в определении любого элемента данных раздела экрана.

6.9.51. VALUE

Синтаксис оператора VALUE (имена условий)

 { VALUE IS   } {literal-1 [ THRU|THROUGH literal-2 ]}...
 { ~~~~~      }              ~~~~ ~~~~~~~
 { VALUES ARE }
   ~~~~~~

Синтаксис оператора VALUE (другие элементы данных)

 VALUE IS [ ALL ] literal-1
 ~~~~~      ~~~

Этот синтаксис допустим в следующих разделах: FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, REPORT, SCREEN

Оператор VALUE используется для определения имён условий или для присваивания значений (во время компиляции) элементам данных.

1. Зарезервированные слова ARE и IS являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Этот пункт не может быть указан в том же элементе данных, что и пункт FROM (см. FROM), TO (см. TO) или USING (см. USING).
3. Следующие пункты относятся к использованию пункта VALUE в определении имени условия:
   1. Пункты VALUE IS и VALUES ARE взаимозаменяемы.
   2. Зарезервированные слова THRU и THROUGH взаимозаменяемы.
   3. См. Элементы данных уровня 88, чтобы узнать, как этот формат VALUE используется для создания имён условий.
   4. См. Имена условий, чтобы узнать, как используются имена условий.
4. Следующие пункты относятся к использованию пункта VALUE в определении любого другого элемента данных:
   1. В этом контексте VALUE задаёт начальное значение, которое будет присвоено памяти, занимаемой элементом данных в объектном коде программы, сгенерированном компилятором.
   2. Пункт VALUE игнорируется для элементов данных EXTERNAL (см. EXTERNAL) или для элементов данных, определённых как подчиненные элементу данных EXTERNAL.
   3. Этот формат пункта VALUE не может быть использован нигде в описании элемента 01 (или любого из его подчиненных элементов), используемого как описание записи FD или SD.
   4. Если используется необязательный пункт ALL, он может быть использован только с алфавитно-цифровым литеральным значением; значение будет повторяться по мере необходимости, чтобы полностью заполнить элемент данных. Вот некоторые примеры с пунктом ALL и без него (символ b обозначает пробел):

      PIC X(5) VALUE ‘A’      *> Abbbb
      PIC X(5) VALUE ALL ‘A’  *> AAAAA
      PIC 9(3) VALUE 1        *> 001
      PIC 9(3) VALUE ALL ‘1’  *> 111
      

   5. При использовании в определении элемента данных экрана:
      1. Фигуральная константа не может быть предоставлена в качестве literal-1.
      2. Любой пункт FROM (см. FROM), TO (см. TO) или USING (см. USING) в определении того же элемента данных будет проигнорирован.
      3. Если пункт picture не указан, размер элемента данных экрана будет равен длине значения literal-1.
      4. Если пункт picture не указан и задан параметр ALL, то параметр ALL будет проигнорирован.
   6. Назначение таблице начального значения на этапе компиляции является одним из наиболее сложных аспектов определения данных в COBOL. В основном используются три стандартных метода и четвёртый, который могут быть интересным для людей, знакомых с другими реализациями COBOL, но не знакомых с GnuCOBOL. Вот три стандартных подхода:
      1. Не беспокойтесь об этом на этапе компиляции. Используйте пункт INITIALIZE (см. INITIALIZE) для инициализации всех вхождений элемента данных в таблице (во время выполнения) до значений по умолчанию, специфичных для типа данных (числа: 0, алфавитные и алфавитно-цифровые: пробелы).
      2. Инициализировать небольшие таблицы во время компиляции, включив пункт VALUE в элемент группы, являющийся родителем таблицы, следующим образом:

         05  SHIRT-SIZES          VALUE "S 14M 15L 16XL17".
             10 SHIRT-SIZE-TBL    OCCURS 4 TIMES.
                15 SST-SIZE       PIC X(2).
                15 SST-NECK       PIC 9(2).
         

      3. Инициализировать таблицы почти любого размера на этапе компиляции, используя пункт REDEFINES (см. REDEFINES):

         05  SHIRT-SIZE-VALUES.
             10 PIC X(4)          VALUE "S 14".
             10 PIC X(4)          VALUE "M 15".
             10 PIC X(4)          VALUE "L 16".
             10 PIC X(4)          VALUE XL17.
         05  SHIRT-SIZES          REDEFINES SHIRT-SIZE-VALUES.
             10 SHIRT-SIZE-TBL    OCCURS 4 TIMES.
                15 SST-SIZE       PIC X(2).
                15 SST-NECK       PIC 9(2).
         

         Необходимо отметить, что эта таблица значительно более объёмна, чем та, которая представлена с группой VALUE. Однако, преимуществом этого метода инициализации является то, что вы можете иметь столько FILLER и VALUE элементов, сколько вам нужно для большей таблицы, и эти значения могут быть сколь угодно длинными!

   7. Многие компиляторы COBOL не позволяют использовать VALUE и OCCURS (см. OCCURS) в одном элементе данных; кроме того, они не позволяют использовать пункт VALUE для элемента данных, подчиненного элементу OCCURS. Однако в GnuCOBOL таких ограничений нет!

      Рассмотрим следующий пример, который демонстрирует четвёртый способ инициализации таблиц в GnuCOBOL:

      05  X           OCCURS 6 TIMES.
          10 A        PIC X(1) VALUE '?'.
          10 B        PIC X(1) VALUE '%'.
          10 N        PIC 9(2) VALUE 10.
      

      В этом примере все шесть элементов ‘A’ будут инициализированы значением ‘?’, все шесть элементов ‘B’ — значением ‘%’, а все шесть элементов ‘N’ — значением 10. Непонятно, в скольких случаях подобная инициализация окажется полезной, но она доступна при необходимости.

5. Пункты FROM (см. FROM), TO (см. TO), USING (см. USING) и VALUE являются взаимоисключающими в определении любого элемента данных раздела экрана.

7. PROCEDURE DIVISION

Синтаксис PROCEDURE DIVISION

   PROCEDURE DIVISION [ { USING Subprogram-Argument...     } ]
   ~~~~~~~~~ ~~~~~~~~   { ~~~~~                            }
                        { CHAINING Main-Program-Argument...}
                          ~~~~~~~~
                      [ RETURNING identifier-1 ] .
 [ DECLARATIVES. ]      ~~~~~~~~~
   ~~~~~~~~~~~~
 [ Event-Handler-Routine... . ]

 [ END DECLARATIVES. ]
   ~~~ ~~~~~~~~~~~~
   General-Program-Logic

 [ Nested-Subprogram... ]

 [ END PROGRAM|FUNCTION name-1 ]
   ~~~ ~~~~~~~ ~~~~~~~~

Раздел PROCEDURE DIVISION любой программы GnuCOBOL обозначает точку, в которой записывается весь исполняемый код.

7.1. PROCEDURE DIVISION USING

Синтаксис подпрограммы-аргумента PROCEDURE DIVISION

 [ BY { REFERENCE [ OPTIONAL ]                       } ] identifier-1
      { ~~~~~~~~~   ~~~~~~~~                         }
      { VALUE [ [ UNSIGNED ] SIZE IS { AUTO      } ] }
        ~~~~~     ~~~~~~~~   ~~~~    { ~~~~      }
                                     { DEFAULT   }
                                     { ~~~~~~~   }
                                     { integer-1 }

Пункт USING определяет аргументы, которые будут переданы программе GnuCOBOL, выступающей в роли подпрограммы.

1. Зарезервированные слова BY и IS являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. Оператор USING должен использоваться только в заголовке раздела процедур подпрограмм (подпрограмм или пользовательских функций).
3. Вызывающая программа передаст ноль или более элементов данных, известных как аргументы, этой подпрограмме — должно быть ровно столько элементов данных identifier-1, указанных в операторе USING, сколько максимальное число аргументов, которое подпрограмма может принять.
4. Если подпрограмма не ожидает никаких аргументов, она не должна иметь оператор USING в заголовке раздела процедур.
5. Порядок определения аргументов в операторе USING должен соответствовать порядку передачи этих аргументов в подпрограмму вызывающей программой.
6. Идентификаторы, указанные в операторе USING, должны быть определены в разделе связи подпрограммы. На самом деле для этих идентификаторов не выделяется память в подпрограмме, так как фактическая память для них будет существовать в вызывающей программе.
7. Подпрограмма GnuCOBOL ожидает, что все ее аргументы будут одним из двух:
   • Адрес памяти фактического элемента данных (выделенного в вызывающей программе), передаваемого подпрограмме.
   • Численное целое значение (т.е. USAGE BINARY-LONG (см. USAGE)), которое является фактическим аргументом, передаваемым подпрограмме.

   В первом случае оператор USING в заголовке раздела процедур должен описывать аргумент с помощью оператора BY REFERENCE — во втором случае должна быть указана спецификация BY VALUE. Это позволяет сгенерированному компилятором коду правильно ссылаться на аргументы подпрограммы во время выполнения.

8. BY REFERENCE — предполагаемый по умолчанию для первого аргумента USING, если не указан оператор BY. Последующие аргументы будут предполагать спецификацию BY аргумента, предшествующего им, если у них нет собственного оператора BY.
9. Изменения, внесенные подпрограммой в значение аргумента, указанного в операторе USING, будут «видимыми» для вызывающей программы только в том случае, если BY REFERENCE был явно указан или неявно предполагался для аргумента в заголовке раздела процедур подпрограммы и аргумент был передан подпрограмме BY REFERENCE вызывающей программой. Дополнительную информацию о механике передачи аргументов в подпрограммы см. в разделе Аргументы подпрограммы.
10. Необязательный оператор SIZE позволяет указать количество байт, которое займет аргумент BY VALUE, где SIZE DEFAULT указывает 4 байта (это значение по умолчанию, если не используется оператор SIZE), SIZE AUTO указывает размер аргумента в вызывающей программе, а SIZE integer-1 указывает конкретное количество байт.
11. Необязательное ключевое слово UNSIGNED, допустимое только при наличии SIZE AUTO или SIZE integer-1, добавит атрибут unsigned к спецификации аргумента в сгенерированном коде заголовка функции C для подпрограммы. Хотя это не приносит пользы, когда вызывающая программа является программой GnuCOBOL, это может улучшить совместимость с вызывающей программой на языке C.
12. Ключевое слово OPTIONAL, допустимое только для аргументов BY REFERENCE, позволяет вызывающим программам использовать OMITTED для соответствующего аргумента при вызове этой подпрограммы. Дополнительную информацию об этой функции см. в разделе CALL.

7.2. ЦЕПОВЫЕ ПРОЦЕДУРНЫЕ РАЗДЕЛЫ

Синтаксис аргумента главного раздела процедур

 [ BY REFERENCE ] [ OPTIONAL ] identifier-1
      ~~~~~~~~~     ~~~~~~~~

Термин CHAINING предоставляет программисту один механизм получения аргументов командной строки, передаваемых программе во время выполнения.

1. PROCEDURE DIVISION CHAINING может быть закодирован только в основной программе (то есть, первой программе, выполняемой при выполнении единицы компиляции GnuCOBOL). Он не может использоваться ни в какой форме подпрограммы.
2. Оператор CHAINING определяет аргументы, которые будут переданы основной программе из операционной системы. Идентификаторы аргументов, указанные в операторе CHAINING, будут заполнены строками символов, состоящими из параметров, указанных для программы в командной строке, которая ее выполнила, следующим образом:
   1. При выполнении программы GnuCOBOL из командной строки текст всей командной строки будет разбиваться на серию токенов, где каждый токен идентифицируется как слово, отделенное от других в тексте команды по меньшей мере одним пробелом. Например, если командная строка была /usr/local/myprog THIS IS A TEST, операционная система идентифицирует пять токенов — ‘/usr/local/myprog’, ‘THIS’, ‘IS’, ‘A’ и ‘TEST’.
   2. Несколько разделяемых пробелами токенов могут обрабатываться как один токен, если они заключены в кавычки. Например, из командной строки C:\Pgms\myprog.exe ‘THIS IS A’ TEST генерируются только три токена — ‘C:\Pgms\myprog.exe’, ‘THIS IS A’ и ‘TEST’. Когда для создания многословных токенов используются символы кавычек, сами символы кавычек удаляются из значения токена.
   3. После идентификации токенов первый из них (команда) будет отброшен; остальные будут сохранены в аргументах CHAINING при запуске программы, при этом второй токен пойдет в первый аргумент, третий токен — во второй аргумент и так далее.
   4. Если токенов больше, чем аргументов, избыточные токены будут отброшены.
   5. Если токенов меньше, чем аргументов, избыточные аргументы будут инициализированы так, как если бы был выполнен оператор INITIALIZE identifier-1 (см. INITIALIZE).
   6. Все идентификаторы, указанные в операторе CHAINING, должны быть определены как PIC X, PIC A, групповые элементы (которые неявно рассматриваются как PIC X) или как PIC 9 USAGE DISPLAY. Использование элементов данных типа USAGE BINARY (или аналогичных) в качестве аргументов CHAINING не рекомендуется, поскольку все токены командной строки будут сохранены в их исходной символьной форме при перемещении в элементы данных аргументов.
   7. Если размер хранилища идентификатора аргумента меньше, чем значение токена, который должен быть в него сохранен, избыточные символы в правой части значения токена будут усечены при перемещении значения. Любой оператор JUSTIFIED RIGHT для такого идентификатора аргумента будет проигнорирован.
   8. Если размер хранилища аргумента больше, чем значение токена, который должен быть в него сохранен, значение токена будет перемещено в идентификатор аргумента с выравниванием слева. Неизмененные позиции байтов в идентификаторе будут заполнены пробелами, если аргумент не определен как PIC 9 USAGE DISPLAY, в этом случае неизмененные байты будут заполнены символами ‘0’ из набора символов системы.

      Это поведение при определении аргумента как PIC 9 может быть неприемлемым, поскольку аргумент, определенный как PIC 9(3), но переданный со значением ‘1’ из командной строки, получит значение ‘100’, а не ‘001’. Рекомендуется определять «числовые» аргументы командной строки как PIC X и затем использовать встроенную функцию NUMVAL (см. NUMVAL) для определения соответствующего числового значения.

7.3. Операторы PROCEDURE DIVISION RETURNING

Синтаксис PROCEDURE DIVISION RETURNING

 RETURNING identifier-1
 ~~~~~~~~~

Оператор RETURNING в заголовке PROCEDURE DIVISION указывает, что подпрограмма, в которой он появляется, вернет числовое значение обратно программе, ее вызвавшей.

1. Оператор RETURNING является необязательным внутри подпрограммы, поскольку не все подпрограммы возвращают значение своему вызывающему объекту.
2. Оператор RETURNING является обязательным внутри определяемой пользователем функции, так как все такие функции должны возвращать числовой результат.
3. Элемент данных identifier-1 должен быть определен как элемент данных USAGE BINARY-LONG.
4. Основные программы, которые хотят «передать обратно» код возврата в операционную систему при выходе, не используют RETURNING — они делают это, просто переместив значение в специальный регистр RETURN-CODE.
5. Это не единственный механизм, который подпрограмма может использовать для передачи значения обратно своему вызывающему объекту. Другие возможности:
   1. Подпрограмма может изменить любой аргумент, указанный как BY REFERENCE в ее заголовке PROCEDURE DIVISION. Возможность для вызывающей программы «увидеть» какие-либо изменения зависит от того, как вызывающая программа передала аргумент подпрограмме. См. CALL для получения дополнительной информации.
   2. Элемент данных с атрибутом GLOBAL (см. GLOBAL), указанным в его описании в вызывающей программе, автоматически виден и может быть обновлен подпрограммой, вложенной в вызывающую программу. См. Независимые vs содержащиеся vs вложенные подпрограммы для получения дополнительной информации о вложенных подпрограммах.
   3. Элемент данных, определенный с атрибутом EXTERNAL (см. EXTERNAL) в подпрограмме и вызывающей программе (одно и то же имя в обеих программах), автоматически виден и может быть обновлен обеими программами, даже если эти программы скомпилированы независимо друг от друга.

7.4. Разделы и абзацы раздела PROCEDURE DIVISION

Раздел PROCEDURE DIVISION — единственный из разделов COBOL, который позволяет создавать собственные разделы и абзацы. Они совместно называются Процедурами, а имена, которые вы создаёте для этих разделов и абзацев, называются Именами процедур.

Имена процедур необязательны в разделе PROCEDURE DIVISION и, когда используются, назначаются в соответствии с потребностями и желаниями программиста.

Имена процедур могут иметь длину до тридцати одного (31) символа и могут состоять из букв, цифр, дефисов и нижних подчеркиваний. Имя процедуры не может начинаться или заканчиваться символом дефиса («-») или нижнего подчеркивания («_»). Это означает, что Main, 0100-Read-Transaction и 17 — все являются допустимыми именами процедур.

Существует три случая, в которых использование определённых инструкций или опций GnuCOBOL потребует указания процедур. Эти ситуации:

1. Когда DECLARATIVES (см. DECLARATIVES) указаны.
2. Когда используется инструкция ENTRY (см. ENTRY).
3. При использовании любой инструкции раздела PROCEDURE DIVISION, которая ссылается на процедуры. Эти инструкции:
   • ALTER procedure-name
   • GO TO procedure-name
   • MERGE … OUTPUT PROCEDURE procedure-name
   • PERFORM procedure-name
   • SORT … INPUT PROCEDURE procedure-name и/или SORT … INPUT PROCEDURE procedure-name

7.5. DECLARATIVES

Синтаксис DECLARATIVES

section-name-1 SECTION.

 USE { [ GLOBAL ] AFTER STANDARD { EXCEPTION } PROCEDURE ON { INPUT       } }
 ~~~ {   ~~~~~~                  { ~~~~~~~~~ }              { ~~~~~       } }
     {                           { ERROR     }              { OUTPUT      } }
     {                             ~~~~~                    { ~~~~~~      } }
     {                                                      { I-O         } }
     { FOR DEBUGGING ON { procedure-name-1           }      { ~~~         } }
     {     ~~~~~~~~~    { ALL PROCEDURES             }      { EXTEND      } }
     {                  { ~~~ ~~~~~~~~~~             }      { ~~~~~~      } }
     {                  { REFERENCES OF identifier-1 }      { file-name-1 } }
     {                                                                      }
     { [ GLOBAL ] BEFORE REPORTING identifier-2                             }
     {   ~~~~~~   ~~~~~~ ~~~~~~~~~                                          }
     {                                                                      }
     { AFTER EC|{EXCEPTION CONDITION}                                       }
             ~~  ~~~~~~~~~ ~~~~~~~~~

Операторные сочетания AFTER EXCEPTION CONDITION и AFTER EC синтаксически распознаются, но при этом не являются функциональными.

В области DECLARATIVES раздела PROCEDURE DIVISION программист может определить ряд «ловушечных» процедур (называемых декларативными процедурами), способных перехватывать определённые события, которые могут произойти во время выполнения программы. На диаграмме синтаксиса показан формат одной такой процедуры.

1. Зарезервированные слова AFTER, FOR, ON, PROCEDURE и STANDARD являются необязательными и могут быть опущены. Наличие или отсутствие этих слов не влияет на программу.
2. EC и EXCEPTION CONDITION взаимозаменяемы.
3. Область деклараций может содержать любое количество декларативных процедур, но две декларативные процедуры не должны быть запрограммированы для обработки одного и того же события.
4. Следующие пункты относятся к разделу USE BEFORE REPORTING:
   1. identifier-2 должен быть группой отчетов.
   2. Во время выполнения процедура деклараций будет выполнена перед обработкой представления указанной группы отчетов; внутри процедуры вы можете выполнить любое из следующих действий:
      • Вы можете изменить значение(я) любых элементов, на которые ссылаются в SUM (см. SUM) или SOURCE (см. SOURCE) разделах в группе отчетов.
      • Вы можете выполнить оператор SUPPRESS (см. SUPPRESS), чтобы полностью подавить отображение указанной группы отчетов. Обратите внимание, что вы будете подавлять только это конкретное представление группы, а не все.
5. Следующие пункты относятся к разделу USE FOR DEBUGGING:
   1. Этот раздел позволяет определить декларативную процедуру, которая будет вызвана всякий раз, когда…
      • …identifier-1 упоминается в любом операторе.
      • …выполняется procedure-name-1.
      • …выполняется любая процедура (ALL PROCEDURES).
   2. Декларативная процедура USE FOR DEBUGGING будет проигнорирована на стадии компиляции, если не указано WITH DEBUGGING MODE в разделе SOURCE-COMPUTER (см. SOURCE-COMPUTER). Ни переключатель компилятора -fdebugging-line, ни переключатель -debug не активируют эту функцию.
   3. Все декларативные процедуры USE FOR DEBUGGING будут проигнорированы на стадии выполнения, если переменная среды выполнения COB_SET_DEBUG (см. Переменные среды выполнения) не установлена в значение ‘Y’, ‘y’ или ‘1’.
   4. Типичное использование декларативной процедуры USE FOR DEBUGGING — отображение специального регистра DEBUG-ITEM, который будет неявно и автоматически создан в вашей программе, если WITH DEBUGGING MODE активен.

      Структура DEBUG-ITEM будет следующей:

      01  DEBUG-ITEM.
          05 DEBUG-LINE      PIC X(6).
          05 FILLER          PIC X(1) VALUE SPACE.
          05 DEBUG-NAME      PIC X(31).
          05 FILLER          PIC X(1) VALUE SPACE.
          05 DEBUG-SUB-1     PIC S9(4) SIGN LEADING SEPARATE.
          05 FILLER          PIC X(1) VALUE SPACE.
          05 DEBUG-SUB-2     PIC S9(4) SIGN LEADING SEPARATE.
          05 FILLER          PIC X(1) VALUE SPACE.
          05 DEBUG-SUB-3     PIC S9(4) SIGN LEADING SEPARATE.
          05 FILLER          PIC X(1) VALUE SPACE.
          05 DEBUG-CONTENTS  PIC X(31).
      

      где…

      DEBUG-LINE

      … это номер строки программы, которая вызвала процедуру деклараций.

      DEBUG-NAME

      … это имя процедуры или идентификатора, которое вызвало процедуру деклараций.

      DEBUG-SUB-1

      … это значение первого индекса (если есть) для ссылки на идентификатор, который вызвал процедуру деклараций.

      DEBUG-SUB-2

      … это значение второго индекса (если есть) для ссылки на идентификатор, который вызвал процедуру деклараций.

      DEBUG-SUB-3

      … это значение третьего индекса (если есть) для ссылки на идентификатор, который вызвал процедуру деклараций.

      DEBUG-CONTENTS

      … это (краткое) описание способа выполнения процедуры, которая вызвала процедуру деклараций, или первые 31 символ значения идентификатора, ссылка на который вызвала процедуру деклараций (значение после выполнения оператора).

6. Раздел USE AFTER STANDARD ERROR PROCEDURE определяет декларативную процедуру, которая вызывается всякий раз, когда возникает ошибка с указанным типом ввода-вывода (или по отношению к указанным файлам).
7. Опция GLOBAL (см. GLOBAL), если используется, позволяет использовать декларативную процедуру во всей программе, содержащей оператор USE и любых вложенных в неё подпрограммах.
8. Декларативные процедуры не могут ссылаться на другие процедуры, определённые вне области DECLARATIVES.

7.6. Общие разделы управляемых операторов

7.6.1. AT END + NOT AT END

Синтаксис AT END

 [ AT END imperative-statement-1 ]
      ~~~
 [ NOT AT END imperative-statement-2 ]
   ~~~    ~~~

AT END разделы могут быть указаны в операторах READ (см. READ), RETURN (см. RETURN), SEARCH (см. SEARCH) и SEARCH ALL (см. SEARCH ALL).

1. Следующие пункты относятся к использованию этих пунктов в операторах READ (см. READ) и RETURN (см. RETURN):
   1. Пункт AT END — при наличии — приведет к выполнению imperative-statement-1 (см. Оператор приказа) в случае, если оператор завершится ошибкой из-за статуса файла 10 (конец файла). См. Коды статуса файла для списка возможных кодов статуса файла.

      Пункт AT END не будет обнаруживать другие значения статуса файла, отличные от нуля.

      Используйте процедуру DECLARATIVES (см. ДЕКЛАРАТИВЫ) или явное поле статуса файла, проверенное после READ или RETURN, для обнаружения условий ошибки, отличных от конца файла.

   2. Пункт NOT AT END приведет к выполнению imperative-statement-2 в случае успешного выполнения попытки READ или RETURN.
2. Следующие пункты относятся к использованию этих пунктов в операторах SEARCH (см. SEARCH) и SEARCH ALL (см. SEARCH ALL):
   1. Пункт AT END обнаруживает и обрабатывает случай, когда поиск таблицы по одному из указанных типов не обнаруживает записи, удовлетворяющей используемым условиям поиска.
   2. Пункт NOT AT END не разрешен для поиска таблицы ни по одному из указанных типов.

7.6.2. СООТВЕТСТВУЮЩИЕ

Три оператора GnuCOBOL — ADD (см. ADD CORRESPONDING), MOVE (см. MOVE CORRESPONDING) и SUBTRACT (см. SUBTRACT CORRESPONDING) поддерживают использование опции CORRESPONDING:

ADD CORRESPONDING group-item-1 TO group-item-2
MOVE CORRESPONDING group-item-1 TO group-item-2
SUBTRACT CORRESPONDING group-item-1 FROM group-item-2

Эта опция позволяет сопоставить один или несколько элементов данных в одном групповом элементе (group-item-1 — первый, указанный в операторе) с соответствующими элементами (отсюда и название) во втором групповом элементе (group-item-2 — второй, указанный в операторе). Содержимое group-item-1 не изменится, а один или несколько элементов данных в group-item-2 будут изменены.

Для того, чтобы data-item-1, определенный как подчиненный групповому элементу group-item-1, являлся соответствующим элементом data-item-2, подчиненному group-item-2, должны выполняться все следующие условия:

1. data-item-1 и data-item-2 должны иметь одинаковые имена, и это имя не может быть явно или неявно FILLER.
2. data-item-1 и data-item-2…
   1. …должны существовать на одинаковой относительной структурной «глубине» определения в group-item-1 и group-item-2 соответственно.
   2. …и все родительские элементы данных, определенные в каждом групповом элементе, должны иметь одинаковые (но не FILLER) имена.
3. При использовании глагола %%%CODE_BLOCK_2727%%…
   1. …разрешается использовать в качестве data-item-1 или data-item-2 (но не оба одновременно) групповой элемент.
   2. …и должно быть возможно выполнить перемещение data-item-1 В data-item-2.
4. При использовании глаголов ADD или SUBTRACT оба data-item-1 и data-item-2 должны быть числовыми, элементарными, неизмененными элементами.
5. Ни data-item-1, ни data-item-2 не могут быть REDEFINES (см. REDEFINES) или RENAMES (см. RENAMES) другого элемента данных.
6. Ни data-item-1, ни data-item-2 не могут содержать пункт OCCURS (см. OCCURS), хотя в них могут содержаться подчиненные элементы данных, которые имеют пункт OCCURS (при условии, что правило 3a применяется).

Обратите внимание на определения элементов данных ‘Q’ и ‘Y’…

01  Q.                           01  Y.
    03 X.                            02 A         PIC X(1).
       05 A         PIC 9(1).        02 G1.
       05 G1.                           03 G2.
          10 G2.                           04 B   PIC X(1).
             15 B   PIC X(1).        02 C         PIC X(1).
       05 C.                         02 G3.
          10 FILLER PIC X(1).           03 G5.
       05 G3.                              04 D   PIC X(1).
          10 G4.                        03 G6     PIC X(1).
             15 D   PIC X(1).        02 E         PIC 9(1).
       05 E         PIC X(1).        02 F         PIC X(1).
       05 F         REDEFINES V1     02 G         PIC X(4).
                    PIC X(1).        02 H         OCCURS 4 TIMES
       05 G.                                      PIC X(1).
          10 G6     OCCURS 4 TIMES   66 I         RENAMES E.
                    PIC X(1).        02 J.
       05 H         PIC X(4).           03 K.
       05 I         PIC 9(1).              04 L.
       05 J.                                  05 M.
          10 K.
             15 M   PIC X(1).

Ниже приведены допустимые CORRESPONDING соответствия при выполнении оператора MOVE CORRESPONDING X TO Y (нет допустимых соответствий для ADD CORRESPONDING или SUBTRACT CORRESPONDING, поскольку каждое потенциальное соответствие нарушает правило № 4):

Ниже приведены CORRESPONDING соответствия, которые удовлетворили правилу № 1 (но потерпели неудачу на другом правиле), и причины неудачи.

7.6.3. INVALID KEY + NOT INVALID KEY

Синтаксис INVALID KEY

 [ INVALID KEY imperative-statement-1 ]
   ~~~~~~~
 [ NOT INVALID KEY imperative-statement-2 ]
   ~~~ ~~~~~~~

Оператор INVALID KEY может быть указан в операторах DELETE (см. DELETE), READ (см. Random READ), REWRITE (см. REWRITE), START (см. START) и WRITE (см. WRITE).

Указание оператора INVALID KEY позволит вашей программе перехватить условие ошибки ввода-вывода (с кодом ошибки ввода-вывода в поле FILE-STATUS (см. SELECT) записи) , возникшее из-за отсутствия записи, и обработать его должным образом, выполнив imperative-statement-1 (см. Imperative Statement).

Необязательное условие NOT INVALID KEY заставит выполнить imperative-statement-2, если выполнение оператора прошло успешно.

7.6.4. ON EXCEPTION + NOT ON EXCEPTION

Синтаксис ON EXCEPTION

 [ ON EXCEPTION imperative-statement-1 ]
      ~~~~~~~~~
 [ NOT ON EXCEPTION imperative-statement-2 ]
   ~~~    ~~~~~~~~~

Оператор EXCEPTION может быть указан в операторах ACCEPT (см. ACCEPT), CALL (см. CALL) и DISPLAY (см. DISPLAY).

Указание условия исключения позволит вашей программе перехватить условие ошибки и обработать его должным образом, выполнив imperative-statement-1 (см. Imperative Statement). Если такое условие возникает во время выполнения без указания одного из этих условий, будет выведено сообщение об ошибке (библиотекой GnuCOBOL runtime) на устройство SYSERR (канал 2). Программа также может быть завершена, в зависимости от типа и степени ошибки.

Необязательное условие NOT ON EXCEPTION заставит выполнить imperative-statement-2, если выполнение оператора прошло успешно.

7.6.5. ON OVERFLOW + NOT ON OVERFLOW

Синтаксис ON OVERFLOW

 [ ON OVERFLOW imperative-statement-1 ]
      ~~~~~~~~
 [ NOT ON OVERFLOW imperative-statement-2 ]
   ~~~    ~~~~~~~~

Оператор OVERFLOW может быть указан в операторах CALL (см. CALL), STRING (см. STRING) и UNSTRING (см. UNSTRING).

Оператор ON OVERFLOW позволит вашей программе перехватить условие ошибки и обработать его должным образом, выполнив imperative-statement-1 (см. Imperative Statement). Если такое условие возникает во время выполнения без указания одного из этих условий, будет выведено сообщение об ошибке (библиотекой GnuCOBOL runtime) на устройство SYSERR (канал 2). Программа также может быть завершена, в зависимости от типа и степени ошибки.

Необязательное условие NOT ON OVERFLOW заставит выполнить imperative-statement-2, если выполнение оператора прошло успешно.

7.6.6. ON SIZE ERROR + NOT ON SIZE ERROR

Синтаксис ON SIZE ERROR

 [ ON SIZE ERROR imperative-statement-1 ]
      ~~~~ ~~~~~
 [ NOT ON SIZE ERROR imperative-statement-2 ]
   ~~~    ~~~~ ~~~~~

Операторы SIZE ERROR могут быть включены в операторах ADD (см. ADD), COMPUTE (см. COMPUTE), DIVIDE (см. DIVIDE), MULTIPLY (см. MULTIPLY) и SUBTRACT (см. SUBTRACT).

Включение ON SIZE ERROR в арифметическое выражение позволит вашей программе перехватывать ошибки арифметического выражения (либо при генерации результата, слишком большого для поля-приёмника, либо при попытке деления на ноль) и корректно обрабатывать их, выполнив imperative-statement-1 (см. Инструкцию). Переполнение размеров поля происходит без сообщений, обычно без каких-либо сообщений во время выполнения, хотя такие события редко приводят к корректным результатам. Ошибки деления на ноль, когда ON SIZE ERROR отсутствует, приведут к сообщению об ошибке (библиотекой GnuCOBOL) в SYSERR устройство (труба 2) и также прервут выполнение программы.

Необязательная NOT ON SIZE ERROR позволит выполнить imperative-statement-2, если выполнение арифметического выражения прошло успешно.

7.6.7. ROUNDED

ROUNDED Синтаксис

 ROUNDED [ MODE IS { AWAY-FROM-ZERO         }
 ~~~~~~~   ~~~~    { ~~~~~~~~~~~~~~         }
                   { NEAREST-AWAY-FROM-ZERO }
                   { ~~~~~~~~~~~~~~~~~~~~~~ }
                   { NEAREST-EVEN           }
                   { ~~~~~~~~~~~~           }
                   { NEAREST-TOWARD-ZERO    }
                   { ~~~~~~~~~~~~~~~~~~~    }
                   { PROHIBITED             }
                   { ~~~~~~~~~~             }
                   { TOWARD-GREATER         }
                   { ~~~~~~~~~~~~~~         }
                   { TOWARD-LESSER          }
                   { ~~~~~~~~~~~~~          }
                   { TRUNCATION             }
                     ~~~~~~~~~~

GnuCOBOL предоставляет возможность управления окончательным округлением результатов, применяемого к полям-приёмникам во всех арифметических операциях. Каждое из арифметических выражений (ADD (см. ADD), COMPUTE (см. COMPUTE), DIVIDE (см. DIVIDE), MULTIPLY (см. MULTIPLY) и SUBTRACT (см. SUBTRACT)) допускает необязательную ROUNDED для каждого поля данных-приёмника.

Следующие правила применяются к поведению округления, заданному этой клаузой.

1. Округление применяется только тогда, когда результат, сохраняемый в поле-приёмнике с ROUNDED клаузой, является нецелым числом.
2. Отсутствие ROUNDED клаузы эквивалентно указанию ROUNDED MODE IS TRUNCATION.
3. Использование ROUNDED клаузы без указания MODE эквивалентно указанию ROUNDED MODE IS NEAREST-AWAY-FROM-ZERO.

Поведение восьми различных режимов округления определяется в следующей таблице. Обратите внимание, что «…» означает, что последняя цифра повторяется. Примеры предполагают целочисленное поле-приёмник.

AWAY-FROM-ZERO

Округление до ближайшего значения большего модуля.

-3.510 ⇒ -4	+3.510 ⇒ +4
-3.500 ⇒ -4	+3.500 ⇒ +4
-3.499… ⇒ -4	+3.499… ⇒ +4
-2.500 ⇒ -3	+2.500 ⇒ +3
-2.499… ⇒ -3	+2.499… ⇒ +3

NEAREST-AWAY-FROM-ZERO

Округление до ближайшего значения (большего или меньшего). Если два значения находятся на одинаковом расстоянии, выбирается значение с большим абсолютным значением.

-3.510 ⇒ -4	+3.510 ⇒ +4
-3.500 ⇒ -4	+3.500 ⇒ +4
-3.499… ⇒ -3	+3.499… ⇒ +3
-2.500 ⇒ -3	+2.500 ⇒ +3
-2.499… ⇒ -2	+2.499… ⇒ +2

NEAREST-EVEN

Округление до ближайшего значения (большего или меньшего). Если два значения находятся на одинаковом расстоянии, выбирается значение, правая цифра которого является чётной. Этот режим иногда называется «банковским округлением».

-3.510 ⇒ -4	+3.510 ⇒ +4
-3.500 ⇒ -4	+3.500 ⇒ +4
-3.499… ⇒ -3	+3.499… ⇒ +3
-2.500 ⇒ -2	+2.500 ⇒ +2
-2.499… ⇒ -2	+2.499… ⇒ +2

NEAREST-TOWARD-ZERO

Округление до ближайшего значения (большего или меньшего). Если два значения находятся на одинаковом расстоянии, выбирается значение с меньшим абсолютным значением.

-3.510 ⇒ -4	+3.510 ⇒ +4
-3.500 ⇒ -3	+3.500 ⇒ +3
-3.499… ⇒ -3	+3.499… ⇒ +3
-2.500 ⇒ -2	+2.500 ⇒ +2
-2.499… ⇒ -2	+2.499… ⇒ +2

PROHIBITED

Округление не выполняется. Если значение нельзя точно представить в желаемом формате, устанавливается условие %%%CODE_BLOCK_2809%% (код исключения 1005) (и может быть получено через %%%CODE_BLOCK_2810%% (см. ACCEPT FROM Runtime-Info)) и результаты операции не определены.

-3.510 ⇒ Не определено	+3.510 ⇒ Не определено
-3.500 ⇒ Не определено	+3.500 ⇒ Не определено
-3.499… ⇒ Не определено	+3.499… ⇒ Не определено
-2.500 ⇒ Не определено	+2.500 ⇒ Не определено
-2.499… ⇒ Не определено	+2.499… ⇒ Не определено

TOWARD-GREATER

Округление к ближайшему значению, алгебраическое значение которого больше.

-3.510 ⇒ -3	+3.510 ⇒ +4
-3.500 ⇒ -3	+3.500 ⇒ +4
-3.499… ⇒ -3	+3.499… ⇒ +4
-2.500 ⇒ -2	+2.500 ⇒ +3
-2.499… ⇒ -2	+2.499… ⇒ +3

TOWARD-LESSER

Округление к ближайшему значению, алгебраическое значение которого меньше.

-3.510 ⇒ -4	+3.510 ⇒ +3
-3.500 ⇒ -4	+3.500 ⇒ +3
-3.499… ⇒ -4	+3.499… ⇒ +3
-2.500 ⇒ -3	+2.500 ⇒ +2
-2.499… ⇒ -3	+2.499… ⇒ +2

TRUNCATION

Округление до ближайшего значения, модуль которого меньше.

-3.510 ⇒ -3	+3.510 ⇒ +3
-3.500 ⇒ -3	+3.500 ⇒ +3
-3.499… ⇒ -3	+3.499… ⇒ +3
-2.500 ⇒ -2	+2.500 ⇒ +2
-2.499… ⇒ -2	+2.499… ⇒ +2

7.7. Специальные регистры

GnuCOBOL, как и другие диалекты COBOL, включает ряд элементов данных, которые автоматически доступны программисту, без необходимости фактического определения их в разделе данных. COBOL называет такие элементы регистрами или специальными регистрами. Специальные регистры, доступные программе GnuCOBOL, перечислены ниже:

COB-CRT-STATUS

PIC 9(4) — Это стандартный элемент данных, выделенный для использования в операторе ACCEPT screen-data-item (см. ACCEPT screen-data-item), если не указан ни один оператор CRT STATUS (см. SPECIAL-NAMES).

DEBUG-ITEM

Элемент группы — элемент группы, в котором отладочная информация, сгенерированная разделом USE FOR DEBUGGING в области описаний процедурного раздела, разместит информацию, документирующую, почему была вызвана процедура USE FOR DEBUGGING. Обратитесь к документации по DECLARATIVES (см. DECLARATIVES) для получения информации о структуре этого регистра.

LINAGE-COUNTER

BINARY-LONG SIGNED — экземпляр этого регистра существует для каждого выбранного файла, имеющего оператор LINAGE (см. File/Sort-Description). Если существует несколько файлов, описания которых содержат операторы LINAGE, любые явные ссылки на этот регистр потребуют квалификации (используя OF file-name). Значение этого регистра будет текущим логическим номером строки в теле страницы. Значение этого регистра изменить нельзя.

LINE-COUNTER

BINARY-LONG SIGNED — экземпляр этого регистра существует для каждого отчета, определенного в программе (через оператор RD (см. REPORT SECTION)). Если отчетов несколько, любые явные ссылки на этот регистр, не сделанные в разделе отчета, потребуют квалификации (OF report-name). Значение этого регистра будет текущим логическим номером строки на текущей странице. Значение этого регистра изменить нельзя.

NUMBER-OF-CALL-PARAMETERS

BINARY-LONG SIGNED — Этот регистр содержит количество аргументов, переданных подпрограмме — то же значение, что и возвращаемое встроенной системной подпрограммой C$NARG (см. C$NARG). Его значение будет равно нулю при обращении в основной программе. При обращении из пользовательской функции этот регистр возвращает значение один («1»), если функция имеет любое количество аргументов, и ноль, если аргументов нет.

PAGE-COUNTER

BINARY-LONG SIGNED — Экземпляр этого регистра существует для каждого отчета, имеющего оператор RD (см. REPORT SECTION). Если таких отчетов несколько, любые явные ссылки на этот регистр, не сделанные в разделе отчета, потребуют квалификации (OF report-name). Значение этого регистра будет текущим номером страницы отчета. Значение этого регистра изменить нельзя.

RETURN-CODE

BINARY-LONG SIGNED — Этот регистр предоставляет числовой элемент данных, в который подпрограмма может MOVE (см. MOVE) значение (которое затем будет доступно вызывающей программе) перед передачей управления обратно программе, которая ее вызвала, или в который главная программа может MOVE значение перед возвратом управления операционной системе. Многие встроенные подпрограммы возвращают значение, используя этот регистр. Эти значения по соглашению используются для обозначения успеха (обычно со значением 0) или неудачи (обычно с ненулевым значением) процесса, который пыталась выполнить программа. Этот регистр также может быть изменен подпрограммой в результате использования ею оператора RETURNING (см. PROCEDURE DIVISION RETURNING).

SORT-RETURN

BINARY-LONG SIGNED — Этот регистр используется для сообщения об успехе/неудачи оператора RELEASE (см. RELEASE) или RETURN (см. RETURN). Значение 0 сообщается об успехе. Значение 16 указывает на ошибку. Условие AT END (см. AT END + NOT AT END) на RETURN не считается ошибкой.

WHEN-COMPILED

PIC X(16) — Этот регистр содержит дату и время компиляции программы в формате «мм/дд/ггчч.мм.сс». Обратите внимание, что представлен только двухзначный год.

LENGTH OF Синтаксис

 LENGTH OF numeric-literal-1 | identifier-1
 ~~~~~~

Алфавитно-цифровые литералы и идентификаторы могут быть необязательно снабжены оператором LENGTH OF. Значение, созданное на этапе компиляции этим оператором, будет числом байтов в алфавитно-цифровом литерале или определенным размером (в байтах) идентификатора.

1. Зарезервированное слово OF необязательно и может быть опущено. Наличие или отсутствие этого слова не влияет на программу. Вот пример. Следующие два оператора GnuCOBOL показывают один и тот же результат (27):

   01  Demo-Identifier          PIC X(27).
   ...
       DISPLAY LENGTH OF "This is a LENGTH OF Example"
       DISPLAY LENGTH OF Demo-Identifier
   

2. Оператор LENGTH OF для литерала или ссылки на идентификатор обычно может использоваться везде, где может быть указан числовой литерал, за исключением следующих случаев:
   • В качестве части оператора FROM оператора WRITE (см. WRITE) или оператора RELEASE (см. RELEASE).
   • В качестве части оператора TIMES оператора PERFORM (см. PERFORM).

7.8. Операторы GnuCOBOL

7.8.1. ACCEPT

7.8.1.1. ACCEPT FROM CONSOLE