Funções intrínsecas - RANGE

	FUNCTION RANGE

	A função "FUNCTION RANGE" retorna um valor que é igual ao valor máximo dos argumentos menos o valor mínimo dos mesmos.

	Formato geral: FUNCTION RANGE({num}.....) num é um numérico ou argumento inteiro
	Regras:
	1. O tipo desta função depende dos argumentos/variáveis, tais como:
	a. Inteiro (todos os argumentos ex.: 1 2 3 4):
	b. Numerico (todas as variaveis devem conter caracteres numéricos):
	2. O valor retornado é igual ao maior valor de uma serie de argumentos menos o menor valor desta serie.
	3. Se somente um argumento for especificado, o valor de retorno será 0 (zero).

Exemplo

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

       01  WS-AUXILIARES.  
           05  WS-VARIAVEL-1             PIC 9(001) VALUE 1.  
           05  WS-VARIAVEL-2             PIC 9(001) VALUE 2.  
           05  WS-VARIAVEL-3             PIC 9(001) VALUE 3.  
           05  WS-RESULTADO              PIC 9(XXX) VALUE ZEROES.   
       
		 
      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------


      * sintaxe do comando   

      * exemplo 01:   
		 
           COMPUTE WSS-RESULTADO = FUNCTION RANGE (2, 10, 15, 20, 25) 
           DISPLAY 'FUNCTION RANGE ....... - ' WSS-RESULTADO
           
      * Resultado: FUNCTION RANGE ........ - 0000000023 
		 

      * exemplo 02:   
		 
           COMPUTE WSS-RESULTADO = FUNCTION RANGE (WS-VARIAVEL-1 ,
                                                   WS-VARIAVEL-2 ,
                                                   WS-VARIAVEL-3)
           DISPLAY 'FUNCTION RANGE ....... - ' WSS-RESULTADO
    
      * Resultado: FUNCTION RANGE ........ - 0000000002