Sample Cobol Program With Copybook
Этой статьей я планирую начать целый цикл, который может быть со временем соберется в книгу. Информация про COBOL на русском представлена фактически статьей в Википедии и двумя советскими ГОСТами. Вы можете спросить меня зачем я начинаю “раскапывать труп” и прочие аналогичные вопросы. Ответ прост – а просто так.
Потому что я люблю COBOL, потому что он вовсе не мертвый, потому что он интересный, потому что это часть важной истории и он продолжит оставаться частью будущего. Потому что COBOL – это событие. И пусть его ругает Дейкстра и другие, это ничуть не умаляет его объемов и его влияния на ИТ в бизнес.
Чудак Syn: see sample II 1. Noun 1) коробка, ларец; ящик; контейнер. Chain broadcasting radio одновременная передача одной программы несколькими. COBOL COmmon Business Oriented Language noun язык. Писем или других документов copy-book maxims - прописные истины copy-book. Кобол (COBOL, COmmon Business Oriented Language) — один из старейших языков программирования (первая версия в 1959), предназначенный, в первую очередь, для разработки бизнес-приложений. В свежий стандарт языка 2002 года в Кобол добавлены средства объектно-ориентированного программирования и другие современные языковые конструкции. В этом году язык COBOL и его верные программисты отметили юбилей. End program hello-world. Вам стоит выучить COBOL. Начинающие программисты (а вполне возможно, что и их коллеги с опытом), должно быть, часто спрашивают себя, нужно ли им учить JAVA, или знания JavaScript, Python или Ruby будет вполне достаточно в современном мире.
- В начале 60-х гг. Язык COBOL (Common Business Oriented Language) широко использовался для обработки деловой информации на компьютерах (теперь это называют бизнес-приложениями). Архитектура языка COBOL неоднократно пересматривалась - его первая версия вышла в 1960 г., а более поздние версии - в 1974 и 1984гг. Разработка языка COBOL под руководством Грейс Хоппер была организована Министерством обороны США. Разработчики языка COBOL позаимствовали некоторые идеи из языка FLOWMATIC, созданного в компании.
- Chain broadcasting radio одновременная передача одной программы несколькими станциями. Cluster sampling выборочное обследование. COBOL COmmon Business Oriented Language noun язык. Копии писем или других документов copy-book maxims - прописные истины copy-book morality - ходячая.
Хватит введения, перейдем к самому изучаемому. COBOL – один из старейших языков программирования, расшифровывается его название как COmmon Business-Oriented Language, появившийся в 1959 году, благодаря “бабушке” Грейс Хоппер, и в основном применявшийся в различных финансовых и административных системах. Более подробно можно узнать его историю в ближайшем интернет-поисковике или (ну прям для совсем ленивых) — (рус. Яз.) или (eng.). Для того, чтобы приступить к практическому изучению языка нам необходимо две вещи – редактор текстовый (1 шт.) и компилятор (1 шт.) Если с редакторами все просто, тут подойдет даже Notepad и vi, emacs, nano и т.д.
Главное требование “классическое” это должен быть текстовые редактор, а не тексовый процессор (не помню что еще писали в достаточно старых книгах на эту тему;-) ). С компиляторами несколько сложнее, есть коммерческие, которые стоят безумных денег, есть студенческие версии коммерческих, есть версии старых компиляторов, есть даже несколько компиляторов с открытым кодом. Выбор остается за читателем, я лишь приведу список со своими комментариями.
OpenCOBOL (open-source, моя личная рекомендация, мультиплатформенный) TinyCobol (open-source, по сообщению автора 1 января 2011 года – прекратил развитие, да и до этого был не особо активен) Cobol for GCC (open-source, преальфа, последние обновления 2009г.) COBOL 12 (freeware, 16-битный компилятор под DOS / Windows) Cevela MX COBOL (freeware, Windows) Micro Focus Visual COBOL R2 (trial, windows) KOBOL (trial, linux, windows) Также есть богатый выбор древних компиляторов под DOS. Лично я использую OpenCOBOL, что в какой то мере единственный реальный вариант, на данный момент.
Теперь, когда вы все установили и готовы ринуться в бой – начнем. Естесственно, с Hello World. Наберем в редакторе следующий код: 000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. 000300. Это пустая строчка. 000400 ENVIRONMENT DIVISION. 000500 DATA DIVISION. 000600 PROCEDURE DIVISION.
000700 BEGIN. 000800 DISPLAY “Hello World!”. 000900 STOP RUN. Благополучно сохраняем это в файл с расширением.cob (или.cbl) – это самые популярные, исторические и логические расширения. Далее в терминале или командной строке набираем cobc -x и получаем исполняемый файл. Запускаем его и оооооп!
Теперь давайте разберем этот код. Начнем с внешнего вида. Это “классический” код.
Со всеми требованиями, что были и 50 лет назад. Почему его использую я: 1.
Код в таком формате подойдет любому компилятору. Это “олдскулл”, “крутатенюшка” и просто мне нравится.
Всегда лучше начинаться со стандартных требований, а потом уже смотреть на возможности компилятора и собственный вкус. Строка COBOL программы состоит из 80 символов. Символ 1-6: номер строки (необязателен) Символ 7: “индикатор”.
— строка комментарий, — — строка “продолжение”, D- строка debug. Символ 8 – 11: Зона А. В ней должны начинаться DIVISION'ы, SECTION'ы, имена и заголовки параграфов, а также индикаторы и номера “уровней” (это все рассмотрим позже). Символ 12-72: Зона Б. Собственно здесь должны начинаться сами по себе выражения “кода”. Символ 73-80: Зона комментария.
Не обрабатывается компилятором и полностью предоставлена програмисту. С горизонтальной плоскостью разобрались, перейдем к вертикали. Каждая COBOL программа содержит 4 раздела – DIVISION, идут они в строгом порядке и содержат определенные элементы.
DIVISION ПЕРВЫЙ. IDENTIFICATION DIVISION. — описывает программу и содержит такие параграфы, как PROGRAM-ID. Содержимое этих параграфов представляет собой обычный комментарий и в принципе записать туда можно хоть “2011 год от Рождества Христова”. DIVISION ВТОРОЙ.
ENVIRONMENT DIVISION. — Описывает ту среду, как и следует из названия, в которой пишется программа. Состоит из двух секций. CONFIGURATION SECTION. Которая включает в себя параграфы SOURCE-COMPUTER. И OBJECT-COMPUTER.
И SPECIAL-NAMES. Первые два несут сугубо комментирующую функцию и описывают на каком компьютере, для какого компьютера программа написана.
Представляет собой достаточно глубинную штуку, которая будет рассмотрена позже (или можете поискать пока на эту тему сами информацию). INPUT-OUTPUT SECTION. Описывает, как следует из названия ввод-вывод, очень нужно, очень важно и очень скоро мы с этим уже встретимся. Включает в себя параграфы FILE-CONTROL. И I-O-CONTROL. DIVISION ТРЕТИЙ. DATA DIVISION.
— Содержит описания всех переменных. Включает в себя 4 секции: FILE SECTION.
— описывает структуру файлов. WORKING-STORAGE SECTION. — описывает переменные. LOCAL-STORAGE SECTION. — описывает переменные, которые создаются и инициализируются каждый раз при выполнении (поподробней в следующие разы). LINKAGE SECTION.
— описывает данные, которые мы получаем при вызове других программ. DIVISION ЧЕТВЕРТЫЙ.
PROCEDURE DIVISION. — Содержит “саму” программу, которая делится на пользовательские секции, параграфы, которые и содержат выражения. В нашем случае BEGIN. — пользовательский параграф. DISPLAY “Hello World!”.
Собственно сами выражения. И напоследок. Каждое выражение должно заканчиваться “точкой”. Спасибо за внимание. Жду вопросов в комментариях, которые обязательно будут отвечены и включены либо в следующие, либо в правку этой статьи. Воронцов “nerfur” Вячеслав.
Метки:. Добавить метки Пометьте публикацию своими метками Метки необходимо разделять запятой. Например: php, javascript, андронный коллайдер, задача трех тел.
A COBOL структура программы состоит из отделов, как показано на рисунке: Краткое введение этих отделов приводится ниже:. Разделы логического подразделения логика программы. Раздел - это коллекция пунктах. пунктах, разделение секции или отдела. Она либо пользователем или заранее заданным именем, а затем период, и состоит из ноль или более приговоры/записей. Приговоры сочетание одно или несколько заявлений.
Приговоры появляются только в рамках процедуры отдела. Приговор должен положить конец с периода. Заявления имеют смысл COBOL заявление о том, что выполняет некоторые обработки.
Символов являются самыми низкими в иерархии и не может быть разборными. Вы можете совместно связаны с вышеупомянутым кругом с COBOL программы в следующем примере: PROCEDURE DIVISION. A0000-FIRST-PARA SECTION. ACCEPT WS-ID - Statement-1 - MOVE '10' TO WS-ID - Statement-2 - Sentence - 1 DISPLAY WS-ID - Statement-3 -. Отделы COBOL программа состоит из четырех отделов.
Отдел по вопросам идентификации Он является первым и единственным обязательным разделение каждого COBOL программы. Программисту и компилятор используют этот отдел для идентификации программы. В этот отдел, программы-ID - это единственный обязательный пункт. Программы-ID задает имя программы, может состоять из 1-30 символов. Попробуйте следующий пример с помощью попробуйте вариант через интернет.
IDENTIFICATION DIVISION. PROCEDURE DIVISION. DISPLAY 'Welcome to Tutorialspoint'. Ниже находится в JCL для выполнения выше COBOL программы.
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO При компиляции и выполнения этой программы, она производит следующие результаты: Welcome to Tutorialspoint Отдел по окружающей среде Отдел по окружающей среде используется, чтобы указать входных и выходных файлов для программы. Он состоит из двух разделов:. Конфигурации раздел содержит информацию о системе, в которой программа написана и казнены. Он состоит из двух пунктов: Источник: система, используемая для компиляции программы.
Объект: ЭБУ системы используется для выполнения этой программы. Ввод/вывод раздел содержит информацию о файлы, используемые в программе. Он состоит из двух пунктов: Файл управления: предоставляет информацию о внешних данных используется в программе. I-O: предоставляет информацию и файлы, используемые в программе. ENVIRONMENT DIVISION.
CONFIGURATION SECTION. INPUT-OUTPUT SECTION. SELECT FILEN ASSIGN TO DDNAME ORGANIZATION IS SEQUENTIAL. Отдел обработки данных Отдел обработки данных используется для определения переменных, используемых в программе. Он состоит из четырех разделов:. Раздел Файл используется, чтобы определить структуру записей в файле.
Working-Storage раздел используется, чтобы объявить временных переменных и файловой структуры, которые будут использоваться в программе. Local-Storage раздел аналогичен Working-Storage раздел. Единственное отличие заключается в том, что переменные будут выделены и инициализирован каждый раз программы a начинает выполнение кода. Связь раздел используется для описания данных имен, которые были получены из внешней программы. Программа COBOL IDENTIFICATION DIVISION. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION.
SELECT FILEN ASSIGN TO INPUT. ORGANIZATION IS SEQUENTIAL.
ACCESS IS SEQUENTIAL. DATA DIVISION. FILE SECTION. FD FILEN 01 NAME PIC A(25). WORKING-STORAGE SECTION. 01 WS-STUDENT PIC A(30).
01 WS-ID PIC 9(5). LOCAL-STORAGE SECTION. 01 LS-CLASS PIC 9(3). LINKAGE SECTION. 01 LS-ID PIC 9(5). PROCEDURE DIVISION.
DISPLAY 'Executing COBOL program using JCL'. В JCL для выполнения выше COBOL является следующим: //SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO //INPUT DD DSN=ABC.EFG.XYZ,DISP=SHR При компиляции и выполнения этой программы, она производит следующие результаты: Executing COBOL program using JCL Отдел по вопросам процедуры Отдел по процедура используется для включения логика программы. В его состав входят исполняемый файл с заявлениями выступили с помощью переменных, определенных в данных отдела. В этот отдел, и имена разделов определяются пользователем. Должен быть по крайней мере одно заявление в процедуре. Последнее заявление на прекращение исполнения в этот отдел является либо останов, используемый в вызывающей программы или выйти из программы, которая используется в 'программах.
IDENTIFICATION DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-NAME PIC A(30).
Смотреть онлайн (все серии и сезоны [подряд и без остановки]). Альтернативное название: Время приключений с Финном и Джейком, Время авантюр, Фин и Джейк. Перевод: Полное дублирование (на русском языке). 
Смотреть онлайн мультфильм Время приключений / Фин и Джейк 1-9 сезон все серии подряд на мобильном телефоне и планшете Android, iPhone, iPad.
01 WS-ID PIC 9(5) VALUE '12345'. PROCEDURE DIVISION. DISPLAY 'Hello World'. MOVE 'TutorialsPoint' TO WS-NAME. DISPLAY 'My name is: 'WS-NAME. DISPLAY 'My ID is: 'WS-ID.
JCL для выполнения выше COBOL программы: //SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO При компиляции и выполнения этой программы, она производит следующие результаты: Hello World My name is: TutorialsPoint My ID is: 12345.