Lenguajes disponibles: informes

La función EDIT convierte un campo alfanumérico de caracteres numéricos al formato numérico o convierte un campo numérico al formato alfanumérico.

Esta función resulta útil a la hora de manipular un campo de una expresión, que realiza una operación cuyos operandos deben estar en un formato determinado.

Cuando EDIT asigna un valor convertido a un campo nuevo, el formato de este campo debe corresponder con el del valor devuelto. Por ejemplo, si EDIT convierte un campo numérico al formato alfanumérico, debe aplicar el mismo formato al nuevo campo:

DEFINE ALPHAPRICE/A6 = EDIT(PRICE);

EDIT trata los símbolos del modo siguiente:

• Al convertir un campo alfanumérico al formato numérico, se almacena un signo o un punto decimal del campo como parte del valor numérico.

  Cualquier otro carácter que no sea numérico se considera no válido y EDIT devuelve el valor cero.

• Al convertir un campo de punto flotante o de decimal empaquetado al formato alfanumérico, EDIT elimina el signo, el punto decimal y cualquier número que esté la derecha del punto. A continuación, justifica los dígitos restantes a la derecha y añade ceros iniciales para obtener la longitud de campo especificada. La conversión de un número con más de nueve dígitos significativos, en formato de punto flotante o decimal empaquetado, puede provocar un resultado incorrecto.

EDIT también extrae o añade caracteres a una cadena alfanumérica. Para más información, consulte EDIT: Cómo extraer o añadir caracteres.

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