Linguagens Disponíveis: Reporting

A função EDIT converte um campo alfanumérico que contém caracteres numéricos em formato numérico ou converte um campo numérico em formato alfanumérico.

Esta função é útil para a manipulação de um campo em uma expressão que desempenha uma operação que requer operandos em um formato em particular.

Quando EDIT atribui um valor convertido a um novo campo, o formato do novo campo deve corresponder ao formato do valor obtido. Por exemplo, se EDIT converte um campo numérico em formato alfanumérico, você deve dar ao novo campo um formato alfanumérico:

DEFINE ALPHAPRICE/A6 = EDIT(PRICE);

EDIT lida com símbolos da seguinte forma:

• Quando um campo alfanumérico é convertido em formato numérico, um sinal ou ponto decimal no campo é armazenado no campo numérico.

  Qualquer outro caractere não numérico é inválido, e EDIT exibe o valor zero.

• Ao converter um campo de ponto flutuante ou decimal compactado em formato alfanumérico, EDIT remove o sinal, o ponto decimal e qualquer número à direita do ponto decimal. Em seguida, os dígitos remanescentes são justificados à direita e zelcançado.ros à esquerda são adicionados para que o comprimento de campo especificado seja Converter um número com mais de nove dígitos significativos em formato de ponto flutuante ou decimal compactado pode produzir um resultado incorreto.

EDIT(fieldname);

TABLE FILE EMPLOYEE
PRINT HIRE_DATE AND COMPUTE
ALPHA_HIRE/A17 = EDIT(HIRE_DATE); NOPRINT AND COMPUTE
HIRE_MDY/A17 = CHGDAT('YMD', 'MDYYX', ALPHA_HIRE, 'A17');
BY LAST_NAME BY FIRST_NAME
WHERE DEPARTMENT EQ 'MIS';
END

LAST_NAME  FIRST_NAME  HIRE_DATE  HIRE_MDY 
---------  ----------  ---------  -------- 
BLACKWOOD  ROSEMARIE   82/04/01   APRIL 01 1982 
CROSS      BARBARA     81/11/02   NOVEMBER 02 1981 
GREENSPAN  MARY        82/04/01   APRIL 01 1982 
JONES      DIANE       82/05/01   MAY 01 1982 
MCCOY      JOHN        81/07/01   JULY 01 1981 
SMITH      MARY        81/07/01   JULY 01 1981