Discussion :

[RemiBousquet]

Bonjour,
Je souhaite mettre à jour des fichiers dans le cadre de monitoring.
De façon ponctuelle, le fichier que je veux mettre à jour est en cours d'utilisation par quelqu'un d'autre.
Dans ce cas là, je voudrai interrompre mon process avant l'inévitable erreur d'exécution.
Quelqu'un sait il comment, avec des commandes sas (windows) ou avec des commandes dos exécutées depuis sas, tester si un fichier existant est en cours d'utilisation ?
A votre bon coeur,
Rémi

[datametric]

Quelque chose comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
         filename pfile "&PRODFILE";
         data _null_;
         inuse = fopen('pfile');
         call symputx('INUSE',inuse);
         if inuse = 0 then do;
                 put '*** Attention: Fichier UTILISE ***';
                 put "&PRODFILE";
          end;
         run;
         %IF &INUSE NE 0 %THEN %DO;
...

[RemiBousquet]

Super, ça marche bien : la variable INUSE vaut 0 quand le fichier existe.

Question subsidiaire : dans quel cas faut il conclure le fopen par un fclose ?
(Les utilisateurs de mes macros pourraient utiliser SAS windows et SAS unix)

[datametric]

je pense que tu peux le mettre de façon permanente avant le run; mais logiquement si inuse=0 alors il n'a pas pu l'ouvrir.

[RemiBousquet]

J'ai fait mes tests avec le code suivant :

Code :

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

1
2
3
4
5
6
7
data _null_;
    inuse = fopen('pfile');
    putlog "value of inuse = fopen('pfile') : "  inuse @ ;
    if inuse = 0 
        then putlog " -> file could not be open" ;
        else putlog " -> file could be open" ;
run ;

Sous Windows, ça marche : inuse = 0 quand le fichier spécifié par le filename pfile est ouvert.

Sous Unix, en revanche, ça ne marche pas : inuse = 1 même si le fichier spécifié est ouvert !
Est-ce lié au fait que j'ouvre le fichier du serveur Unix avec l'explorateur Windows ? (là ça sort carrément de mon champ de compétence...)