COBOL (Common Business-Oriented Language) — это язык программирования высокого уровня, обычно используемый в деловых и финансовых приложениях. Одной из уникальных особенностей COBOL является поддержка структур данных, таких как 88-уровневые таблицы. В этой статье мы углубимся в концепцию 88-уровневых таблиц и рассмотрим различные методы работы с ними, сопровождаемые примерами кода. Итак, начнём!

Что такое 88-уровневые таблицы?
88-уровневые таблицы, также известные как имена условий, представляют собой специальные конструкции в COBOL, используемые для проверки данных и принятия решений. Они предоставляют краткий и понятный способ определения условий и связывания их с соответствующими значениями. Эти таблицы обычно используются для проверки состояния или значения определенных переменных, что делает код более понятным и простым в обслуживании.

Метод 1: Простая условная проверка
Одним из основных применений 88-уровневых таблиц является выполнение простой условной проверки. Рассмотрим следующий пример:

01 PAYMENT-TYPE PIC 9.
88 CASH VALUE 1.
88 CREDIT-CARD VALUE 2.
IF PAYMENT-TYPE IS CASH
    DISPLAY "Payment received in cash."
ELSE IF PAYMENT-TYPE IS CREDIT-CARD
    DISPLAY "Payment received via credit card."
END-IF.

В приведенном выше коде таблица 88-го уровня определяет два условия: НАЛИЧНЫЕ и КРЕДИТНАЯ КАРТА. В зависимости от значения PAYMENT-TYPE соответствующее условие выполняется и отображается соответствующее сообщение.

Метод 2: проверка диапазона
Таблицы 88-го уровня также можно использовать для проверки диапазона переменных. Давайте рассмотрим пример:

01 AGE PIC 99.
88 ELIGIBLE-AGE VALUE 18 THRU 30.
IF AGE IS ELIGIBLE-AGE
    DISPLAY "You are eligible for this program."
ELSE
    DISPLAY "Sorry, you are not eligible."
END-IF.

Здесь имя-условие ELIGIBLE-AGE определяет диапазон от 18 до 30. Если ВОЗРАСТ попадает в этот диапазон, человек считается подходящим; в противном случае они не имеют права.

Метод 3: булева логика
COBOL позволяет комбинировать несколько условий с помощью операторов логической логики (И, ИЛИ, НЕ). Таблицы из 88 уровней можно использовать в сочетании с этими операторами для создания сложных условий. Рассмотрим следующий пример:

01 AGE PIC 99.
88 ELIGIBLE-AGE VALUE 18 THRU 30.
88 SENIOR-CITIZEN VALUE 65 THRU 99.
IF AGE IS ELIGIBLE-AGE AND NOT SENIOR-CITIZEN
    DISPLAY "You are eligible for this program."
ELSE
    DISPLAY "Sorry, you are not eligible."
END-IF.

В соответствии с этим кодексом человек считается отвечающим критериям, если его возраст попадает в допустимый диапазон (18–30 лет) и он не является пожилым гражданином (65 лет и старше).

В этой статье мы исследовали концепцию 88-уровневых таблиц в COBOL и обсудили различные методы использования их возможностей. Мы рассмотрели простые условные проверки, проверки диапазона и использование логической логики. Используя эти методы, вы можете писать более читаемый и удобный в обслуживании код COBOL. Таблицы из 88 уровней предоставляют эффективный способ выражения условий и делают ваш код понятным. Освойте возможности 88-уровневых таблиц и улучшите свои навыки программирования на COBOL!