Bull DPS 7000 Guide De L'utilisateur page 181

IF $NAME-LENGTH > $LENGTH
THEN
END
LET $LENGTH = $LENGTH + 1
La variable $LENGTH contient maintenant la largeur de
colonne.
Définition de la largeur de colonne lorsqu'elle est
différente de 10 (10 est la valeur implicite).
END
Définition du nombre de chiffres après la virgule.
Affectation du nom de la zone à la colonne.
END
47 F2 76UD Rev00
IQS-LINK
LET $LENGTH = $NAME-LENGTH
IF $LENGTH NE 10
THEN
IF $LENGTH < 3
THEN
LET $LENGTH = 3
END
LET ROW-CHAR = $LENGTH
LET OUTPUT-BUFFER = CONCATENATE("F;W",
WRITE OUTPUT-BUFFER TO TEMP-MML
IF ITEM-SCALE NE "CHAR"
THEN
IF ITEM-SCALE NE 0
THEN
LET ROW-CHAR = ITEM-SCALE
LET OUTPUT-BUFFER = CONCATENATE("F;FF",
WRITE OUTPUT-BUFFER TO TEMP-MML
END
LET ROW-CHAR = ROW-NUMBER + 2
LET OUTPUT-BUFFER = CONCATENATE("NN;N",
WRITE OUTPUT-BUFFER TO TEMP-MML
COL-CHAR SHORT,
" ",
COL-CHAR SHORT
" ",
ROW-CHAR)
ROW-CHAR SHORT,
"D;C",
COL-CHAR)
COL-CHAR SHORT,
";ER3:",
COL-CHAR SHORT,
"C",
COL-CHAR SHORT)
C-15