OPEN nom-fich AS exp-num-1 [LEN exp-num-2]
Ouvre un fichier à accès direct sur disque et lui affecte un canal d’entrée-sortie.
Paramètre | Description |
---|---|
nom-fich | Nom du fichier |
exp-num-1 | Numéro de canal compris entre 1 et 12 |
exp-num-2 | Longueur de l’enregistrement logique |
Exemple 1
10 OPEN "VIRT" AS 1
20 DIM #1 A(10)
30 FOR X% = 0 TO 10
40 PRINT A(X%)
50 NEXT X%
60 CLOSE 1
Ce programme commence par ouvrir le fichier « VIRT.DAT » (ligne 10) et l’affecte au canal 1. Ce canal est ensuite associé au tableau virtuel de réels A(*), dont tous les éléments sont affichés (lignes 30 à 50).
Exemple 2
10 OPEN "PERSON" AS 2 LEN 50
20 FIELD #2, 30 AS NOM$, 12 AS PRE$, 8 AS SAL$
30 FOR X% = 1 TO 10
40 GET #2 RECORD X%
50 PRINT NOM$, PRE$, CVT$F(SAL$)
60 NEXT X%
70 CLOSE 2
Ce programme ouvre le fichier à accès direct « PERSON.DAT » et l’affecte au canal 2 en spécifiant une longueur d’enregistrement de 50 caractères. Après la définition du tampon d’entrée-sortie (ligne 20), les dix premiers enregistrements du fichier sont lus et les trois zones qui les composent sont affichées (lignes 30 à 60) ; enfin, le fichier est fermé (ligne 70).
Action
L’instruction OPEN effectue l’ouverture du fichier à accès direct nom-fich
et l’affecte au canal exp-num-1
qui doit être compris entre 1 et 12.
- Le nom du fichier doit respecter les règles du système d’exploitation.
- Le cas échéant, la longueur de l’enregistrement est précisée par
exp-num-2
. La valeur par défaut deexp-num-2
est 252. - Si le fichier n’existe pas, il est automatiquement créé.