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. eq %THEN %LET xpath = | + | %IF &XPATH. eq %THEN %DO; |
| + | %XSET(homeshare); | ||
| + | %LET xpath = &HOMESHARE.; | ||
| + | %END; | ||
| + | %IF &XENTRY. ne %THEN %DO; | ||
filename path "&XPATH"; | filename path "&XPATH"; | ||
DM "PGM"; | DM "PGM"; | ||
DM "inc path(&XENTRY.)"; | DM "inc path(&XENTRY.)"; | ||
| + | %END; | ||
| + | %ELSE %DO; | ||
| + | %XDIR(&HOMESHARE.); | ||
| + | %END; | ||
%MEND xedit; | %MEND xedit; | ||
Version vom 22. Juli 2014, 11:26 Uhr
|
|
|
|
%MACRO xedit(xentry,xpath); %IF &XPATH. eq %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; %MEND xedit;
|
|
|
|
