Bull DPS 7000 Guide De L'utilisateur page 183

Définition de la taille du tableau.
LET OUTPUT-BUFFER = CONCATENATE("B;Y",
WRITE OUTPUT-BUFFER TO SYS-MML SHORT
Transfert des définitions précédentes du fichier de travail
au fichier de sortie.
READ TEMP-MML
WRITE TO SYS-MML SHORT
END
LET ROW-NUMBER = 2
Définition du contenu de chaque cellule du tableau.
READ * INPUT-NAME AS INPUT-BUFFER
LET ROW-NUMBER = COUNT
LET ROW-CHAR = ROW-NUMBER
DO $I = 1 TO COL-NUMBER
Cellule contenant une valeur alphanumérique.
LENGTH($I))SHORT
ELSE
Cellule contenant une valeur numérique.
END
47 F2 76UD Rev00
IQS-LINK
LET COL-CHAR = $I
IF IT-TYPE($I) = 6
THEN
LET WORK-CHAR = CONCATENATE("""",
LET WORK-CHAR = VALUE(INPUT-BUFFER(IT-OFFSET($I)),
IF @STATUS ILLDATA
THEN
LET ROW-CHAR = ROW-NUMBER - 2
DISPLAY CONCATENATE("* The record",
LET ROW-CHAR = ROW-NUMBER
END
ROW-CHAR SHORT,
";X",
COL-CHAR SHORT)
SUBSTRING(INPUT-BUFFER,
IT-OFFSET($I),
IT-
"""")
IT-TYPE($I),
IT-LENGTH($I),
IT-SCALE($I))
ROW-CHAR SHORT,
" contains illegal numeric data")
C-17