Discussion :

[morey13]

Bonjour tout le monde !!!

je suis à la recherche d'une commande me permettant de récupérer le nom du fichier physique actuellement ouvert.

Code :

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

1
2
3
4
FILE-CONTROL.
           SELECT FICENT1 ASSIGN TO EXTERNAL FE1
                  ORGANIZATION IS LINE SEQUENTIAL
                  FILE STATUS  IS WOR-CRFE1.

Merci d'avance pour votre aide très précieuse !!!


MoreY

[Hédhili Jaïdane]

Bonjour.

De quel OS il s'agit ? Lire cette discussion : Règle Tag [SystèmeExploitation-VersionCompilateur]

A priori, pour certains OS le fichier réellement ouvert est celui du contenu de la variable FE1 qui représente d'après ton SELECT le nom système du fichier. Pour d'autres c'est FE1 le nom du fichier supposé sur l'unité par défaut qui peut être éventuellement être substitué par des Overrides.

Si c'est une commande OS que tu cherches, c'est une autre paire de manches.

[morey13]

je suis sous UNIX !

mes fichiers contiennent, dans le nom physique, une information capitale !
j'ai donc trois possibilités :
- modifier mon script de lancement pour mettre en paramètre le nom du fichier
- mettre dans le fichier (zone libre) le nom physique (en amont)
- le top du top : lire ce nom physique dans mon source cobol !!!


Merci beaucoup pour ton aide Hédhili Jaïdane !!!

[Hédhili Jaïdane]

je suis à la recherche d'une commande me permettant de récupérer le nom du fichier physique actuellement ouvert.

Est ce que tu cherches le nom du fichier réellement ouvert par le programme en cours d'exécution ou tu cherches comment passer le nom du fichier à ouvrir par le programme avant de poursuivre les traitement parce que le programme ouvre une fois un fichier et une autre un autre fichier ?

Précise s'il te plaît ce que tu veux faire exactement et quel est ton compilateur Cobol.

Edit :
Je ne connais pas Unix ni le langage de contrôle (script) qui te permet de lancer un programme après avoir préparé son environnement d'exécution, mais au vu de :

- le top du top : lire ce nom physique dans mon source cobol !!!

je dirais :

* qu'il faut passer les données qui te permettent de constituer le nom du fichier en paramètres au programme Cobol qui se chargera :
- de construire le nom du fichier par des STRING et de l'ouvrir après ça si ton compilateur le permet
- et de traiter ces données à ta guise

voir ce post dans cette discussion : Utilisation de fichiers "génériques"


* ou de constituer le nom du fichier dans le script et de le passer en paramètre au programme si ton compilateur ne te permet pas d'ouvrir un fichier dont le nom externe est variable.

[morey13]

Excusez moi pour cette non compréhension,

je vais essayer de clarifier le problème !

Tout d'abord, je travaille sur AIX Version 5.2 avec une version de Cobol
V5.0 revision 0 build 10/10/2 G; 24906. Run Time System RXCAM/AA0/00000U

mon script actuel boucle sur un répertoire contenant n fichiers et lance
autant de fois le programme cobol qu'il y a de fichiers dans le répertoire !

Je souhaite donc, dans mon programme cobol, connaître le nom physique du fichier traité sans pour autant utiliser un paramètre de lancement !

Est ce un peu plus clair ? :-)

[Hédhili Jaïdane]

...mon script actuel boucle sur un répertoire contenant n fichiers et lance autant de fois le programme cobol qu'il y a de fichiers dans le répertoire !

Je souhaite donc, dans mon programme cobol, connaître le nom physique du fichier traité sans pour autant utiliser un paramètre de lancement !

Est ce un peu plus clair ? :-)

Oui, c'est assez clair. Je ne pense pas que cela existe, le nom externe ou physique du fichier n'est connu que du système, le programme ne peut pas le connaitre à moins qu'il existe quelque de spécial sur Unix qui retourne au programme le nom des fichiers ouverts dans des registres spéciaux.

Le seul moyen que j'ai trouvé jusque là est ce je j'expliquais dans l'Edit de mon dernier post.

Il peut exister d'autres solutions que j'ignore.