BYTVAL: Como Traduzir um Caractere para um Decimal

A função BYTVAL traduz um caractere para um valor decimal ASCII, EBCDIC ou Unicode que o representa, dependendo do sistema operacional.

Sintaxe: Como Traduzir um Caractere

BYTVAL(character, output)

onde:

caractere

Alfanumérico

É o caractere a ser traduzido. Você pode especificar um campo ou variável que contém o caractere ou o próprio caractere entre aspas simples. Se fornecer mais de um caractere, a função avaliará o primeiro.

saída

Inteiro

É o nome do campo que contém o valor decimal correspondente ou o formato do valor de saída posto entre aspas simples.

Topo da página

Exemplo: Como Traduzir o Primeiro Caractere de um Campo

BYTVAL traduz o primeiro caractere do LAST_NAME em seu valor decimal ASCII ou EBCDIC e armazena o resultado em LAST_INIT_CODE. Já que a string de entrada possui mais de um caractere, BYTVAL avalia o primeiro.

TABLE FILE EMPLOYEE
PRINT LAST_NAME AND
COMPUTE LAST_INIT_CODE/I3 = BYTVAL(LAST_NAME, 'I3');
WHERE DEPARTMENT EQ 'MIS';
END

A saída em uma plataforma ASCII é:

LAST_NAME  LAST_INIT_CODE
---------  --------------
SMITH                  83
JONES                  74
MCCOY                  77
BLACKWOOD              66
GREENSPAN              71
CROSS                  67

A saída para uma plataforma ASCII é:

LAST_NAME  LAST_INIT_CODE
---------  --------------
SMITH                 226
JONES                 209
MCCOY                 212
BLACKWOOD             194
GREENSPAN             199
CROSS                 195

Topo da página

Exemplo: Como Obter o Valor EBCDIC com o Gerenciador de Diálogos

Esta solicitação do Gerenciador de Diálogos pede um caractere e exibe o número correspondente. As informações a seguir refletem os resultados na plataforma Windows.

-SET &CODE = BYTVAL(&CHAR, 'I3');
-HTMLFORM BEGIN
<HTML>
<BODY>
THE EQUIVALENT VALUE IS &CODE
</BODY>
</HTML>
-HTMLFORM END

Suponha que o valor inserido para &CHAR seja um ponto de exclamação (!). A saída é:

THE EQUIVALENT VALUE IS 33