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

Aus phenixxenia.org
Zur Navigation springen Zur Suche springen
K
K
 
(5 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
 
[[Kategorie:Zazy]]
 
[[Kategorie:Zazy]]
 
{{SeitenNavigation1
 
{{SeitenNavigation1
−
|hoch=Duck_zazy_com.png
+
|hoch=call a macro bubble 0.png
 
|links=xx_left.png
 
|links=xx_left.png
 
|rechts=xx_right.png
 
|rechts=xx_right.png
Zeile 8: Zeile 8:
 
|vorwärts=Macro XAMINE (from Fraktal SAS Programming)
 
|vorwärts=Macro XAMINE (from Fraktal SAS Programming)
 
}}
 
}}
 +
 +
== What it does ==
 +
 +
'''This SAS Macro opens a Program Editor Window in the ''SAS Display Manager'' and loads the file specified by parameters ''xpath'' and ''xentry''.'''
 +
* When ''xpath'' is not supplied, the macro ''XSET'' is called to get the user's home directory and then uses this path.
 +
* When ''xentry'' is not given, the macro calls ''XDIR'' to list the directory content in the LOG screen.
 +
 +
== Annotated Code ==
  
 
{| class="wikitable"
 
{| class="wikitable"
Zeile 14: Zeile 22:
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
;%MACRO xedit(xentry,xpath);
 
;%MACRO xedit(xentry,xpath);
 +
</font>
 
|Start macro definition with name and positional parameters ''xentry'' and ''xpath''.
 
|Start macro definition with name and positional parameters ''xentry'' and ''xpath''.
−
|-
+
|-  
 
|
 
|
 +
<font face="Courier New">
 
:%LOCAL xpath;
 
:%LOCAL xpath;
 +
</font>
 
|Declare scope for ''xpath'' to be local.
 
|Declare scope for ''xpath'' to be local.
−
|-
+
|-  
 
|
 
|
 +
<font face="Courier New">
 
;%IF %LENGTH(&XPATH.) = 0 %THEN %DO;
 
;%IF %LENGTH(&XPATH.) = 0 %THEN %DO;
 +
</font>
 
|Start branch for condition "''xpath'' not specified".
 
|Start branch for condition "''xpath'' not specified".
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
:%XSET(homeshare);
 
:%XSET(homeshare);
 +
</font>
 
|Call macro ''XSET'' to obtain user's home directory.
 
|Call macro ''XSET'' to obtain user's home directory.
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
:%LET xpath = &HOMESHARE.;
 
:%LET xpath = &HOMESHARE.;
 +
</font>
 
|Populate ''xpath'' with content from ''homeshare''.
 
|Populate ''xpath'' with content from ''homeshare''.
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
;%END;
 
;%END;
 +
</font>
 
|End branch for condition "''xpath'' not specified".
 
|End branch for condition "''xpath'' not specified".
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
;filename path "&XPATH";
 
;filename path "&XPATH";
 +
</font>
 
|Create file reference using ''xpath''.
 
|Create file reference using ''xpath''.
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
;%IF %LENGTH(&XENTRY.) != 0 %THEN %DO;
 
;%IF %LENGTH(&XENTRY.) != 0 %THEN %DO;
 +
</font>
 
|Start branch for condition "''xentry'' is not empty".
 
|Start branch for condition "''xentry'' is not empty".
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
:DM "PGM";
 
:DM "PGM";
 +
</font>
 
|Open Program Editor window in '''''SAS''''' display manager.
 
|Open Program Editor window in '''''SAS''''' display manager.
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
:DM "inc path(&XENTRY.)";
 
:DM "inc path(&XENTRY.)";
 +
</font>
 
|Load text file specified by ''xentry'' from directory specified by ''xpath''.
 
|Load text file specified by ''xentry'' from directory specified by ''xpath''.
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
;%END;
 
;%END;
 +
</font>
 
|End branch for condition "''xentry'' is not empty".
 
|End branch for condition "''xentry'' is not empty".
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
;%ELSE %DO;
 
;%ELSE %DO;
 +
</font>
 
|Start branch for condition "''xentry'' is empty".
 
|Start branch for condition "''xentry'' is empty".
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
:%XDIR(&HOMESHARE.);
 
:%XDIR(&HOMESHARE.);
 +
</font>
 
|Call macro ''XDIR'' to show content in user's home directory.
 
|Call macro ''XDIR'' to show content in user's home directory.
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
;%END;
 
;%END;
 +
</font>
 
|End branch for condition "''xentry'' is empty".
 
|End branch for condition "''xentry'' is empty".
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
;filename path clear;
 
;filename path clear;
 +
</font>
 
|Clear fileref pointing to ''xpath''.
 
|Clear fileref pointing to ''xpath''.
 
|-
 
|-
 
|
 
|
 +
<font face="Courier New">
 
;%MEND xedit;
 
;%MEND xedit;
 +
</font>
 
|Finalize macro definition with name.
 
|Finalize macro definition with name.
 
|}
 
|}
  
 
{{SeitenNavigation1
 
{{SeitenNavigation1
−
|hoch=Duck_zazy_com.png
+
|hoch=call a macro bubble 0.png
 
|links=xx_left.png
 
|links=xx_left.png
 
|rechts=xx_right.png
 
|rechts=xx_right.png

Aktuelle Version vom 6. Januar 2016, 18:39 Uhr

Zurück

Übersicht

Vorwärts

What it does

This SAS Macro opens a Program Editor Window in the SAS Display Manager and loads the file specified by parameters xpath and xentry.

  • When xpath is not supplied, the macro XSET is called to get the user's home directory and then uses this path.
  • When xentry is not given, the macro calls XDIR to list the directory content in the LOG screen.

Annotated Code

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.

Zurück

Übersicht

Vorwärts

Abgerufen von „https://phenixxenia.org/w/index.php?title=Macro_XEDIT_(from_Fraktal_SAS_Programming)&oldid=7641“