Saltar navegação

S03a - Programa Exemplo

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*                                                            

Licença: licença proprietária