Conceito
Programa utilizando SEARCH.
000000 IDENTIFICATION DIVISION.
000000 PROGRAM-ID. AMOST71.
000000*
000000 DATA DIVISION.
000000 WORKING-STORAGE SECTION.
000000 01 PALAVRAS.
000000 05 PIC X(10) VALUE "AMOR".
000000 05 PIC X(10) VALUE "BOLA".
000000 05 PIC X(10) VALUE "COBOL".
000000 05 PIC X(10) VALUE "DONA".
000000 05 PIC X(10) VALUE "ELA".
000000 05 PIC X(10) VALUE "FOLHA".
000000 05 PIC X(10) VALUE "GOMA".
000000 05 PIC X(10) VALUE "HOJE".
000000 05 PIC X(10) VALUE "IDEIA".
000000 05 PIC X(10) VALUE "JUNIOR".
000000 05 PIC X(10) VALUE "KING".
000000 05 PIC X(10) VALUE "LOBO".
000000 05 PIC X(10) VALUE "MEDIA".
000000 05 PIC X(10) VALUE "NOVO".
000000 05 PIC X(10) VALUE "OVO".
000000 05 PIC X(10) VALUE "PINGO".
000000 05 PIC X(10) VALUE "QUERO".
000000 05 PIC X(10) VALUE "REVELA".
000000 05 PIC X(10) VALUE "SAPO".
000000 05 PIC X(10) VALUE "TOCO".
000000 05 PIC X(10) VALUE "UNIVERSO".
000000 05 PIC X(10) VALUE "VERSO".
000000 05 PIC X(10) VALUE "WOOD".
000000 05 PIC X(10) VALUE "XILOFONE".
000000 05 PIC X(10) VALUE "YANKE".
000000 05 PIC X(10) VALUE "ZOO".
000000 05 PIC X(10) VALUE "**ERRO**".
000000*
000000 01 TABELA-PALAVRAS REDEFINES PALAVRAS.
000000 05 PALAVRA-ITEM OCCURS 27 TIMES INDEXED BY IND01.
000000 10 PRIMA-LETRA PIC X.
000000 10 FILLER PIC X(9).
000000*
000000 01 LETRA-ENTRADA PIC X.
000000*
000000 PROCEDURE DIVISION.
000000 ENTRADA-LETRA SECTION.
000000*
000000 DISPLAY "INSERIR UM CARACTER DO ALFABETO" UPON CONSOLE.
000000*
000000 ACCEPT LETRA-ENTRADA.
000000*
000000 ACHA-PALAVRA SECTION.
000000*
000000 SET IND01 TO 1.
000000*
000000 SEARCH PALAVRA-ITEM
000000 AT END
000000 DISPLAY "NAO LOCALIZADO" UPON CONSOLE
000000 STOP RUN
000000 WHEN PRIMA-LETRA(IND01) = LETRA-ENTRADA
000000 DISPLAY PALAVRA-ITEM (IND01) UPON CONSOLE
000000 STOP RUN.
000000*