Bull DPS 7000 Guide De L'utilisateur page 177

Requête H_IQS_MML_SYLK
Cette requête lit un fichier dont une description existe déjà
et produit un fichier de sortie au format SYLK.
SYLK est l'abréviation de SYmbolic LinK. Ce format permet à
divers processeurs d'échanger des tableaux.
Le fichier d'entrée est soit un fichier créé au moyen des
commandes EXTRACT, WRITE, SORT, COPY ou MERGE ou des
instructions WRITE ou SORT, soit un fichier auquel une
structure a été associée au moyen d'une commande
USE SRUCTURE.
DEFINE
1
Demande des paramètres.
Le nom implicite du fichier d'entrée est WORK.
Le fichier de sortie implicite est une unité de la
bibliothèque origine. Son nom est formé par concaténation du
nom utilisateur et du suffixe _SYLK.
LET INPUT-NAME = "WORK"
ALTER INPUT-NAME PROMPT "Name of the input file"
IF INPUT-NAME ABSENT
THEN
RETURN
END
LET $INDEX = INDEX(@SLLIB,":") + INDEX(@SLLIB,"$")
IF $INDEX ^= O
THEN
LET OUTPUT-NAME = CONCATENATE(SUBSTRING(@SLLIB,1,$INDEX -
1)SHORT,
ELSE
LET OUTPUT-NAME = CONCATENATE(@SLLIB SHORT,
END
ALTER OUTPUT-NAME PROMPT "File literal of the output file"
IF OUTPUT-NAME ABSENT
THEN
RETURN
47 F2 76UD Rev00
IQS-LINK
WORKING-AREA,
2 INPUT-NAME
2 OUTPUT-NAME
2 WORK-CHAR
2 INPUT-BUFFER (4096)
2 OUTPUT-BUFFER
2 COL-NUMBER
2 COL-CHAR
2 ROW-NUMBER
2 ROW-CHAR
2 ITEM-DEF (256) ,
3 IT-TYPE
3 IT-LENGTH
3 IT-SCALE
3 IT-OFFSET
CHARACTER 30 ,
CHARACTER 190 ,
CHARACTER 35 ,
CHARACTER 1 ,
CHARACTER 72 ,
BINARY 15 ,
CHARACTER 6 ,
BINARY 15 ,
CHARACTER 6 ,
BINARY 15 ,
BINARY 15 ,
BINARY 15 ,
BINARY(15)
"..",
@USER SHORT,
"_SYLK",
SUBSTRING(@SLLIB,$INDEX,59 -
$INDEX))
"..",
@USER SHORT,
"_SYLK")
C-11