Bull DPS 7000 Guide De L'utilisateur page 171

Détermination de la longueur de zone en mémoire.
IF ITEM-TYPE AMONG "UPKS" "UPK" "CHAR"
THEN
ELSE
END
Conversion du type de zone en binaire (pour utilisation dans
la fonction VALUE).
DO $TYPE = 0 TO 6
END
Calcul du nombre de zones de l'article résultant.
LET COL-NUMBER = COUNT
IF COL-NUMBER > 256
THEN
END
47 F2 76UD Rev00
IQS-LINK
LET $LENGTH = ITEM-LENGTH
IF ITEM-TYPE AMONG "PKS" "PK2"
THEN
LET $LENGTH = ITEM-LENGTH / 2 + 1
ELSE
IF ITEM-TYPE = "PK"
THEN
LET $LENGTH = (ITEM-LENGTH + 1) / 2
ELSE
IF ITEM-TYPE = "BIN"
THEN
IF ITEM-LENGTH > 15
THEN
LET $LENGTH = 4
ELSE
LET $LENGTH = 2
END
END
END
END
IF ITEM-TYPE = SUBSTRING("UPKSPKS UPK PK2 PK BIN CHAR",
THEN
EXIT
END
DISPLAY "*** There are too many items (limited to 256)"
RETURN
$TYPE * 4 + 1 ,
4)
C-5