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 SUM
   
  A função "FUNCTION SUM" retorna um valor que é a soma de todos os argumentos fornecidos ou o resultado da operação matemática desejada.  
   
   Formato geral: FUNCTION SUM ({arg} ....)
                             arg é um inteiro ou argumento numérico 		 
   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 é a soma de todos os argumentos fornecidos.  
   
   

 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(006) VALUE ZEROES.   
       
		 
      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------

      * exemplo 01:   
		 
           COMPUTE WSS-RESULTADO = FUNCTION SUM (+4, -2, +2)
           DISPLAY 'FUNCTION SUM ........ - ' WSS-RESULTADO
    
      * Resultado: FUNCTION SUM ........ - 000004 
		 
      * exemplo 02:   
		 
           COMPUTE WSS-RESULTADO = FUNCTION SUM (WS-VARIAVEL-1 ,
                                                 WS-VARIAVEL-2 ,
                                                 WS-VARIAVEL-3)
           DISPLAY 'FUNCTION SUM ........ - ' WSS-RESULTADO
    
      * Resultado: FUNCTION SUM ........ - 000006 
		 
      * exemplo 03:   
		 
           COMPUTE WSS-RESULTADO = FUNCTION SUM (4 * 2)    
           DISPLAY 'FUNCTION SUM * ...... - ' WSS-RESULTADO

      * Resultado: FUNCTION SUM ........ - 000008 
		 
      * exemplo 04:   
		 
           COMPUTE WSS-RESULTADO = FUNCTION SUM (4 / 2)    
           DISPLAY 'FUNCTION SUM / ...... - ' WSS-RESULTADO

      * Resultado: FUNCTION SUM ........ - 000002