Как использовать оператор EVALUATE в COBOL?

@landen.nienow 

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

Вот пример использования оператора EVALUATE в COBOL:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

EVALUATE variable-name
  WHEN value-1
    statement-1
  WHEN value-2
    statement-2
  WHEN value-3
    statement-3
  ...
  WHEN OTHER
    statement-4
END-EVALUATE

В этом примере переменная variable-name сравнивается с каждым из значений value-1, value-2, value-3 и т. д. Если значение переменной соответствует одному из этих значений, выполняется соответствующее действие, указанное в statement-1, statement-2, statement-3 и т. д. Если значение переменной не соответствует ни одному из перечисленных значений, выполняется действие, указанное в statement-4.

Например, следующий код использует оператор EVALUATE для вывода сообщения, соответствующего дню недели, на основе значения переменной weekday:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

EVALUATE weekday
  WHEN 1
    DISPLAY 'Monday'
  WHEN 2
    DISPLAY 'Tuesday'
  WHEN 3
    DISPLAY 'Wednesday'
  WHEN 4
    DISPLAY 'Thursday'
  WHEN 5
    DISPLAY 'Friday'
  WHEN 6
    DISPLAY 'Saturday'
  WHEN 7
    DISPLAY 'Sunday'
END-EVALUATE

В этом примере, если значение переменной weekday равно 1, то будет выведено сообщение "Monday", если значение переменной weekday равно 2, то будет выведено сообщение "Tuesday" и т. д. Если значение переменной weekday не равно ни одному из этих значений, оператор EVALUATE выполнит действие, указанное в блоке WHEN OTHER.

@landen.nienow 

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

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