Langages disponibles : reporting

La fonction EDIT convertit un champ alphanumérique contenant des caractères numériques au format numérique, ou bien convertit un champ numérique au format alphanumérique.

Cette fonction est utile pour la manipulation d'un champ dans une expression qui réalise une opération qui nécessite des opérandes dans un format en particulier.

Lorsque EDIT attribue une valeur convertie à un nouveau champ, le format de celui-ci doit correspondre au format de la valeur renvoyée. Par exemple, si EDIT convertit un champ numérique au format alphanumérique, le nouveau champ doit être au format alphanumérique :

DEFINE ALPHAPRICE/A6 = EDIT(PRICE);

EDIT traite un symbole de la façon suivante :

• Quand un champ alphanumérique est converti en format numérique, un signe ou une virgule dans le champ est acceptable et est stocké dans le champ numérique.

  Tout autre caractère non numérique est valide, et EDIT renvoie la valeur zéro.

• Lors de la conversion d'un champ du format virgule flottante ou décimal condensé au format alphanumérique, EDIT supprime le symbole, la décimale, et tous les nombres situés à la droite de la virgule. Ensuite il justifie à droite les autres chiffres et ajoute des zéros pour atteindre la longueur d'un champ spécifié. La conversion d'un nombre avec plus de neuf chiffres significatifs en virgule flottante ou en format décimal condensé peuvent produire un résultat incorrect.

EDIT également extrait ou ajoute les caractères à une chaîne alphanumérique. Pour plus d'information, reportez-vous à EDIT : Extraire ou ajouter des caractères.

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