COBOL - Utilizando o nível 88 - www.cadcobol.com.br


Volta a página anterior

Volta ao Menu Principal


Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com


COBOL - utilizando o nivel 88
Nível 88 - entradas que especificam condition-names, associados a valores particulares de uma variável condicional.

O programa abaixo listado tem por finalidade demonstrar a utilização do nível 88.

Código
         1         2         3         4         5         6         7   
123456789012345678901234567890123456789012345678901234567890123456789012

      *-----------------------------------------------------------------
       IDENTIFICATION DIVISION.                                         
      *-----------------------------------------------------------------
       PROGRAM-ID.      CADPBN88.                                         
       AUTHOR.          CARLOS ALBERTO DORNELLES.                         
                                                                        
      *-----------------------------------------------------------------
      * OBJETIVO      : UTILIZANDO O NIVEL 88                           
      * ANALISTA      : CARLOS ALBERTO DORNELLES                        
      * LINGUAGEM     : COBOL                                           
      * MODO OPERACAO : BATCH                                           
      *-----------------------------------------------------------------
      * VERSAO DD.MM.AAAA  HISTORICO/AUTOR                              
      * ------ ----------  ---------------                              
      *   001  05.02.2005  PROGRAMA INICIAL - DORNELLES                 
      *-----------------------------------------------------------------
                                                                        
      *-----------------------------------------------------------------
       DATA DIVISION.                                                   
      *-----------------------------------------------------------------
                                                                        
      *-----------------------------------------------------------------
       WORKING-STORAGE SECTION.                                         
      *-----------------------------------------------------------------
       01  WS-AUXILIARES.                                               
           05  WS-NUM-CALCULADO          PIC 9(003) VALUE ZEROES.       
           05  WS-REC-NUMERO             PIC 9(003) VALUE ZEROES.       
               88 REC-NUMERO-001                    VALUE 001.          
               88 REC-NUMERO-002                    VALUE 002.          
               88 REC-NUMERO-003                    VALUE 003.          
               88 REC-NUMERO-004                    VALUE 004.          
               88 REC-NUMERO-005                    VALUE 005.          
               88 REC-NUMERO-006                    VALUE 006.          
               88 REC-NUMERO-007                    VALUE 007.          
               88 REC-NUMERO-008                    VALUE 008.          
               88 REC-NUMERO-009                    VALUE 009.  

      *-----------------------------------------------------------------
       PROCEDURE DIVISION.                                              
      *-----------------------------------------------------------------
                                                                        
           MOVE 1 TO WS-NUM-CALCULADO                                   
                     WS-REC-NUMERO                                      
           PERFORM UNTIL WS-REC-NUMERO GREATER THAN 009                 
                   EVALUATE TRUE                                 
                            WHEN REC-NUMERO-001                  
                                 DISPLAY 'HUM           '        
                            WHEN REC-NUMERO-002                  
                                 DISPLAY 'DOIS          '        
                            WHEN REC-NUMERO-003                  
                                 DISPLAY 'TRES          '        
                            WHEN REC-NUMERO-004                  
                                 DISPLAY 'QUATRO        '        
                            WHEN REC-NUMERO-005                  
                                 DISPLAY 'CINCO         '        
                            WHEN REC-NUMERO-006                  
                                 DISPLAY 'SEIS          '        
                            WHEN REC-NUMERO-007                  
                                 DISPLAY 'SETE          '        
                            WHEN REC-NUMERO-008                  
                                 DISPLAY 'OITO          '        
                            WHEN REC-NUMERO-009                  
                                 DISPLAY 'NOVE          '        
                            WHEN OTHER                           
                                 DISPLAY 'ERRO NA ROTINA'        
                    END-EVALUATE                                 
                    ADD 1 TO WS-REC-NUMERO                       
           END-PERFORM                                                  
           GOBACK.                                                      
                                                                                                                                                
       Resultado:

       HUM       
       DOIS      
       TRES      
       QUATRO    
       CINCO     
       SEIS      
       SETE      
       OITO      
       NOVE