COBOL - Funções intrínsecas - VARIANCE


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

A função "FUNCTION VARIANCE" retorna um valor numérico que é, aproximadamente, A variância de seus argumentos.

argument-1
é um argumento numérico

Regras:

  1. Os argumento devem ser numéricos.
  2. O valor retornado é definido como o quadrado do desvio-padrão dos argumentos especificados.
  3. Se houver somente um argumento, o valor retornado será zero (0).

Exemplo:


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

       01  WS-AUXILIARES.  
           05  WS-ENTRADA                PIC X(021) VALUE SPACES. 
           05  WS-RESULTADO              PIC 9(005)V9(005). 
  
      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------
      * sintaxe do comando
COMPUTE WS-RESULTADO = FUNCTION VARIANCE (4 7 9 13) DISPLAY 'FUNCTION VARIANCE - ' WSS-RESULTADO * Resultado: FUNCTION VARIANCE - 00003,26917 COMPUTE WS-RESULTADO = FUNCTION VARIANCE (1 2 12) DISPLAY 'FUNCTION VARIANCE - ' WSS-RESULTADO * Resultado: FUNCTION VARIANCE - 00004,96655 MOVE '123.456.123,567890 ' TO WS-ENTRADA COMPUTE WS-RESULTADO = FUNCTION VARIANCE (3 5 9) DISPLAY 'FUNCTION VARIANCE - ' WSS-RESULTADO * Resultado: FUNCTION VARIANCE - 00002,49444

© Copyright IBM Corp.