Bull DPS 7000 Guide De L'utilisateur page 180

Conversion du type de zone en binaire (pour utilisation dans
la fonction VALUE).
CHAR",
Calcul du nombre de zones de l'article résultant.
256)"
Remplissage de la table de description.
Détermination de la longueur de zone en format édité.
END
C-14
IQS - Guide de l'utilisateur expert
DO $TYPE = 0 TO 6
IF ITEM-TYPE = SUBSTRING("UPKSPKS UPK PK2 PK BIN
THEN
EXIT
END
END
LET COL-NUMBER = COUNT
IF COL-NUMBER > 256
THEN
DISPLAY "*** There are too many items (limited to
RETURN
END
LET COL-CHAR = COL-NUMBER
LET IT-TYPE(COL-NUMBER) = $TYPE
LET IT-LENGTH(COL-NUMBER) = ITEM-LENGTH
LET IT-SCALE(COL-NUMBER) = ITEM-SCALE
LET IT-OFFSET(COL-NUMBER) = ITEM-OFFSET
IF ITEM-TYPE NE "BIN"
THEN
LET $LENGTH = ITEM-LENGTH
IF ITEM-TYPE AMONG ("UPKS" "PKS")
THEN
LET $LENGTH + 1
END
IF ITEM-SCALE NE 0
THEN
LET $LENGTH = $LENGTH + 1
END
ELSE
IF ITEM-LENGTH > 15
THEN
LET $LENGTH = 11
ELSE
LET $LENGTH = 6
END
$TYPE * 4 + 1,
4)
+ $LENGTH * ($N - 1) + 1
47 F2 76UD Rev00