Перейти до вмісту

COBOL

Матеріал з K2 ERP Wiki
 

<syntaxhighlight lang="cobol">

<div style="background:#fff7ed; border-left:6px solid #fb923c; padding:12px; margin:12px 0;">
01 WS-NAME PIC X(30).;=== Умова ===
У страхуванні COBOL застосовується для:
</div>
Приклад:

COBOL часто функціонує з SQL через embedded SQL, особливо з DB2.;== Змінні й рівні даних ==

01 WS-QUANTITY PIC 9(5).;<syntaxhighlight lang="cobol">

'''Практична роль:''' PERFORM — ключовий механізм організації повторного використання логіки в класичному COBOL.;== Rewriting ==

<div style="background:#ecfdf5; border-left:6px solid #10b981; padding:12px; margin:12px 0;">

== MOVE ==
READ CUSTOMER-FILE
== Для чого застосовується COBOL ==
<syntaxhighlight lang="cobol">
COBOL часто містить складну бізнес-логіку, яка накопичувалася десятиліттями.;== COBOL і банківські системи ==

* rehosting;
* refactoring;
* rewriting;
* wrapping через API;
* data migration;
* service extraction;
* batch modernization;
* UI modernization;
* database modernization;
* mainframe integration;
* cloud migration;
* strangler pattern.; 01 WS-COUNT PIC 9(5).;</div>

END-EXEC.;== Цикли ==

* обробка банківських транзакцій;
* розрахунок відсотків;
* нарахування зарплат;
* страхові виплати;
* податкові розрахунки;
* формування виписок;
* генерація звітів;
* обробка великих файлів;
* nightly batch jobs;
* обмін даними між системами;
* перевірка бізнес-правил;
* обліковий облік рахунків;
* архівна обробка;
* інтеграційні функціональні можливості з мейнфрейм-сервісами.; !;</div>
== Modernization ==
IDENTIFICATION DIVISION.; Приклад концепції:

IDENTIFICATION DIVISION.; END-EVALUATE.; COBOL — одна з найстаріших мов програмування, яка досі застосовують, коли потрібно у виробничих системах.; INTO :WS-CUSTOMER-NAME

01 WS-END-OF-FILE PIC X VALUE "N".; CICS надає можливість COBOL-програмам:

<syntaxhighlight lang="cobol">
Приклади:
== DATA DIVISION ==

 DISPLAY "Unknown"

'''Практична роль:''' API wrapping часто є собою проміжним кроком між повним legacy і повною модернізацією.; 01 CUSTOMER-RECORD.; '''Rewriting''' — повне переписування COBOL-системи іншою мовою або на новій платформі.; COBOL часто застосовується для формування звітів.;<syntaxhighlight lang="cobol">

 05 CUSTOMER-BALANCE PIC 9(7)V99.; * структури записів;
* спільні поля;
* константи;
* SQL declarations;
* CICS definitions;
* стандартні бізнес-структури;
* повторювані фрагменти коду.;<div style="background:#eafaf1; border-left:6px solid #2ecc71; padding:12px; margin:12px 0;">

</div>
<div style="background:#eafaf1; border-left:6px solid #2ecc71; padding:12px; margin:12px 0;">
</div>
Кожна division має свою роль.;

|- | Основна ніша | Бізнес-обробка, мейнфрейми, legacy | автоматизація процесів, web, data science, AI, scripting |- | Стиль | Формальний, процедурний | Гнучкий, високорівневий |- | інформаційні дані | Фіксовані записи, файли, DB2 | Різні формати, APIs, data libraries |- | Нові проєкти | Рідше | Дуже часто |- | Legacy-підтримка | Критично важлива | Часто застосовується для інтеграцій і аналізу |}

Практична роль: IDENTIFICATION DIVISION сприяє зрозуміти, що це за програма й для чого вона призначена.; Головна ідея: у COBOL інформаційні дані описуються дуже явно: довжина, тип, структура й формат мають велике значення.; 05 CUSTOMER-BALANCE PIC 9(7)V99.; 01 CUSTOMER-RECORD.;

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

IMS або Information Management System — історично важлива платформа керування даними й транзакціями в mainframe-середовищі.; CUSTOMER-REPORT.;

END-IF.;== Див.; додатково ==

Приклад: </syntaxhighlight> 

</div>
EVALUATE WS-STATUS
END-IF.; * IBM CICS documentation.;<syntaxhighlight lang="cobol">

Типові банківські задачі:

'''істотно:''' COBOL не став історією лише через свій вік.;<div style="background:#fdecea; border-left:6px solid #e74c3c; padding:12px; margin:12px 0;">
== COBOL і cloud ==
'''Практична порада:''' COBOL варто вивчати, якщо потрібно працювати з мейнфреймами, банківськими системами або legacy enterprise-інфраструктурою.; Приклад file status:
PROGRAM-ID.;<div style="background:#e8f8f5; border-left:6px solid #16a085; padding:12px; margin:12px 0;">
 DISPLAY "ACTIVE"

WORKING-STORAGE SECTION.;<div style="background:#eef2ff; border-left:6px solid #4f46e5; padding:12px; margin:12px 0;">

 DISPLAY "CLOSED"
<syntaxhighlight lang="cobol">
MAIN-PARAGRAPH.; Помилка в кількості цифр або десяткових знаків має змогу змінити результат.;
  • `OPEN`;
  • `READ`;
  • `WRITE`;
  • `REWRITE`;
  • `DELETE`;
  • `CLOSE`.; OPEN INPUT CUSTOMER-FILE.; * IBM COBOL documentation.; Критично: переписування COBOL без повного розуміння бізнес-правил має змогу створити нову систему, яка технічно сучасна, але бізнесово неправильна.; істотно: для нових систем COBOL рідко є собою першим вибором, але для існуючих критичних систем він має змогу залишатися найменш ризиковим шляхом підтримки.; Багато систем на COBOL продовжують працювати, бо вони стабільні, критично важливі й дорогі для повного переписування.; застосовується для:

Alphanumeric data

  • читає вхідні файли;
  • перевіряє записи;
  • виконує розрахунки;
  • оновлює інформаційні дані;
  • створює вихідні файли;
  • формує звіти;
  • записує логи;
  • завершується зі status code.;=== Цикл ===

Тут можуть описуватися: Підходи:

ELSE

Практична роль: модернізація COBOL має бути поступовою, бо повне переписування критичних систем часто є собою ризиковим і дорогим.; IDENTIFICATION DIVISION містить базову інформацію про програму.;

Практична роль: debugging COBOL часто означає аналіз не лише коду, а й даних, job steps, файлів і середовища виконання.; COBOL підтримує роботу цикли через `PERFORM`.;</syntaxhighlight>

COBOL має суттєві обмеження.; * IBM z/OS documentation.;
FROM CUSTOMERS
  • рахунки;
  • платежі;
  • виписки;
  • карткові системи;
  • interest calculation;
  • loans;
  • deposits;
  • clearing;
  • settlement;
  • batch reconciliation;
  • regulatory reports.;
  • податкові системи;
  • пенсійні системи;
  • соціальні виплати;
  • реєстри;
  • payroll для держструктур;
  • статистичні системи;
  • batch-обробка заявок;
  • історичні архіви.; INPUT-OUTPUT SECTION.; Практична роль: LINKAGE SECTION важлива для modular COBOL-програм і взаємодії між компонентами.; Але для підтримки й модернізації існуючих критичних систем він залишається важливою мовою.; COBOL історично дуже сильний у роботі з файлами.; Це надає можливість:
  • обробляти online transactions;
  • працювати з екранами;
  • взаємодіяти з користувачами;
  • керувати транзакційністю;
  • інтегруватися з DB2 і VSAM;
  • обробляти запити в реальному часі.; PROCESS-CUSTOMER.;
JCL або Job Control Language застосовується в mainframe-середовищах для опису запуску batch jobs.; Головна ніша COBOL: читання, обробка й запис великих бізнес-файлів є собою класичним сценарієм COBOL.;

01 WS-COUNT PIC 9(5) VALUE 0.; 05 CUSTOMER-ID PIC 9(6).;

`PERFORM` виконує paragraph або section.;

У COBOL логіку можна структурувати через sections і paragraphs.;== PERFORM ==

  • яку програму запускати;
  • які файли використовувати;
  • параметри job;
  • ресурси;
  • output destinations;
  • steps;
  • умови завершення.; * заголовки;
  • рядки даних;
  • підсумки;
  • групування;
  • сторінки;
  • контрольні суми;
  • фінансові підсумки;
  • службові рядки;
  • форматування полів.; * вибірку даних;
  • актуалізація таблиць;
  • транзакції;
  • joins;
  • агрегації;
  • доступ до реляційної бази.; PROCESS-DATA.; Часто саме legacy-система виконує найважливіші операції бізнесу.; Практична роль: COBOL часто виконує не видиму користувачу, але критично важливу бізнес-логіку всередині великих організацій.; !; Приклад:

Потрібно контролювати:

END-EXEC.; Поширені рівні:

</syntaxhighlight>

  • інтегрувати стару систему з web/mobile;
  • поступово відкривати функції;
  • зменшити ризик повної міграції;
  • створити шар адаптації;
  • модернізувати frontend без зміни ядра;
  • поступово виносити частини логіки.;== Copybooks ==

У цьому прикладі: Batch processing — пакетна обробка даних, коли програма обробляє великий обсяг записів без інтерактивної участі користувача.; Приклад концепції CICS-команди:

істотно: для COBOL на мейнфреймі часто потрібно розуміти не лише код програми, а й JCL, datasets і середовище запуску.;

переважні аспекти COBOL

Практична роль: генерація формалізованих звітів — одна з класичних задач COBOL.;=== Обробка статусу ===

COBOL з’явився наприкінці 1950-х років як мова для бізнес-обчислень.; LINKAGE SECTION.; COPY CUSTOMER-RECORD.;

PROCEDURE DIVISION.; COBOL-системи потребують сучасного контролю доступу, аудиту й моніторингу.; * перевірка file status;

  • перевірка SQLCODE;
  • condition names;
  • error paragraphs;
  • return codes;
  • logging;
  • abend handling;
  • контрольні звіти;
  • recovery procedures.; DISPLAY "UNKNOWN"

Приклад: FILE SECTION.; DISPLAY "Printing report".; DISPLAY "ACCOUNT HAS BALANCE"

  • `IDENTIFICATION DIVISION` описує програму;
  • `PROGRAM-ID` задає її назву;
  • `PROCEDURE DIVISION` містить виконувані інструкції;
  • `DISPLAY` виводить текст;
  • `STOP RUN` завершує програму.;</syntaxhighlight>
DISPLAY "NO BALANCE"

!; 01 LK-CUSTOMER-ID PIC 9(6).; 05 CUSTOMER-BALANCE PIC 9(7)V99.; Обробка помилок у COBOL залежить від середовища, файлів, баз даних і стандартів проєкту.; COBOL часто функціонує з дуже чутливими даними.; Критично: старий код не означає автономно безпечний код.;

* назву програми;
* автора;
* дату;
* короткий характеристика;
* службову інформацію.;== PIC clause ==
PROGRAM-ID.;</div>
 DISPLAY "Processing started".; Приклад:
 DISPLAY "ITEM: " WS-I
`COMPUTE` застосовується для арифметичних обчислень.; центральний виклик COBOL — не лише синтаксис, а розуміння бізнес-логіки, даних, jobs, copybooks, мейнфрейм-середовища й залежностей, які накопичувалися роками.; Java
Приклади:

Практична роль: MOVE — одна з найчастіших команд у COBOL-програмах.;</syntaxhighlight> COBOL доречно використовувати, коли потрібно:

істотно: у фінансових розрахунках формат numeric-полів критично важливий.;== EVALUATE == Mainframe — велика обчислювальна платформа для критичних enterprise-систем.;== Обмеження COBOL ==

Умови в COBOL пишуться через `IF`.;</syntaxhighlight>

FILE SECTION

CICS або Customer Information Control System — transaction processing system, яка часто застосовується з COBOL.; Numeric-дані описуються через `PIC 9`.; Зазвичай тут вказують:

Структура COBOL-програми

DISPLAY "TOTAL: " WS-TOTAL.;

'''Практична роль:''' alphanumeric-поля часто використовуються для імен, кодів, описів, адрес і текстових записів.;</div>
'''PIC''' або '''PICTURE clause''' описує формат поля.;

DISPLAY "Reading customers".; Приклад:

COBOL і SQL

  • документувати бізнес-правила;
  • не змінювати legacy-код без regression tests;
  • використовувати зрозумілі назви;
  • контролювати copybooks;
  • перевіряти file status;
  • перевіряти SQLCODE;
  • вести logs;
  • зберігати JCL разом із документацією процесу;
  • розуміти input/output файли;
  • описувати batch dependencies;
  • робити impact analysis перед змінами;
  • мати тестові інформаційні дані;
  • перевіряти граничні випадки;
  • планувати rollback;
  • не переписувати систему без розуміння її поведінки.; ENVIRONMENT DIVISION.; PERFORM READ-CUSTOMERS.;== JCL ==
  • втрата прихованої бізнес-логіки;
  • невідповідність старій поведінці;
  • довгий термін;
  • висока вартість;
  • складна міграція даних;
  • regression defects.; * Документація конкретного підприємства щодо copybooks, jobs, datasets і бізнес-правил.; Перевага: COBOL добре підходить для стабільної, формалізованої й довгострокової обробки бізнес-даних.; Реальна проблема часто не в мові, а в комплексі: legacy-архітектура, інформаційні дані, залежності, процеси й брак документації.; MOVE "Alice" TO WS-CUSTOMER-NAME.; IF WS-BALANCE > 0
DISPLAY "CUSTOMER REPORT".;</div>

Приклад використання:

EXEC CICS

* не розуміти divisions;
* ігнорувати PIC-формати;
* неправильно трактувати implied decimal point;
* не перевіряти file status;
* плутати робочі змінні й file records;
* не розуміти JCL;
* змінювати copybook без impact analysis;
* не враховувати batch order;
* ігнорувати SQLCODE;
* не перевіряти граничні суми;
* не документувати бізнес-правила;
* думати, що можна оперативно переписати систему без аналізу;
* недооцінювати залежності між програмами.; PROGRAM-ID.; COBOL не є собою типовим вибором для нових web, mobile або AI-проєктів.; * бізнес-процедури;
* batch flow;
* file processing;
* форматування;
* перевірки;
* інтеграцію з mainframe job;
* звіти.; Типові задачі COBOL:
</div>
{| class="wikitable"
<syntaxhighlight lang="cobol">
<div style="background:#fff4e5; border-left:6px solid #f39c12; padding:12px; margin:12px 0;">
<syntaxhighlight lang="cobol">
<div style="background:#e7f3ff; border-left:6px solid #2b7cff; padding:12px; margin:12px 0;">

<syntaxhighlight lang="cobol">
== Numeric data ==

DISPLAY "Blocked"

Помилка: оцінювати COBOL лише як “стару мову”.; Суть прикладу: COBOL-програма має формальну структуру з divisions, а виконувана логіка розміщується в PROCEDURE DIVISION.;== Business logic ==

</syntaxhighlight>

COBOL історично пов’язаний із мейнфреймами, enterprise-інфраструктурою, великими організаціями й системами, які працюють десятиліттями.;== Testing ==

Історична роль: IMS і COBOL часто зустрічаються у старих, але критично важливих enterprise-системах.; WHEN "A"

Практична роль: страхові системи часто мають довгу історію правил, і COBOL-код має змогу містити десятиліття накопиченої логіки.; Але ризики великі:

COMPUTE

  • банківські рахунки;
  • персональні інформаційні дані;
  • податкові записи;
  • страхові поліси;
  • медичні або соціальні інформаційні дані;
  • зарплати;
  • пенсійні записи;
  • історичні архіви;
  • фінансові транзакції;
  • customer master data.;

</syntaxhighlight> Рівень `01` описує основну структуру, а рівень `05` — поля всередині неї.; PERFORM UNTIL WS-END-OF-FILE = "Y"

  • лічильників;
  • прапорців;
  • проміжних сум;
  • робочих змінних;
  • форматованих полів;
  • службових значень.;</syntaxhighlight>

</syntaxhighlight> 

WHEN OTHER
ENVIRONMENT DIVISION описує середовище виконання, файли й зв’язок програми з зовнішніми ресурсами.;

Хороші практики COBOL

DATA DIVISION описує всі інформаційні дані, з якими функціонує програма.; * Матеріали щодо batch processing, legacy modernization, mainframe development і COBOL migration.;=== Простий розрахунок суми ===

//JOBNAME JOB ...;</syntaxhighlight>

  • полісів;
  • claims;
  • premium calculation;
  • customer records;
  • payout processing;
  • risk categories;
  • legacy policy systems;
  • звітності;
  • batch-реконсиляції;
  • історичних даних.;

Практична роль: EVALUATE зручний для обробки статусів, кодів операцій і багатьох варіантів бізнес-логіки.; K2-DOCUMENTATION.;== IF == істотно: у file processing дуже часто застосовується цикл читання записів до кінця файлу.; END-EVALUATE.;== Rehosting == 

JCL має змогу визначати:

!; Призначення

ELSE
'''Головне правило:''' хороший COBOL-проєкт — це не лише код, а й зрозумілі інформаційні дані, jobs, copybooks, бізнес-правила, тести й документація.;== COBOL і державні системи ==

'''Критично:''' у batch і фінансових системах помилки потрібно не лише показувати, а й коректно фіксувати, зупиняти або відновлювати бізнес-процес.; DATA DIVISION.;<syntaxhighlight lang="cobol">
'''Практична роль:''' COBOL і mainframe часто існують разом у системах, які мають працювати стабільно багато років.; //INPUT DD DSN=INPUT.FILE,DISP=SHR

STOP RUN.; Приклад:
  • `IDENTIFICATION DIVISION`;
  • `ENVIRONMENT DIVISION`;
  • `DATA DIVISION`;
  • `PROCEDURE DIVISION`.; Правило: під час модернізації COBOL потрібно захищати не лише код, а й історичні інформаційні дані, test datasets, файли обміну й logs.; Практична роль: VSAM часто є собою джерелом або сховищем записів, які обробляє COBOL-програма.; Практична роль: нічні batch-процеси — класичне сфера застосування COBOL у банках, страхуванні й державних системах.; MOVE 100 TO WS-COUNT.; Її синтаксис наближений до англійської мови, а структура програми орієнтована на інформаційні дані, записи, файли й бізнес-процедури.; Мета:
WHERE CUSTOMER_ID = :WS-CUSTOMER-ID

Приклад концепції:

SELECT CUSTOMER-FILE ASSIGN TO "customers.dat".; Попри вік мови, COBOL досі зустрічається в критичних бізнес-системах.;

Висновок

01 WS-SIGNED PIC S9(5).; MAIN-PROCEDURE.; END-PERFORM.; |- | Основна історична ніша | Мейнфрейми, batch, фінансові системи | Enterprise backend, web services, middleware |- | Стиль | Процедурний, data/file oriented | Об’єктно-орієнтований, JVM-based |- | Legacy | Дуже велика база | додатково велика enterprise-база |- | Нові проєкти | Рідше | Частіше |- | інтеграційні функціональні можливості | Часто через mainframe, CICS, DB2, files | APIs, services, JVM ecosystem |}

!; END-PERFORM.; * VSAM documentation.; Увага: перенесення COBOL у cloud саме по собі не вирішує проблеми архітектури, даних, бізнес-правил і залежностей.;== Legacy systems ==

Перша програма на COBOL

  • зменшити залежність від старої інфраструктури;
  • зберегти бізнес-логіку;
  • знизити операційні витрати;
  • спростити інтеграцію;
  • поступово перейти до нової архітектури.; 05 CUSTOMER-NAME PIC X(30).; WORKING-STORAGE SECTION.; AT END MOVE "Y" TO WS-END-OF-FILE

VSAM або Virtual Storage Access Method — файлова платформа й метод доступу до даних у mainframe-середовищі.; * бізнес-правила;

  • batch jobs;
  • input/output файли;
  • граничні суми;
  • дати;
  • статуси;
  • SQL-запити;
  • CICS-транзакції;
  • file status;
  • restart scenarios;
  • regression cases;
  • migration scenarios.; * Mainframe JCL documentation.; Приклад ідеї:
<syntaxhighlight lang="cobol">
</div>
 DISPLAY "Positive balance"

<syntaxhighlight lang="cobol">

Приклад:

Reports

`MOVE` копіює значення в іншу змінну.;

FILE SECTION описує структуру файлів і записів.; PERFORM READ-RECORD Приклад:

API wrapping — підхід, коли legacy COBOL-система не переписується одразу, а обгортається сучасним API.;
Суть PIC: COBOL дуже явно описує формат даних, що істотно для фінансових систем, файлів фіксованої довжини й звітів.; 05 CUSTOMER-ID PIC 9(6).; COMPUTE WS-TOTAL = WS-PRICE * WS-QUANTITY.;
додатково існують команди:

'''істотно:''' для COBOL-модернізації regression testing є собою критичним, бо потрібно довести, що нова платформа повторює правильну поведінку старої.; 05 CUSTOMER-NAME PIC X(30).;
  • старий синтаксис;
  • менше нових розробників;
  • складна legacy-інфраструктура;
  • залежність від mainframe;
  • складність modern DevOps;
  • слабша придатність для web/mobile;
  • велика кількість старого коду;
  • недостатня документація;
  • складні batch dependencies;
  • важка міграція;
  • дорогі спеціалісти;
  • ризик втрати знань;
  • складність інтеграції з сучасними API без додаткових шарів.; |-

| IDENTIFICATION DIVISION | Ідентифікація програми |- | ENVIRONMENT DIVISION | характеристика середовища, файлів і конфігурації |- | DATA DIVISION | характеристика даних, змінних, записів і файлів |- | PROCEDURE DIVISION | Виконувана логіка програми |}

VSAM

Типовий batch job:

Rehosting означає перенесення COBOL-застосунку на іншу платформу без повного переписування бізнес-логіки.;

WORKING-STORAGE SECTION

</syntaxhighlight>

  • rehosting у cloud-friendly середовище;
  • інтеграційні функціональні можливості через API;
  • перенесення batch jobs;
  • data replication;
  • hybrid architecture;
  • поступова декомпозиція;
  • використання cloud для аналітики навколо legacy-даних.; SELECT CUSTOMER_NAME

Тестування COBOL-систем має змогу бути складним через legacy-інфраструктуру, великі інформаційні дані й залежність від мейнфрейм-середовища.; COBOL-системи можуть бути пов’язані з cloud modernization, але це складний бізнес-процес.; Висновок: Java часто застосовується для сучасних enterprise-сервісів, а COBOL — для стабільного legacy-ядра, яке виконує критичну бізнес-логіку.; EVALUATE WS-STATUS 

== Sections і paragraphs ==

* присвоєння значень;
* підготовки записів;
* копіювання полів;
* ініціалізації;
* перенесення даних між структурами.; DISPLAY WS-I
== CICS ==
== Приклади задач на COBOL ==

</div>

'''Практична роль:''' COBOL часто стоїть за великими фінансовими процесами, які мають працювати надійно й передбачувано.; Можливі проблеми:

'''Основна ідея:''' COBOL створювався для зрозумілого опису бізнес-логіки, обробки записів, файлів, фінансових даних і великих пакетних процесів.; Приклад:

</div>
<div style="background:#fff4e5; border-left:6px solid #f39c12; padding:12px; margin:12px 0;">
`MOVE` часто застосовується для:

PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 10

'''Головна перевага:''' COBOL дуже добре виконує свою історичну задачу — стабільну обробку великих обсягів бізнес-даних.; COBOL і Python мають дуже різні ролі.; Звіти можуть включати:

* `01` — ключовий запис або група;
* `05`, `10`, `15` — вкладені поля;
* `77` — окремий елемент;
* `88` — condition name.; 01 WS-PRICE PIC 9(5)V99 VALUE 100.00.;

COBOL використовує рівні даних.; Таке поле має змогу містити текст, пробіли, символи й інші алфавітно-цифрові значення.; Division

<syntaxhighlight lang="cobol">

'''Legacy system''' — це стара платформа, яка продовжує виконувати важливу бізнес-функцію.;== COBOL і Java ==

01 WS-CUSTOMER-NAME PIC X(30).;== API wrapping ==
'''Увага:''' державні COBOL-системи можуть бути критично важливими, але складними для модернізації через масштаб, регуляції й залежність від legacy-даних.; !; '''Практична роль:''' рівні даних дозволяють описувати складні записи з полями, подібно до структур у інших мовах.; PERFORM PROCESS-DATA.;== Тематичні мітки ==
== Batch processing ==
 PERFORM PRINT-REPORT.; 01 WS-AMOUNT PIC 9(7)V99.; Його метою було створити більш читабельну, стандартизовану й придатну для бізнесу мову, яку можна використовувати на різних комп’ютерних системах.; PROCEDURE DIVISION.; !; COBOL часто функціонує на мейнфреймах, особливо в середовищах на кшталт IBM z/OS.; Критерій

* нових web-застосунків;
* mobile development;
* AI/ML;
* frontend;
* cloud-native microservices з нуля;
* стартапів без legacy-вимог;
* API-first розробки без mainframe-залежності;
* проєктів, де команда не має COBOL-досвіду;
* систем, які потребують швидкої інтеграції з сучасними бібліотеками.;

05 CUSTOMER-STATUS PIC X.;== Files ==

Приклад:

Рекомендовано:

Практичний підхід: SQL і COBOL часто працюють разом: база зберігає інформаційні дані, а COBOL виконує бізнес-обробку.;
</div>

* `X` — символ;
* `9` — цифра;
* `V` — implied decimal point;
* `S` — знак числа.; DISPLAY "Processing customer".; 01 WS-CUSTOMER-NAME PIC X(30).;</div>

PROCEDURE DIVISION.;<syntaxhighlight lang="cobol">

PERFORM PROCESS-CUSTOMER.; //OUTPUT DD DSN=OUTPUT.FILE,DISP=NEW

COBOL і Java часто співіснують в enterprise-середовищах.; WHEN "B"
== Типові помилки початківців ==
Приклад:
<div style="background:#fff7ed; border-left:6px solid #fb923c; padding:12px; margin:12px 0;">
Приклад:
Приклад:

'''Практична роль:''' PROCEDURE DIVISION — місце, де описується поведінка програми й бізнес-логіка.; DISPLAY "Processing finished".; '''Модернізація COBOL''' — це бізнес-процес актуалізація або інтеграції старих систем із сучасною інфраструктурою.;== Коли варто використовувати COBOL ==

`V` означає implied decimal point, тобто десяткова крапка логічно існує, але не зберігається як символ.; Тут описуються:
'''Практична роль:''' COBOL має арифметику, орієнтовану на бізнес-розрахунки, суми, залишки, баланси й фінансові показники.; Критерій
== Debugging ==

Позначення:

<div style="background:#e7f3ff; border-left:6px solid #2b7cff; padding:12px; margin:12px 0;">

</div>

* modern architecture;
* web APIs;
* cloud-native deployment;
* нові бази даних;
* сучасний UI;
* легше наймати розробників;
* зменшити технічний борг.; Простий приклад:

Приклад:

'''LINKAGE SECTION''' застосовується для даних, які передаються програмі ззовні, як ілюстрація із іншої програми або через виклик підпрограми.; WHEN "C"

</div>

Copybooks часто містять:
IDENTIFICATION DIVISION.;<div style="background:#eafaf1; border-left:6px solid #2ecc71; padding:12px; margin:12px 0;">
<div style="background:#e7f3ff; border-left:6px solid #2b7cff; padding:12px; margin:12px 0;">
== історичний розвиток COBOL ==

01 WS-TOTAL PIC 9(7)V99.;</div>
</div>
`EVALUATE` схожий на `switch` або `case` в інших мовах.; * стабільність;
* читабельний бізнес-орієнтований синтаксис;
* сильна робота з файлами;
* добре підходить для batch processing;
* точний характеристика записів і форматів;
* довготривала супровід;
* велика legacy-база;
* придатність для фінансових систем;
* сумісність із mainframe-інфраструктурою;
* перевірені production-системи;
* надійність у критичних процесах.; {| class="wikitable"
</div>
== COBOL і Python ==
завдяки наявності '''Практична роль:''' чіткий поділ програми користувачі можуть відокремлювати характеристика даних, середовища й бізнес-логіки.; Класична COBOL-програма поділяється на divisions:

<div style="background:#eafaf1; border-left:6px solid #2ecc71; padding:12px; margin:12px 0;">
'''Практична роль:''' CICS робить COBOL частиною online transaction processing, а не лише batch-обробки.; SQL відповідає за:
//STEP01 EXEC PGM=MYPROG
 STOP RUN.;== LINKAGE SECTION ==

COBOL широко використовувався й продовжує зустрічатися в банківській сфері.;

WORKING-STORAGE SECTION містить змінні, які існують протягом виконання програми.; Можливі напрями:

IDENTIFICATION DIVISION

FILE STATUS IS WS-FILE-STATUS.; Типові операції:

SEND TEXT FROM(WS-MESSAGE)

STOP RUN.;</syntaxhighlight>

Paragraph: </syntaxhighlight>

IF WS-BALANCE > 0

  • підтримувати існуючу COBOL-систему;
  • розвивати mainframe-застосунок;
  • працювати з batch jobs;
  • підтримувати DB2/CICS/VSAM-логіку;
  • змінювати старі банківські або страхові системи;
  • виконувати точкову модернізацію;
  • зберегти перевірену бізнес-логіку;
  • працювати з legacy copybooks;
  • інтегрувати стару систему з новою архітектурою.; Висновок: Python має змогу допомагати в автоматизації та аналізі навколо legacy-систем, але не є собою прямою заміною COBOL без глибокої міграції бізнес-логіки.; Приклад:

01 WS-AMOUNT PIC 9(7)V99.; Практична роль: WORKING-STORAGE — основне місце для внутрішніх змінних програми.; Поширені помилки:

  • високонадійної обробки транзакцій;
  • batch jobs;
  • великих баз даних;
  • банківських операцій;
  • державних реєстрів;
  • страхових систем;
  • масштабної обробки файлів;
  • довготривалих enterprise-навантажень.; MAIN-SECTION.; DISPLAY "Processing data".;
DATA DIVISION.;
  • `FILE SECTION`;
  • `WORKING-STORAGE SECTION`;
  • `LOCAL-STORAGE SECTION`;
  • `LINKAGE SECTION`.; COBOL

Error handling

COBOL зустрічається в державних системах, де важлива довгострокова стабільність.; Мейнфрейми використовуються для: 

IMS має змогу використовуватися з COBOL для:

</syntaxhighlight> </syntaxhighlight>

Приклад:

01 WS-CUSTOMER-BALANCE PIC 9(7)V99.;
'''Практична роль:''' COBOL + DB2 — поширене поєднання для enterprise-транзакцій і бізнес-даних.; '''PROCEDURE DIVISION''' містить виконувану логіку.;

EXEC SQL 

05 CUSTOMER-ID PIC 9(6).; Її сила — у стабільності, формалізованому описі даних, batch processing, роботі з файлами, інтеграції з DB2, VSAM, CICS і довгостроковій підтримці критичних бізнес-процесів.; 05 CUSTOMER-NAME PIC X(30).; CLOSE CUSTOMER-FILE.; Це можуть бути правила для:

</syntaxhighlight> END-PERFORM.; COBOL

`PERFORM` додатково має змогу використовуватися для циклів.; DB2 — реляційна база даних, яка часто застосовується разом із COBOL у mainframe-системах.; * input files;

  • output files;
  • device assignments;
  • file organization;
  • access mode;
  • record keys;
  • runtime environment.; WORKING-STORAGE SECTION.; Підказка: у COBOL-прикладах істотно дивитися на формат полів, структуру запису, порядок виконання й середовище запуску.;

PROCEDURE DIVISION.; DISPLAY "Hello, world!".; * `ADD`;

  • `SUBTRACT`;
  • `MULTIPLY`;
  • `DIVIDE`.;

01 WS-QUANTITY PIC 9(3) VALUE 2.; SELECT CUSTOMER-FILE ASSIGN TO "customers.dat"

  • доступ до datasets;
  • права користувачів;
  • CICS-транзакції;
  • DB2-доступи;
  • audit logs;
  • batch job permissions;
  • JCL-зміни;
  • секрети;
  • production data;
  • file transfers;
  • encryption;
  • change management;
  • segregation of duties;
  • legacy integration endpoints.; Python

Основні переважні аспекти COBOL:

Основні sections:

  • indexed files;
  • key-sequenced datasets;
  • enterprise data storage;
  • високопродуктивного доступу;
  • legacy business records;
  • COBOL-програм із keyed access.; AUTHOR.; Для підтримки істотно розуміти flow виконання.; COBOL-системи часто обробляють фінансові, персональні й державні інформаційні дані.; це мова програмування, розроблена для бізнес-обробки даних, фінансових операцій, банківських систем, страхування, державних реєстрів, бухгалтерії, payroll, batch processing і великих транзакційних систем виступає ключовою рисою COBOL або Common Business-Oriented Language.; * банках;
  • страхових компаніях;
  • урядових установах;
  • великих корпораціях;
  • облікових системах;
  • payroll-системах;
  • мейнфрейм-середовищах;
  • пакетній обробці даних.;== PROCEDURE DIVISION ==
VSAM застосовується для: Paragraphs часто використовуються як іменовані блоки логіки.; COMPUTE WS-TOTAL = WS-PRICE * WS-QUANTITY.; Можливі цілі: ADD WS-AMOUNT TO WS-TOTAL.;== Приватність даних == DISPLAY "Active" 
DISPLAY "Zero or negative balance"

Безпека COBOL-систем

PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 5 COBOL відповідає за:

</syntaxhighlight>

01 CUSTOMER-RECORD.;

ENVIRONMENT DIVISION

IMS

Перевага: rehosting має змогу бути менш ризиковим, ніж повне переписування, якщо головна цінність — зберегти поведінку системи.; Приклад:

COBOL застосовується для:

Alphanumeric-дані описуються через `PIC X`.; Практична роль: IF застосовується для перевірки бізнес-правил, статусів, сум, кодів і помилок.; DISPLAY "TOTAL BALANCE: " WS-TOTAL.; * COBOL Standards documentation.; * IBM DB2 for z/OS documentation.; WHEN "A"

COBOL став популярним у: 

</div>
'''COBOL''' — це мова програмування, розроблена для бізнес-обробки даних, яка досі має значення в банках, страхових компаніях, державних системах, мейнфреймах і legacy enterprise-інфраструктурі.; * IMS documentation.;<syntaxhighlight lang="cobol">
</div>
'''Головна думка:''' COBOL — це мова довгоживучих бізнес-систем.; * банківських систем;
* страхових систем;
* державних систем;
* податкових систем;
* payroll;
* billing;
* pension systems;
* batch processing;
* transaction processing;
* бухгалтерської обробки;
* обробки великих файлів;
* мейнфреймів;
* legacy enterprise systems;
* інтеграцій із DB2, VSAM, CICS;
* підтримки старих критичних систем.; COBOL legacy-системи можуть мати:

</div>

* обчислення;
* читання файлів;
* запис файлів;
* перевірки;
* переходи;
* виклики paragraphs;
* бізнес-правила;
* завершення програми.;</div>

DATA DIVISION.; Її цінність часто полягає не в сучасності синтаксису, а в надійній роботі критичної логіки, яку потрібно обережно підтримувати, документувати й модернізувати.; Приклад:
01 WS-TOTAL PIC 9(9)V99 VALUE 0.; WHEN OTHER
== COBOL і страхування ==
Типові підходи:

{{SEO
|title=COBOL — мова програмування для бізнес-систем, мейнфреймів, банків, страхування і legacy-інфраструктури
|description=COBOL — Wiki-стаття про мову програмування, створену для бізнес-обробки даних, фінансових систем, банківської інфраструктури, страхування, державних систем і мейнфреймів. Розглянуто історію COBOL, синтаксис, divisions, sections, paragraphs, records, files, batch processing, JCL, mainframe, VSAM, DB2, CICS, copybooks, legacy modernization, переваги, обмеження і хороші практики.
|keywords=COBOL, мова програмування COBOL, COBOL programming language, Common Business-Oriented Language, мейнфрейм, mainframe, IBM z/OS, batch processing, JCL, VSAM, DB2, CICS, copybook, legacy systems, банківські системи, страхові системи, державні системи, фінансові системи, бізнес-обробка даних, програмування
|alternativeTo=ручна бізнес-обробка великих обсягів даних; ранні неуніфіковані бізнес-мови; старі бухгалтерські системи без стандартизованої логіки; ручні batch-процеси; монолітні фінансові системи без формалізованого коду; неструктуровані legacy-процеси; системи обліку без надійної транзакційної обробки
}}

FILE-CONTROL.;</div>
'''Copybook''' — це файл із повторно використовуваними COBOL-описами або кодом.;== Загальний характеристика ==
</div>

=== Структура запису ===
<div style="background:#e7f3ff; border-left:6px solid #2b7cff; padding:12px; margin:12px 0;">
'''Увага:''' у legacy COBOL-програмах структура paragraphs має змогу бути складною.; COBOL зазвичай не є собою найкращим вибором для:
</div>
<div style="background:#e8f8f5; border-left:6px solid #16a085; padding:12px; margin:12px 0;">

'''Практична роль:''' FILE SECTION визначає, як програма бачить записи у файлі.;<syntaxhighlight lang="cobol">
'''істотно:''' у legacy COBOL-системах цінність часто не лише в коді, а в бізнес-правилах, які в ньому закладені.; * ієрархічних баз даних;
* transaction processing;
* legacy enterprise systems;
* високонадійних бізнес-процесів;
* великих організаційних систем.;</div>
!; END-READ.;
істотно: legacy не означає “непотрібне”.; READ-CUSTOMERS.; FD CUSTOMER-FILE.;

істотно: COBOL історично дуже орієнтований на роботу з файлами, з цієї причини характеристика зовнішніх файлів є собою важливою частиною програми.; Це можуть бути:

DB2

Коли COBOL має змогу бути невдалим вибором

Небезпека: невелика зміна в COBOL-програмі або copybook має змогу вплинути на багато batch jobs, файлів і downstream-систем.; TOTAL-EXAMPLE.;</syntaxhighlight>

<syntaxhighlight lang="cobol">

  • великий обсяг коду;
  • недостатню документацію;
  • старі бізнес-правила;
  • залежність від мейнфрейму;
  • складні batch jobs;
  • copybooks;
  • інтеграції з DB2, VSAM, CICS;
  • критичні інформаційні дані;
  • обмежену кількість експертів.; COBOL-програми можуть містити embedded SQL.; HELLO-WORLD.; Потрібно тестувати:

Джерела

<syntaxhighlight lang="cobol">

  • перегляд dumps;
  • аналіз logs;
  • DISPLAY statements;
  • debugging tools;
  • перегляд datasets;
  • перевірку JCL;
  • перевірку return codes;
  • аналіз SQLCODE;
  • трасування paragraphs;
  • порівняння input/output файлів.;== Mainframe ==

Цикл із умовою:

STOP RUN.;

Перевага: copybooks дозволяють підтримувати однакові структури даних у багатьох програмах.; PRINT-REPORT.; * Програмування

Отримано з https://wiki.corp2.eu/index.php?title=COBOL&oldid=1295