A função "FUNCTION SQRT" retorna um valor numérico da raiz quadrada do argumento fornecido.

argument-1

é um numérico ou um argumento inteiro cujo o valor deve ser igual ou maior que 0 (zero)

Regras:

1. O tipo desta função é um numérico - PIC 9(X)V9(X)
2. O valor retornado é a raiz quadrada do argumento fornecido.

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

       01  WS-AUXILIARES.  
           05  WSS-RAIZ                  PIC 9(05)V9(005) VALUE ZEROES.

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

      * sintaxe do comando   

           COMPUTE WSS-RAIZ      = FUNCTION SQRT (4)  
           DISPLAY 'FUNCTION SQRT ....... - ' WSS-RAIZ

      * Resultado: FUNCTION SQRT ..... - 00002,00000
 
           COMPUTE WSS-RAIZ      = FUNCTION SQRT (77)  
           DISPLAY 'FUNCTION SQRT ....... - ' WSS-RAIZ

      * Resultado: FUNCTION SQRT ..... - 00008,77496
 
           MOVE 77,00000 TO WSS-RAIZ                       
           COMPUTE WSS-RAIZ      = FUNCTION SQRT (WSS-RAIZ)
           DISPLAY 'FUNCTION SQRT VARIA.. - ' WSS-RAIZ             

      * Resultado: FUNCTION SQRT ..... - 00008,77496