Искать в КОБОЛе
Опубликовано: 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 - SEARCH STOP RUN . |
Выход: