Bull DPS 7000 Guide De L'utilisateur page 178

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
4096)"
END
END
LET ROW-NUMBER = 0
Calcul du nombre d'articles du fichier.
READ * INPUT-NAME AS INPUT-BUFFER
LET ROW-NUMBER = COUNT
END
IF @STATUS = FILENCR
OR @STATUS = FILEMPTY
THEN
DISPLAY "*** The input file is empty"
RETURN
END
LET COL-NUMBER = 0
Création d'une table de définition des zones.
Seuls les zones élémentaires et les vecteurs sont pris en
compte.
Les éléments des groupes répétitifs sont ignorés.
RETRIEVE SYS-ITEM
>
DO $N =1 TO ITEM-NOCC
C-12
IQS - Guide de l'utilisateur expert
SYS-RECORD
WHERE DD-NAME = UPPER(INPUT-NAME)
AND DD-TYPE = "WDD"
DISPLAY
"*** The input record size is too large (limited to
RETURN
WHERE ITEM-TYPE AMONG
AND (ITEM-NSUBS < 1 OR (ITEM-NSUBS = 1 AND ITEM-NOCC
1))
("UPKS" "PKS" "UPK" "PK2"
"PK" "BIN" "CHAR")
47 F2 76UD Rev00