Discussion :

[Ludo_Unilog]

Bonjour,

Dans un programme à exécuter en environnement unix, je dois traiter des fichiers se trouvant dans un répertoire input/ et dont les noms sont inconnus. Pour cela, je dois donc utiliser une routine qui sort le nom des fichiers contenus dans un répertoire.

La fonction call x"91" function 69 ne permet de le faire que dans un environnement windows, dos ou OS/2, mais pas dans un environnement unix.

J'ai essayé d'utiliser les routines "CBL_DIR_SCAN_BEGIN", "CBL_DIR_SCAN_READ" et "CBL_DIR_SCAN_END" (vu sur une doc sur google) qui sont censées faire le scan d'un répertoire dans un environnement unix mais mon compilateur cobol ne semble pas les connaitre ou les trouver.

L'un de vous a t-il une autre solution pour récupérer le nom des fichiers dans un répertoire ?

Merci d'avance.

[Hédhili Jaïdane]

Salut.

J'ai fait ça avec Cobol MF/MS 4.5 et Cobol/2 sous DOS mais sans utiliser x"91"/69.

Je lance un scan que je mets dans un fichier (DIR...>catalog.txt), je déclare le fichier dans mon prog. Cobol "organization is line sequential", je lis et je le traite. Je pense que tu peux faire la même chose sous UNIX que je ne connais pas. Ce n'est qu'une idée à creuser ??

[Fred Ratel]

Salut

Je travaille en environnement HP Unix.

Chez nous, on a tendance à reporter ce problème en amont au niveau du script. Je m'explique :

On génère une boucle qui scan le répertoire input en question, et pour chaque fichier trouvé, on lance le programme COBOL après avoir associé le nom physique du fichier avec le nom logique du propgramme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
for i in $repertoire
do
  association fichier phyisique <-> fichier logique
  exec du programme
done

Par contre, le programme est exécuté autant de fois qu'il y a de fichiers à traiter.

A+
Fred

[Fred Ratel]

Petite précision :
Dans la boucle, le nom du fichier physique est contenu dans la variable i et peut être restitué avec $i.
Bye