FICHIER-LIG-VOL : lecture de Fichier
BUT Permet la lecture d’un fichier d’un format quelconque decoupé en « lignes » de 1024octets. Si la lecture se passe bien la liste standard ‘WfFicContenu’ contiendra le nom du fichier (champ NomFichier), le numéro et le contenu de chaque ligne du fichier (champs NuméroLigne et ContenuLigne). La variable résultat sera affectée comme suit :
‘ ‘ : si le fichier existe et la lecture se passe correctement.
‘*VIDE’ : si le fichier existe mais est vide.
‘*INCONNU’ : si le fichier n’existe pas.
TYPE CARACTERE
SYNTAXE
Variable = FICHIER-LIG-VOL( NOM-FICHIER= VarNomFichier,
CDE-SYS-OK= VarCdeOK,
CDE-SYS-PB= VarCdeNOK ).
PARAMETRES
Paramètre | E/S | O | Type | Description |
NOM-FICHIER | E | Oui | Caractère | Nom du fichier à lire. |
CDE-SYS-OK | E | Oui | Caractère | Commande système à exécuter si la lecture se passe bien. |
CDE-SYS-PB | E | Oui | Caractère | Commande système à exécuter si la lecture ne se passe pas correctement. |
EXEMPLE VLO.Resultat = FICHIER-LIG-VOL ( NOM-FICHIER= CLO.’/tmp/fic1’,
CDE-SYS-OK= CLO.’cp /tmp/fic1 /tmp/sauv/.’,
CDE-SYS-PB= CLO.’rm /tmp/fic1’ ).
Si la lecture se passe bien :
VLO.Resultat contiendra ‘’ et la liste sera affectée avec les informations du fichier (NomFichier, NuméroLigne et ContenuLigne).
Le fichier sera copié dans le répertoire /tmp/sauv comme l’indique la commande système à exécuter si tout se passe bien.
Sinon :
VLO.Résultat contiendra ‘*INCONNU’ si le fichier est inexistant.
ou
VLO.Résultat contiendra ‘*VIDE’ si le fichier existe mais est vide.