Macro XEDIT (from Fraktal SAS Programming): Unterschied zwischen den Versionen

Version vom 5. August 2014, 09:14 Uhr

Code executed	Function performed
%MACRO xedit(xentry,xpath);	Start macro definition with name and positional parameters xentry and xpath.
%LOCAL xpath;	Declare scope for xpath to be local.
%IF %LENGTH(&XPATH.) = 0 %THEN %DO;	Start branch for condition "xpath not specified".
%XSET(homeshare);	Call macro XSET to obtain user's home directory.
%LET xpath = &HOMESHARE.;	Populate xpath with content from homeshare.
%END;	End branch for condition "xpath not specified".
filename path "&XPATH";	Create file reference using xpath.
%IF %LENGTH(&XENTRY.) != 0 %THEN %DO;	Start branch for condition "xentry is not empty".
DM "PGM";	Open Program Editor window in SAS display manager.
DM "inc path(&XENTRY.)";	Load text file specified by xentry from directory specified by xpath.
%END;	End branch for condition "xentry is not empty".
%ELSE %DO;	Start branch for condition "xentry is empty".
%XDIR(&HOMESHARE.);	Call macro XDIR to show content in user's home directory.
%END;	End branch for condition "xentry is empty".
filename path clear;	Clear fileref pointing to xpath.
%MEND xedit;	Finalize macro definition with name.

@@ Zeile 15: / Zeile 15: @@
 |
 ;%MACRO xedit(xentry,xpath);
-|
+|Start macro definition with name and positional parameters ''xentry'' and ''xpath''.
 |-
 |
 :%LOCAL xpath;
-|
+|Declare scope for ''xpath'' to be local.
 |-
 |
 ;%IF %LENGTH(&XPATH.) = 0 %THEN %DO;
-|
+|Start branch for condition "''xpath'' not specified".
 |-
 |
 :%XSET(homeshare);
-|
+|Call macro ''XSET'' to obtain user's home directory.
 |-
 |
 :%LET xpath = &HOMESHARE.;
-|
+|Populate ''xpath'' with content from ''homeshare''.
 |-
 |
 ;%END;
-|
+|End branch for condition "''xpath'' not specified".
 |-
 |
 ;filename path "&XPATH";
-|
+|Create file reference using ''xpath''.
 |-
 |
 ;%IF %LENGTH(&XENTRY.) != 0 %THEN %DO;
-|
+|Start branch for condition "''xentry'' is not empty".
 |-
 |
 :DM "PGM";
-|
+|Open Program Editor window in '''''SAS''''' display manager.
 |-
 |
 :DM "inc path(&XENTRY.)";
-|
+|Load text file specified by ''xentry'' from directory specified by ''xpath''.
 |-
 |
 ;%END;
-|
+|End branch for condition "''xentry'' is not empty".
 |-
 |
 ;%ELSE %DO;
-|
+|Start branch for condition "''xentry'' is empty".
 |-
 |
 :%XDIR(&HOMESHARE.);
-|
+|Call macro ''XDIR'' to show content in user's home directory.
 |-
 |
 ;%END;
-|
+|End branch for condition "''xentry'' is empty".
 |-
 |
 ;filename path clear;
-|
+|Clear fileref pointing to ''xpath''.
 |-
 |
 ;%MEND xedit;
+|Finalize macro definition with name.
 |}