Macro XEDIT (from Fraktal SAS Programming): Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
K |
K |
||
| Zeile 10: | Zeile 10: | ||
%MACRO xedit(xentry,xpath); | %MACRO xedit(xentry,xpath); | ||
| − | %IF &XPATH. | + | %LOCAL xpath; |
| + | %IF %LENGTH(&XPATH.) = 0 %THEN %DO; | ||
%XSET(homeshare); | %XSET(homeshare); | ||
%LET xpath = &HOMESHARE.; | %LET xpath = &HOMESHARE.; | ||
| Zeile 22: | Zeile 23: | ||
%XDIR(&HOMESHARE.); | %XDIR(&HOMESHARE.); | ||
%END; | %END; | ||
| + | filename path clear; | ||
%MEND xedit; | %MEND xedit; | ||
Version vom 29. Juli 2014, 10:49 Uhr
|
|
|
|
%MACRO xedit(xentry,xpath); %LOCAL xpath; %IF %LENGTH(&XPATH.) = 0 %THEN %DO; %XSET(homeshare); %LET xpath = &HOMESHARE.; %END; %IF &XENTRY. ne %THEN %DO; filename path "&XPATH"; DM "PGM"; DM "inc path(&XENTRY.)"; %END; %ELSE %DO; %XDIR(&HOMESHARE.); %END; filename path clear; %MEND xedit;
|
|
|
|
