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



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

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

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

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-F, 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 argumento 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.
    • Se o valor do expoente no argumento contiver mais de quatro dígitos significativos, o valor retornado será a posição do quinto dígito do expoente.
  • 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.
    • argument-1 contém apenas espaços.
    • argument-1 contém caracteres válidos, mas está incompleto, como a sequência '+.'


© Copyright IBM Corp.