FIC-PROGRESS : lecture Fichier PROGRESS
BUT Permet la lecture d’un fichier format progress. 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 sous format de liste chaînée (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 = FIC- PROGRESS ( NOM-FICHIER= VarNomFichier,
SEPARATEUR= VarSéparateur,
REMP-SEPARATEUR= VarRempSéparateur,
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. |
SEPARATEUR | E | Oui | Caractère | Caractère séparateur de la liste chaînée du contenu des lignes. |
REMP-SEPARATEUR | E | Oui | Caractère | Caractère remplaçant le séparateur dans un élément de la liste chaînée du contenu de la ligne. |
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 = FIC-PROGRESS( NOM-FICHIER= CLO.’/tmp/fic1’,
SEPARATEUR= CLO.’/’,
REMP-SEPARATEUR= CLO.’%’,
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 :
Si le fichier est inexistant :
VLO.Résultat contiendra ‘*INCONNU’.
Si le fichier existe mais est vide :
VLO.Résultat contiendra ‘*VIDE’.