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

Aus phenixxenia.org
Zur Navigation springen Zur Suche springen
Wolf-Dieter Batz (Diskussion | Beiträge)
KKeine Bearbeitungszusammenfassung
Wolf-Dieter Batz (Diskussion | Beiträge)
KKeine Bearbeitungszusammenfassung
 
(10 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
|übersicht=Macro Programming (from Fraktal SAS Programming)
|übersicht=Macro Programming (from Fraktal SAS Programming)
|zurück=Macro XAMINE (from Fraktal SAS Programming)
|zurück=Macro XEDIT (from Fraktal SAS Programming)
|vorwärts=Macro XAMINE (from Fraktal SAS Programming)
|vorwärts=Macro XSET (from Fraktal SAS Programming)
}}
}}


%MACRO xamine(xpath,etype);
== What it does ==
%GLOBAL ne ie dir;
 
%LOCAL xpath xentry entry etype;
This multilevel structured macro combines the simpler ones from above to perform adapted processing of entries from a specified path 'XPATH'. Behavior depends on filter arguments supplied by a segmented parameter 'ETYPE'.
filename entries pipe "dir /b &XPATH." lrecl = 256;
* Segments are limited hardcoded with an underscore ('_').
filename dirs pipe "dir /b /ad &XPATH." lrecl = 256;  
** 1st segment arguments are processed as SAS program code and copied into the SAS DMS Program Editor.
data entries;
** 2nd segment arguments are processed as Text and passed to the Wordpad text processor from the MS-Windows accessories collection.
length entry $256;
 
infile entries length = lrecl end = EOF;
== Annotated Code ==
input entry $varying256. lrecl;
 
if EOF then call symput('ne',trim(left(put(_N_,8.))));
{| class="wikitable"
run;
! Code executed
data dirs;
! Function performed
length dir $256;
|-
infile dirs length = lrecl end = EOF;
|
input dir $varying256. lrecl;
<font face="Courier New">
run;
;%MACRO xamine(xpath,etype);
%DO ie = 1 %TO &NE.;
</font>
data _NULL_;
|Start Macro definition with name and positional parameters xpath and etype
set entries(firstobs = &IE. obs = &IE.);
|-
call symput('entry',compress(translate(entry,'_','(-)')));
|
call symput('xentry',trim(left(entry)));
<font face="Courier New">
run;
:%GLOBAL ne ie dir;
%PUT |;
</font>
%PUT &XPATH.&XENTRY.;
|Declare global macro variables for communication with called macros
data _NULL_;
|-
  set dirs(where = (dir = "&XENTRY.")) end = EOF;
|
if EOF then call symput('dir',trim(left(put(_N_,8.))));
<font face="Courier New">
run;
:%LOCAL xpath xentry entry etype;
%IF &DIR. = 1 %THEN %DO;
</font>
%PUT +----;
|Declare local macro variables
%XDIR(&XPATH.&XENTRY.);
|-
%PUT +----;
|
%END;
<font face="Courier New">
%ELSE %DO;
;filename entries pipe "dir /b &XPATH." lrecl = 256;
%IF %LENGTH(&ETYPE.) ne 0 %THEN %DO;
</font>
%IF %INDEX(%SCAN(&ETYPE.,2,_),%SCAN(&XENTRY,2,.)) <> 0 %THEN %DO;
|Open access path to listing of OS directory content
%GLOBAL windir;
|-
%XSET(windir);
|
%PUT +----;
<font face="Courier New">
%PUT | File &XENTRY. opened in external editor WordPad.;
;filename dirs pipe "dir /b /ad &XPATH." lrecl = 256;  
SYSTASK command "&WINDIR.\write.exe ""&XPATH.\&XENTRY.""";
</font>
%PUT +----;
|Open access path to listing of OS directory content of type 'dir'
%END;
|-
%IF %INDEX(%SCAN(&ETYPE.,1,_),%SCAN(&XENTRY,2,.)) <> 0 %THEN %DO;
|
%PUT +----;
<font face="Courier New">
%PUT | File &XENTRY. opened in SAS program editor window.;
;data entries;
%XEDIT(&XENTRY.,&XPATH.);
</font>
%PUT +----;
|Initiate data step to access OS directory content
%END;
|-
%END;
|
%END;
<font face="Courier New">
%LET dir =;
:length entry $256;
%END;
</font>
proc sql;
|Declare length of data field 'entry'
drop table dirs;
|-
drop table entries;
|
quit;
<font face="Courier New">
filename entries clear;
:infile entries length = lrecl end = EOF;
filename dirs clear;
</font>
%MEND xamine;
|Set pointer to access path 'entries'
|-
|
<font face="Courier New">
:input entry $varying256. lrecl;
</font>
|Read from 'entries' with variable field length
|-
|
<font face="Courier New">
:if EOF then call symput('ne',trim(left(put(_N_,8.))));
</font>
|Write count of entries to macro variable 'ne'
|-
|
<font face="Courier New">
;run;
</font>
|Terminate data step
|-
|
<font face="Courier New">
;data dirs;
</font>
|Initiate data step to access OS directories listing
|-
|
<font face="Courier New">
:length dir $256;
</font>
|Declare length of data field 'dir'
|-
|
<font face="Courier New">
:infile dirs length = lrecl end = EOF;
</font>
|Set pointer to access path 'dirs'
|-
|
<font face="Courier New">
:input dir $varying256. lrecl;
</font>
|Read from 'dirs' with variable field length
|-
|
<font face="Courier New">
;run;
</font>
|Terminate data step
|-
|
<font face="Courier New">
;%DO ie = 1 %TO &NE.;
</font>
|Start macro loop to process entries one by one with loop index 'ie'
|-
|
<font face="Courier New">
;data _NULL_;
</font>
|Initiate data step without creating a dataset
|-
|
<font face="Courier New">
:set entries(firstobs = &IE. obs = &IE.);
</font>
|Read row number 'ie' from dataset 'entries'
|-
|
<font face="Courier New">
:call symput('entry',compress(translate(entry,'_','(-)')));
</font>
|Write value from read row to macro variable 'entry' with intermediate name processing
|-
|
<font face="Courier New">
:call symput('xentry',trim(left(entry)));
</font>
|Write value from read row to macro variable 'xentry'
|-
|
<font face="Courier New">
;run;
</font>
|Terminate data step
|-
|
<font face="Courier New">
:%PUT |;
</font>
|Write string '|' to the LOG
|-
|
<font face="Courier New">
:%PUT &XPATH.&XENTRY.;
</font>
|Write full path and filename to the LOG
|-
|
<font face="Courier New">
:%LET dir =;
</font>
|Reset value for macro variable 'dir'
|-
|
<font face="Courier New">
;data _NULL_;
</font>
|Initiate data step without creating a dataset
|-
|
<font face="Courier New">
: set dirs(where = (dir = "&XENTRY.")) end = EOF;
</font>
|Read row from dataset 'dirs' with value equal to content of macro variable 'xentry'
|-
|
<font face="Courier New">
:if EOF then call symput('dir',trim(left(put(_N_,8.))));
</font>
|Write count of read rows to macro variable 'dir'
|-
|
<font face="Courier New">
;run;
</font>
|Terminate data step
|-
|
<font face="Courier New">
;%IF &DIR. = 1 %THEN %DO;
</font>
|Start macro branch to directory processing
|-
|
<font face="Courier New">
:%PUT +----;
</font>
|Write string '+----' to the LOG
|-
|
<font face="Courier New">
:%XDIR(&XPATH.&XENTRY.);
</font>
|Use macro 'xdir' to write list of directory content to the LOG
|-
|
<font face="Courier New">
:%PUT +----;
</font>
|Write string '+----' to the LOG
|-
|
<font face="Courier New">
;%END;
</font>
|End macro branch for directory processing
|-
|
<font face="Courier New">
;%ELSE %DO;
</font>
|Start macro branch for non-directory processing
|-
|
<font face="Courier New">
;%IF %LENGTH(&ETYPE.) ne 0 %THEN %DO;
</font>
|Start macro branch for supplied positional parameter 'etype'
|-
|
<font face="Courier New">
;%IF %INDEX(%SCAN(&ETYPE.,2,_),%SCAN(&XENTRY,2,.)) != 0 %THEN %DO;
</font>
|Start macro branch for extension of macro variable 'xentry' is found in 2nd delimited segment of macro variable 'etype'
|-
|
<font face="Courier New">
:%GLOBAL windir;
</font>
|Declare macro variable 'windir' to be global
|-
|
<font face="Courier New">
:%XSET(windir);
</font>
|Call macro 'xset' to populate macro variable 'windir' from OS environment variable 'windir'
|-
|
<font face="Courier New">
:%PUT +----;
</font>
|Write string '+----' to the LOG
|-
|
<font face="Courier New">
:%PUT | File &XENTRY. opened in external editor WordPad.;
</font>
|Write string '|' followed by a message to the LOG
|-
|
<font face="Courier New">
:SYSTASK command "&WINDIR.\write.exe ""&XPATH.\&XENTRY.""";
</font>
|Call external program 'write.exe' to open currently processed file
|-
|
<font face="Courier New">
:%PUT +----;
</font>
|Write string '+----' to the LOG
|-
|
<font face="Courier New">
;%END;
</font>
|End macro branch for extension of macro variable 'xentry' is found in 2nd delimited segment of macro variable 'etype'
|-
|
<font face="Courier New">
;%IF %INDEX(%SCAN(&ETYPE.,1,_),%SCAN(&XENTRY,2,.)) != 0 %THEN %DO;
</font>
|Start macro branch for extension of macro variable 'xentry' is found in 1st delimited segment of macro variable 'etype'
|-
|
<font face="Courier New">
:%PUT +----;
</font>
|Write string '+----' to the LOG
|-
|
<font face="Courier New">
:%PUT | File &XENTRY. opened in SAS program editor window.;
</font>
|Write string '|' followed by a message to the LOG
|-
|
<font face="Courier New">
:%XEDIT(&XENTRY.,&XPATH.);
</font>
|Call macro 'xedit' to open currently processed file in SAS DMS Program Editor
|-
|
<font face="Courier New">
:%PUT +----;
</font>
|Write string '+----' to the LOG
|-
|
<font face="Courier New">
;%END;
</font>
|End macro branch for extension of macro variable 'xentry' is found in 1st delimited segment of macro variable 'etype'
|-
|
<font face="Courier New">
;%END;
</font>
|End macro branch for supplied positional parameter 'etype'
|-
|
<font face="Courier New">
;%END;
</font>
|End macro branch for non-directory processing
|-
|
<font face="Courier New">
;%END;
</font>
|End macro loop to process entries one by one with loop index 'ie'
|-
|
<font face="Courier New">
;proc sql;
</font>
|Invoke the SAS SQL procedure
|-
|
<font face="Courier New">
:drop table dirs;
</font>
|Delete table 'dirs'
|-
|
<font face="Courier New">
:drop table entries;
</font>
|Delete table 'entries'
|-
|
<font face="Courier New">
;quit;
</font>
|Terminate the SAS SQL procedure
|-
|
<font face="Courier New">
;filename entries clear;
</font>
|Close access path to listing of OS directory content
|-
|
<font face="Courier New">
;filename dirs clear;
</font>
|Close access path to listing of OS directory content of type 'dir'
|-
|
<font face="Courier New">
;%MEND xamine;
</font>
|End Macro definition with name
|}
 
== Special Effects ==
 
# The macro makes use of the 'pipe' type file reference. When used appropriately, this returns a list that is instantly generated by an OS command that is given as the statement's argument.
# As an alternate text processing instance the macro uses a SYSTASK statement to call the windows component 'Wordpad'. Since each paticular windows installation uses its own path structure, the macro makes use of the 'windir' environment variable.


{{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
|übersicht=Macro Programming (from Fraktal SAS Programming)
|übersicht=Macro Programming (from Fraktal SAS Programming)
|zurück=Macro XAMINE (from Fraktal SAS Programming)
|zurück=Macro XEDIT (from Fraktal SAS Programming)
|vorwärts=Macro XAMINE (from Fraktal SAS Programming)
|vorwärts=Macro XSET (from Fraktal SAS Programming)
}}
}}

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

Zurück

Übersicht

Vorwärts

What it does

This multilevel structured macro combines the simpler ones from above to perform adapted processing of entries from a specified path 'XPATH'. Behavior depends on filter arguments supplied by a segmented parameter 'ETYPE'.

  • Segments are limited hardcoded with an underscore ('_').
    • 1st segment arguments are processed as SAS program code and copied into the SAS DMS Program Editor.
    • 2nd segment arguments are processed as Text and passed to the Wordpad text processor from the MS-Windows accessories collection.

Annotated Code

Code executed Function performed

%MACRO xamine(xpath,etype);

Start Macro definition with name and positional parameters xpath and etype

%GLOBAL ne ie dir;

Declare global macro variables for communication with called macros

%LOCAL xpath xentry entry etype;

Declare local macro variables

filename entries pipe "dir /b &XPATH." lrecl = 256;

Open access path to listing of OS directory content

filename dirs pipe "dir /b /ad &XPATH." lrecl = 256;

Open access path to listing of OS directory content of type 'dir'

data entries;

Initiate data step to access OS directory content

length entry $256;

Declare length of data field 'entry'

infile entries length = lrecl end = EOF;

Set pointer to access path 'entries'

input entry $varying256. lrecl;

Read from 'entries' with variable field length

if EOF then call symput('ne',trim(left(put(_N_,8.))));

Write count of entries to macro variable 'ne'

run;

Terminate data step

data dirs;

Initiate data step to access OS directories listing

length dir $256;

Declare length of data field 'dir'

infile dirs length = lrecl end = EOF;

Set pointer to access path 'dirs'

input dir $varying256. lrecl;

Read from 'dirs' with variable field length

run;

Terminate data step

%DO ie = 1 %TO &NE.;

Start macro loop to process entries one by one with loop index 'ie'

data _NULL_;

Initiate data step without creating a dataset

set entries(firstobs = &IE. obs = &IE.);

Read row number 'ie' from dataset 'entries'

call symput('entry',compress(translate(entry,'_','(-)')));

Write value from read row to macro variable 'entry' with intermediate name processing

call symput('xentry',trim(left(entry)));

Write value from read row to macro variable 'xentry'

run;

Terminate data step

%PUT |;

' to the LOG

%PUT &XPATH.&XENTRY.;

Write full path and filename to the LOG

%LET dir =;

Reset value for macro variable 'dir'

data _NULL_;

Initiate data step without creating a dataset

set dirs(where = (dir = "&XENTRY.")) end = EOF;

Read row from dataset 'dirs' with value equal to content of macro variable 'xentry'

if EOF then call symput('dir',trim(left(put(_N_,8.))));

Write count of read rows to macro variable 'dir'

run;

Terminate data step

%IF &DIR. = 1 %THEN %DO;

Start macro branch to directory processing

%PUT +----;

Write string '+----' to the LOG

%XDIR(&XPATH.&XENTRY.);

Use macro 'xdir' to write list of directory content to the LOG

%PUT +----;

Write string '+----' to the LOG

%END;

End macro branch for directory processing

%ELSE %DO;

Start macro branch for non-directory processing

%IF %LENGTH(&ETYPE.) ne 0 %THEN %DO;

Start macro branch for supplied positional parameter 'etype'

%IF %INDEX(%SCAN(&ETYPE.,2,_),%SCAN(&XENTRY,2,.)) != 0 %THEN %DO;

Start macro branch for extension of macro variable 'xentry' is found in 2nd delimited segment of macro variable 'etype'

%GLOBAL windir;

Declare macro variable 'windir' to be global

%XSET(windir);

Call macro 'xset' to populate macro variable 'windir' from OS environment variable 'windir'

%PUT +----;

Write string '+----' to the LOG

%PUT | File &XENTRY. opened in external editor WordPad.;

' followed by a message to the LOG

SYSTASK command "&WINDIR.\write.exe ""&XPATH.\&XENTRY.""";

Call external program 'write.exe' to open currently processed file

%PUT +----;

Write string '+----' to the LOG

%END;

End macro branch for extension of macro variable 'xentry' is found in 2nd delimited segment of macro variable 'etype'

%IF %INDEX(%SCAN(&ETYPE.,1,_),%SCAN(&XENTRY,2,.)) != 0 %THEN %DO;

Start macro branch for extension of macro variable 'xentry' is found in 1st delimited segment of macro variable 'etype'

%PUT +----;

Write string '+----' to the LOG

%PUT | File &XENTRY. opened in SAS program editor window.;

' followed by a message to the LOG

%XEDIT(&XENTRY.,&XPATH.);

Call macro 'xedit' to open currently processed file in SAS DMS Program Editor

%PUT +----;

Write string '+----' to the LOG

%END;

End macro branch for extension of macro variable 'xentry' is found in 1st delimited segment of macro variable 'etype'

%END;

End macro branch for supplied positional parameter 'etype'

%END;

End macro branch for non-directory processing

%END;

End macro loop to process entries one by one with loop index 'ie'

proc sql;

Invoke the SAS SQL procedure

drop table dirs;

Delete table 'dirs'

drop table entries;

Delete table 'entries'

quit;

Terminate the SAS SQL procedure

filename entries clear;

Close access path to listing of OS directory content

filename dirs clear;

Close access path to listing of OS directory content of type 'dir'

%MEND xamine;

End Macro definition with name

Special Effects

  1. The macro makes use of the 'pipe' type file reference. When used appropriately, this returns a list that is instantly generated by an OS command that is given as the statement's argument.
  2. As an alternate text processing instance the macro uses a SYSTASK statement to call the windows component 'Wordpad'. Since each paticular windows installation uses its own path structure, the macro makes use of the 'windir' environment variable.

Zurück

Übersicht

Vorwärts