Skip to main content
Skip table of contents

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’.

JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.