Discussion :

[JeromeMATHIAS]

Bonjour,

Est-il possible de connaitre le répertoire courant du programme où s'exécute le code?

J'ouvre le fichier "c:\MonProgramme\MonCode.sas" , je voudrais à l'exécution de MonCode.sas qu'une macro variable monDir soit créée de valeur monDir=c:\MonProgramme

Merci

[s_a_m]

Hello Jérome;
tout est ici :

Code :

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

1
2
3
4
5
 
 
proc sql;
create table files as select * from dictionary.EXTFILES;
quit;

il y a une fonction qui permet de régupérer le nom de ton PGM mais j'ai oublié le nom

[olivier.decourt]

Et sous Windows on peut faire

Code :

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

%sysget(SAS_EXECFILENAME)

pour le nom du fichier (sans le répertoire), tandis que pour répertoire + fichier on a

Code :

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

%sysget(SAS_EXECFILEPATH)

Ce qui fait que pour ton répertoire il faut demander

Code :

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

1
2
3
%SUBSTR(%SYSGET(sas_execfilepath),1,
             %EVAL(%LENGTH(%SYSGET(sas_execfilepath))-
                   %LENGTH(%SYSGET(sas_execfilename))-1))

(beurk)

[datametric]

Dans le même ordre d'idée, connaitre le répertoire courant du programme où s'exécute le code, c'est possible ?

Depuis EG ou en batch ?

[JeromeMATHIAS]

En SAS normal sur serveur, c'est pour faire un programme "portable" avec des tables associées qui ont pour vocation d'être dans la même arborescence que le code du programme, comme ça inutile de changer le chemin à chaque fois si SAS sait le trouver.

Merci à s_a_m et Olivier.

[mattkodio]

En SAS normal sur serveur, c'est pour faire un programme "portable" avec des tables associées qui ont pour vocation d'être dans la même arborescence que le code du programme, comme ça inutile de changer le chemin à chaque fois si SAS sait le trouver.

Merci à s_a_m et Olivier.

MERCI D'UTILISER CES CODES

Code :

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

1
2
var appdir: string;
AppDir := ExtractFilePath(Application.ExeName);

//OU ENCORE

Code :

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

AppDir := ExtractFilePath(ParamStr(0));

MATHIEU KODIO

[JeromeMATHIAS]

MERCI D'UTILISER CES CODES

//var appdir: string;

//AppDir := ExtractFilePath(Application.ExeName);

//OU ENCORE

//AppDir := ExtractFilePath(ParamStr(0));


MATHIEU KODIO

Bonjour,

hors sujet, mais merci quand même

Quand à l'impératif...

Bon vent

[tiyolx]

Bonjour à tous ce message est assez ancien mais peut-être qu'il peut servir à d'autre.

Alors il faut utiliser un arborescence comme la mienne sinon il faut changer les calcules des longueurs.
Voici une images des dossiers :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
* ===========================================================================;
* ===========================================================================;
* =========================         DEMARRAGE          ======================;
* ===========================================================================;
* ===========================================================================;
* On nomme la librairie;
%let rep=TON_ACRONYME;
%let maversion=TA_VERSION;
* On choisit un répertoire de travail à executer à chaque ouverture de programme;
%let longueur1=%EVAL(%LENGTH(%SYSGET(sas_execfilepath))-%LENGTH(%SYSGET(sas_execfilename))-1);
%let longueur2=%EVAL(&longueur1.-4); /* le programme se trouve dans le dossier "\SAS" donc moins 4 caractères */
%let chemin=%SUBSTR(%SYSGET(sas_execfilepath),1,&longueur2.);
 
libname &rep. "&chemin.\TABLES" ;
 
* On créer les répertoires ci-dessous dans le répertoire racine de l''analyse;
* On désigne les répertoires de stockage des sorties et des programmes;
%let source=&chemin.\SOURCES;
%let sortie=&chemin.\SORTIES;
 
* On ouvre la librairie des programmes SAS macro et on charge les macros;
* Attention il faut changer la lettre selon son arborescence;
libname CMRUN 'W:\MACRO_SAS' ; 
 
options mstored sasmstore=CMRUN ;
* ===========================================================================;

voilà bon courage à tous