COBOL - Funções intrínsecas - TEST-NUMVAL



Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

COBOL - Funções intrínsecas - TEST-NUMVAL
Intrinsic functions - Enterprise COBOL for z/OS 6.3.0

A função TEST-NUMVAL verifica se o conteúdo do argument-1 está em conformidade com a especificação do argument-1 da função NUMVAL.

O tipo de função é inteiro.

argument-1
Deve ser um literal alfanumérico, um literal nacional ou um item de dados da classe alfanumérica ou nacional de classe.

O valor retornado é o seguinte:

  • Se o conteúdo do argument-1 estiver em conformidade com as regras de argumento da função NUMVAL, o valor retornado será 0.
  • Se um ou mais caracteres estiverem com erro, o valor retornado será a posição do primeiro caractere com erro.
    Notas:
    • Se um ou mais espaços forem incorporados a uma sequência de caracteres numéricos, o valor retornado será a posição do primeiro caractere não espacial após os espaços, porque um ou mais espaços após um ou mais dígitos são válidos.
      Por exemplo, se o argument-1 for '0 1', o valor retornado será 3.
    • Se a opção do compilador ARITH (COMPAT) estiver em vigor, o valor retornado será a posição do 19º dígito se nenhum erro anterior for encontrado, porque o caracter com erro para um argumento maior que 18 dígitos é o 19º dígito.
    • Se a opção do compilador ARITH (EXTEND) estiver em vigor, o valor retornado será a posição do 32º dígito se nenhum erro anterior for encontrado, porque o caracter com erro para um argumento maior que 31 dígitos é o 32º dígito.
  • Caso contrário, o valor retornado será (FUNCTION LENGTH (argumento-1) + 1).
    Esses erros incluem, mas não estão limitados a:
    • argument-1 tem comprimento zero.is zero-length.
    • argument-1 contém apenas espaços.contains only spaces.
    • argument-1 contém caracteres válidos, mas está incompleto, como a sequência '+.' contains valid characters but is incomplete, such as the string ' +.'.


© Copyright IBM Corp.