Пошаговое описание процесса выполнения на COBOL: освоение логики за 12 минут.

#COBOL #topictrick Освойте управляющие операторы COBOL в этом полном руководстве — охватывающем операторы IF-ELSE, PERFORM, EVALUATE и GO TO с практическими примерами. Обязательно к просмотру для любого разработчика COBOL или специалиста по мейнфреймам. Оператор управления ► COBOL PERFORM ► COBOL EVALUATE ► COBOL IF-ELSE ► COBOL GO TO ► Что вы узнаете: 0:00 Добро пожаловать в операторы управления COBOL 0:06 Введение 2:06 Операторы COBOL IF-ELSE 5:46 Операторы COBOL PERFORM 8:36 Операторы COBOL Evaluate 11:10 Оператор COBOL GOTO 12:21 Завершение урока по мейнфреймам Оператор Perform в COBOL имеет четыре варианта: "COBOL PERFORM UNTIL", "COBOL PERFORM n Times", COBOL PERFORM VARYING и COBOL PERFORM THRU. Все эти варианты объясняются на примерах COBOL Perform. Оператор COBOL EVALUATE превосходит IF-ELSE по производительности. В COBOL существует четыре варианта: COBOL EVALUATE THRU, COBOL EVALUATE ALSO TRUE, COBOL EVALUATE Example. Оператор COBOL IF-THEN-ELSE используется для выбора условий; в COBOL существуют составные и вложенные условия. Всегда рекомендуется отдавать предпочтение оператору COBOL EVALUATE, а не вложенным операторам if-else. Оператор COBOL GOTO используется для передачи управления из одного раздела или абзаца в другой раздел или абзац внутри процедуры. Оператор COBOL goto в настоящее время используется не очень часто. Теперь рассмотрим несколько примеров операторов COBOL EVALUATE, COBOL PERFORM, COBOL IF-THEN-ELSE и COBOL GOTO. СИНТАКСИС COBOL PERFORM. Ниже приведены примеры четырех различных типов операторов PERFORM в COBOL. 1. Выполнить A000-CAL-SALE 1 раз. 2. Выполнять до конца файла. Чтение файла сотрудника. .... Конец выполнения. 3. Выполнить A000-CAL-TBL, изменяя значения от 1 к 1, до конца файла. 4. Выполнить A000-CAL-TAX через A000-EXIT. Синтаксис оператора EVALUATE в COBOL. Ниже приведены несколько примеров оператора EVALUATE. EVALUATE TRUE WHEN WS-CAL = 'JAN' PERFORM A000-CALC WHEN OTHER CONTINUE END-EVALUATE. ВЫЧИСЛИТЬ TRUE ALSO TRUE КОГДА WS-A = WS-B и WS-C = WS-D ВЫПОЛНИТЬ A000-CALC-TAX КОГДА ДРУГОЕ ПРОДОЛЖИТЬ КОНЕЦ ВЫЧИСЛЕНИЯ. Синтаксис COBOL IF-THEN-ELSE. ЕСЛИ WS-A = 10 ТОГДА ВЫВЕСТИ "НОМЕР 10" КОНЕЦ ЕСЛИ. Синтаксис COBOL GOTO. 1. ПЕРЕЙТИ К A00-CALC 2. ПЕРЕЙТИ К A000-CALC В ЗАВИСИМОСТИ ОТ WS-TX-VAL ►Подпишитесь на Topictrick и не забудьте нажать на значок колокольчика, чтобы не пропустить ни одного обновления. ◄ Также, пожалуйста, перейдите по указанной ниже ссылке, чтобы оставаться на связи с Topictrick: ► Официальный сайт: https://www.topictrick.com Спасибо за вашу поддержку. Topictrick™