Искать в КОБОЛе

Опубликовано: 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.

Выход: