XTPACK: Ecrire un nombre condensé à la hauteur de 31 chiffres significatifs dans un fichier de sortie

Vous pouvez utiliser la fonction XTPACK pour stocker des nombres condensés. Une valeur condensée peut contenir jusqu'à 31 chiffres significatifs, y compris la virgule. Cela vous permet d'écrire un champ condensé long ou court de toute longueur, contenant 1 à 16 octets, dans un fichier de sortie.

Syntaxe : Stocker des valeurs condensées dans un champ alphanumérique

XTPACK(in_value, outlength, outdec, output)

où :

infield

Numérique

est la valeur condensée.

outlength

Numérique

est la longueur du champ alphanumérique qui contient la valeur condensée. La valeur peut être comprise entre 1 et 16.

outdec

Numérique

est le nombre de décimales de output.

output

Alphanumérique

est le nom du champ à contenir le résultat ou le format du champ entre guillemets simples.

Haut de page

Exemple : Ecrire un nombre condensé long dans un fichier de sortie

La requête suivante crée un champ décimal condensé long nommé LONGPCK. ALPHAPCK (format A13) est le résultat de l'application de XTPACK au champ long condensé. PCT_INC, LONGPCK, et ALPHAPCK sont ensuite inscrits dans un fichier SAVE nommé XTOUT.

DEFINE FILE EMPLOYEE
LONGPCK/P25.2 = PCT_INC + 11111111111111111111;
ALPHAPCK/A13 = XTPACK(LONGPCK,13,2,'A13');
END
TABLE FILE EMPLOYEE
PRINT PCT_INC LONGPCK ALPHAPCK
WHERE PCT_INC GT 0
  ON TABLE SAVE AS XTOUT
END

Le fichier SAVE contient les champs et formats suivants :

ALPHANUMERIC RECORD NAMED  XTOUT
FIELDNAME                         ALIAS         FORMAT        LENGTH
PCT_INC                           PI            F6.2            6
LONGPCK                                         P25.2          25
ALPHAPCK                                        A13            13
TOTAL                                                          44
SAVED...