Bull DPS 7000 Guide De L'utilisateur page 169

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 ^= 0
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
END
ASSIGN SYS-MML TO OUTPUT-NAME
Recherche de la description du fichier d'entrée dans la
métabase.
RETRIEVE SYS-DD
ON ABSENT
DISPLAY "*** The input file is unknown"
RETURN
END
RETRIEVE ONLY 1 SYS-ITEM
Le premier article SYS-ITEM contient la longueur de l'article
IF ITEM-LENGTH > 4096
THEN
DISPLAY
"*** The input record size is too large (limited to 4096)"
RETURN
END
END
47 F2 76UD Rev00
IQS-LINK
SYS-RECORD
WHERE DD-TYPE = "WDD"
AND DD-NAME = UPPER(INPUT-NAME)
"..",
@USER SHORT,
"_DIF",
SUBSTRING(@SLLIB,$INDEX,59 -
$INDEX))
"..",
@USER SHORT,
"_DIF")
C-3