COBOL - Funções intrínsecas - MIN


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 - Funções intrínsecas - MIN
Intrinsic functions - Enterprise COBOL for z/OS 6.3.0

A função "FUNCTION MIN" retorna o conteúdo do argumento que contém o menor valor.

argument-1
é 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.

Exemplos:


      *-----------------------------------------------------------------
       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

© Copyright IBM Corp.