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 MIN
   
  A função "FUNCTION MIN" retorna o conteúdo do argumento que contém o menor valor.  
   
   Formato geral: FUNCTION MIN ({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 minímo, o valor retornado consiste no menor 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ínimo.  
   
   

 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 MIN (2, 10, 15, 20, 25)
           DISPLAY 'FUNCTION MIN ........ - ' WSS-RESULTADO        
      * Resultado: FUNCTION MIN ......... - 0000000002 
		 
      * exemplo 02:   
		 
           COMPUTE WSS-RESULTADO = FUNCTION MIN (WS-MIN-1 ,
                                                 WS-MIN-2 ,
                                                 WS-MIN-3 ,
                                                 WS-MIN-4) 
           DISPLAY 'FUNCTION MIN ........ - ' WSS-RESULTADO
      * Resultado: FUNCTION MIN ......... - 0000000005