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 NUMVAL-C
   
  A função "FUNCTION NUMVAL-C" retorna um valor numérico que corresponde a STRING especificada no seu argumento.  
   
   Formato geral: FUNCTION NUMVAL-C (arg1 [arg2])
                             arg1 é um argumento numérico com pelo menos um caracter e não pode exceder a 18
                             arg2 é um argumento alfa-numérico informado
 		 
   
   

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

       01  WS-AUXILIARES.  
           05  WS-ENTRADA                PIC X(021) VALUE SPACES. 
           05  WS-RESULTADO              PIC 9(018) VALUE ZEROES.   
       
		 
      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------

      * sintaxe do comando
   
        Primeiro exemplo

           MOVE '123.456.123.567890   ' TO WS-ENTRADA
           COMPUTE WS-RESULTADO = FUNCTION NUMVAL-C (WS-ENTRADA)              
           DISPLAY 'FUNCTION NUMVAL-C  - ' WSS-RESULTADO  
   
      * Resultado: FUNCTION NUMVAL-C   -   000123456123567890 

   

        Segundo exemplo

           MOVE '  1234567890         ' TO WS-ENTRADA
           COMPUTE WS-RESULTADO = FUNCTION NUMVAL-C (WS-ENTRADA)              
           DISPLAY 'FUNCTION NUMVAL-C  - ' WSS-RESULTADO  
   
      * Resultado: FUNCTION NUMVAL-C   -   000000001234567890 

   

        Terceiro exemplo

           MOVE '123.456.123,567890   ' TO WS-ENTRADA
           COMPUTE WS-RESULTADO = FUNCTION NUMVAL-C (WS-ENTRADA)              
           DISPLAY 'FUNCTION NUMVAL-C  - ' WSS-RESULTADO  
   
      * Resultado: FUNCTION NUMVAL-C   -   000000000123456124 

   

        Quarto exemplo

           MOVE '123.456.123,567890   ' TO WS-ENTRADA
           INSPECT WS-ENTRADA REPLACING ALL ',' BY '.' 
           COMPUTE WS-RESULTADO = FUNCTION NUMVAL-C (WS-ENTRADA)              
           DISPLAY 'FUNCTION NUMVAL-C  - ' WSS-RESULTADO  
   
      * Resultado: FUNCTION NUMVAL-C   -   000123456123567890