COBOL - Funções intrínsecas - MEAN


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 - MEAN
Intrinsic functions - Enterprise COBOL for z/OS 6.3.0

A função "FUNCTION MEAN" retorna um valor numérico que é a média (average) dos argumento fornecido.

argument-1 é um item numérico

Regras:

  1. O tipo desta função é um numérico - PIC 9(XXX)
  2. O valor retornado é média aritmética dos valores fornecidos de uma lista ou seja é a soma de todos os argumentos dividido pelo número dos mesmos.

Exemplo:


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

       01  WS-AUXILIARES.                                           
           05  WSS-RESULTADO             PIC 9(10) VALUE ZEROES.

      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------

      * sintaxe do comando   
           COMPUTE WSS-RESULTADO = FUNCTION MEAN (5, 10, 10, 5, 10)
           DISPLAY 'FUNCTION MEAN   - ' WSS-RESULTADO     
               
      * Resultado: FUNCTION MEAN   - 0000000008 

© Copyright IBM Corp.