CHKNUM: Como Verificar o Formato Numérico de uma Sequência

Como:

A função CHKNUM verifica uma string de caracteres para o formato numérico. Se a string contiver um formato numérico válido, CHKNUM resulta no valor 1. Se a string contiver caracteres que não são válidos em um número, CHKNUM resultará em zero (0).

Topo da página
x
Sintaxe: Como Verificar o formato de uma string de caracteres
CHKNUM(numchar, source_string, output)

onde:

numchar

Inteiro

É o número de caracteres na string.

string

Alfanumérico

É a string de caracteres a ser verificada, colocada entre aspas simples ou um campo ou variável contendo a string de caracteres.

saída

Numérico

É o nome do campo que contém o resultado ou o formato do valor de saída posto entre aspas simples.
Exemplo: Como Verificar o Formato Numérico de uma String

CHKNUM examina as strings STR1, STR2 e STR3 procurando o formato numérico. 

DEFINE FILE WF_RETAIL_LITE
STR1/A8 = '12345E01';
STR2/A8 = 'ABCDEFG';
STR3/A8 = '1234.567';
CHK1/I1= CHKNUM(8,STR1,CHK1);
CHK2/I1= CHKNUM(8,STR2,CHK2);
CHK3/I1= CHKNUM(8,STR3,CHK3);
END
TABLE FILE WF_RETAIL_LITE
PRINT STR1 IN 20 CHK1 STR2 CHK2 STR3 CHK3
BY PRODUCT_CATEGORY
WHERE PRODUCT_CATEGORY EQ 'Video Production'
ON  TABLE SET PAGE NOPAGE
ON TABLE PCHOLD FORMAT WP
END

A saída é:

  Product                                                                                                                         
  Category           STR1      CHK1  STR2      CHK2  STR3      CHK3                                                               
  --------           ----      ----  ----      ----  ----      ----                                                               
  Video Production   12345E01     1  ABCDEFG      0  1234.567     1
                     12345E01     1  ABCDEFG      0  1234.567     1
                     12345E01     1  ABCDEFG      0  1234.567     1
                     12345E01     1  ABCDEFG      0  1234.567     1
                     12345E01     1  ABCDEFG      0  1234.567     1
                     12345E01     1  ABCDEFG      0  1234.567     1
Information Builders