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

argument-1

é 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).

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