Искать в КОБОЛе
Опубликовано: 9 Января, 2023
Ключевое слово SEARCH используется для проверки наличия или отсутствия определенных элементов в любых таблицах или массивах. Мы можем найти элемент, либо выполняя циклические операции, либо используя ключевое слово SEARCH. Мы можем даже выбрать ПОИСК ВСЕХ, но в этой статье будут читаться только ключевые слова ПОИСК.
Синтаксис:
SEARCH table-name [ VARYING index ]
[AT END imperative statement-1 ]
{ WHEN condition-1 {statement-2, NEXT SENTENCE } }
[ END- SEARCH ].
Ключевые моменты:
- Ключевое слово SEARCH используется в качестве линейного поиска в языке программирования COBOL.
- Записи таблицы/массива не обязательно должны располагаться в какой-либо правильной последовательности.
- Он будет выполнять операцию в последовательном порядке, поэтому также известен как последовательный поиск.
- Он может включать несколько условий с использованием предложения WHEN.
- Требуется оператор SET перед оператором SEARCH.
- Будучи медленной операцией, она считается менее эффективной.
Пример:
Cobol
IDENTIFICATION DIVISION.PROGRAM-ID. SEARCHS-EXAMPLE.DATA DIVISION.WORKING-STORAGE SECTION.01 LETTER-TABLE VALUE "QWERTYUIOPASDFGHJKLZXCVBNM" . 05 LETTER-ENTRY OCCURS 26 TIMES INDEXED BY IDX. 10 LETTER-VAR PIC X(1).01 LETTER-COMP PIC X(1) VALUE "*".PROCEDURE DIVISION.MAIN-PARA. SET IDX TO 1. SEARCH LETTER-ENTRY AT END DISPLAY LETTER-COMP " NOT FOUND LETTER " WHEN LETTER-COMP = LETTER-VAR(IDX) DISPLAY "LETTER Z IS FOUND IN THE TABLE " END-SEARCHSTOP RUN. |
Выход:
