Calcul De La Longueur Éditée Pour Les Champs Décimaux - Bull DPS 7000 Guide De L'utilisateur

Il n'est pas nécessaire de spécifier de modèle d'édition pour les champs
alphanumériques. En effet, le système génère un modèle implicite X(n), où n correspond
à la longueur du champ.
En revanche, il est nécessaire d'en définir un pour les champs numériques. Dans le cas
de champs décimaux, le modèle d'édition fourni par l'utilisateur sera calculé en fonction
du type de champ décimal. Le tableau 6-1 présente les formules de calcul de la longueur
numérique éditée.
Tableau 6-1. Calcul de la longueur éditée pour les champs décimaux
Type de la zone
ECLATE SIGNE
(Type UPS)
CONDENSE SIGNE
(Type PKS)
ECLATE NON SIGNE
(Type UPK)
CONDENSE NON SIGNE
(Type PAK)
CONDENSE-2 NON SIGNE m,p
(Type PK2)
Par exemple, les champs décimaux de la grille GR-PROD sont de deux types différents:
UPK pour les champs PR-QTE et PR-PRIX et UPS pour le champ PR-MONTANT. Les
modèles SPIC correspondant à ces champs variables sont les suivants:
PR-QTE
PR-PRIX
PR-MONTANT
Tous les champs décimaux doivent inclure une position supplémentaire pour la marque
décimale. En outre, les champs avec signe doivent comporter une seconde position
supplémentaire pour le signe. Le signe moins (-) indique que le champ admet des
valeurs positives et négatives et le signe (+) qu'il n'admet que des valeurs positives. Le
signe plus (+) n'est jamais visualisé.
6-20
IQS - Guide de l'utilisateur expert
Longueur, nombre
de chifres après la
virgule
m,p
m,p
m,p
m,p
ZZ9.99
ZZZ9.99
-ZZZZZZZZ9.99
Formule de calcul
max (m,p) + 2 si p <0> 0
m + 1 si p = 0
m +[p] + 1 si p
max (m,p) + 2 si p <0> 0
m + 1 si p = 0
m + [p] + 1 si p
max (m,p) + 1 si p <0> 0
m si p = 0
m + [p] si p
max (m,p) + 1 si p <0> 0
m si p = 0
m + [p] si p
max (m,p) + 1 si p <0> 0
m si p = 0
m + [p] si p
47 F2 76UD Rev00
COBOL
-
COMP-3
-
COMP-3
COMP-8