COBOL - Funções intrínsecas


Volta a página anterior

Volta ao Menu Principal


Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF.

 FUNCTION MAX
   
  A função "FUNCTION MAX" retorna o conteúdo do argumento que contém o maior valor.  
   
   Formato geral: FUNCTION MAX ({arg}.......)
                             arg é um alfabético, alfanumérico, inteiro ou um argumento numérico 		 
   Regras:  
                               1. Os argumentos devem ser todos alfabéticos, todos alfanuméricos, todos inteiros ou                                   todos numérico, exceto os argumentos inteiros e numéricos que podem ser mixados                                   e alfabéticos com alfanuméricos que também podem ser mixados.  
                               2. O tipo da função depende dos argumentos, tais como:  
                                    a. alfabético e/ou alfanuméricos - todos argumentos alfanuméricos  
                                    b. inteiro - todas os argumentos devem ser inteiros.  
                                    c. numérico - alguns argumentos podem ser inteiros.  
                               3. Caso mais de um argumento tiver o mesmo valor, e este valor é o máximo, o valor                                   retornado consiste no maior conteúdo desses elementos.  
                               4. Se só um argumento for fornecido, o valor retornado consiste no conteúdo desse                                   argumento.  
                               5. Se o tipo da função é alfanumérica, o tamanho do valor retornado é o mesmo do                                   tamanho do argumento selecionado como máximo.  
   
   

 Exemplo
  
       
      *-----------------------------------------------------------------
       WORKING-STORAGE SECIOTN.
      *-----------------------------------------------------------------

       01  WS-AUXILIARES.  
           05  WS-MIN-1                  PIC 9(010) VALUE 5. 
           05  WS-MIN-2                  PIC 9(010) VALUE 10.
           05  WS-MIN-3                  PIC 9(010) VALUE 15.
           05  WS-MIN-4                  PIC 9(010) VALUE 20.           
           05  WSS-RESULTADO             PIC 9(010) VALUE ZEROES.           
       
		 
      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------

      * sintaxe do comando   

      * exemplo 01:   
		 
           COMPUTE WSS-RESULTADO = FUNCTION MAX (2, 10, 15, 20, 25)
           DISPLAY 'FUNCTION MAX ........ - ' WSS-RESULTADO        
      * Resultado: FUNCTION MAX ......... - 0000000025 
		 
      * exemplo 02:   
		 
           COMPUTE WSS-RESULTADO = FUNCTION MAX (WS-MIN-1 ,
                                                 WS-MIN-2 ,
                                                 WS-MIN-3 ,
                                                 WS-MIN-4) 
           DISPLAY 'FUNCTION MAX ........ - ' WSS-RESULTADO
      * Resultado: FUNCTION MAX ......... - 0000000020