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

Aus phenixxenia.org
Zur Navigation springen Zur Suche springen
K
K
Zeile 8: Zeile 8:
 
|vorwärts=Macro XSET (from Fraktal SAS Programming)
 
|vorwärts=Macro XSET (from Fraktal SAS Programming)
 
}}
 
}}
 +
 +
== 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 ==
  
 
{| class="wikitable"
 
{| class="wikitable"
Zeile 35: Zeile 44:
 
;filename entries pipe "dir /b &XPATH." lrecl = 256;
 
;filename entries pipe "dir /b &XPATH." lrecl = 256;
 
</font>  
 
</font>  
−
|Open access path to listing of OS directory content of type 'file'
+
|Open access path to listing of OS directory content
 
|-
 
|-
 
|
 
|
Zeile 173: Zeile 182:
 
: set dirs(where = (dir = "&XENTRY.")) end = EOF;
 
: set dirs(where = (dir = "&XENTRY.")) end = EOF;
 
</font>  
 
</font>  
−
|Read value from dataset 'dirs' for
+
|Read row from dataset 'dirs' with value equal to content of macro variable 'xentry'
 
|-
 
|-
 
|
 
|
Zeile 179: Zeile 188:
 
:if EOF then call symput('dir',trim(left(put(_N_,8.))));
 
:if EOF then call symput('dir',trim(left(put(_N_,8.))));
 
</font>  
 
</font>  
−
|
+
|Write count of read rows to macro variable 'dir'
 
|-
 
|-
 
|
 
|
Zeile 185: Zeile 194:
 
;run;
 
;run;
 
</font>  
 
</font>  
−
|
+
|Terminate data step
 
|-
 
|-
 
|
 
|
Zeile 191: Zeile 200:
 
;%IF &DIR. = 1 %THEN %DO;
 
;%IF &DIR. = 1 %THEN %DO;
 
</font>  
 
</font>  
−
|
+
|Start macro branch to directory processing
 
|-
 
|-
 
|
 
|
Zeile 197: Zeile 206:
 
:%PUT +----;
 
:%PUT +----;
 
</font>  
 
</font>  
−
|
+
|Write string '+----' to the LOG
 
|-
 
|-
 
|
 
|
Zeile 203: Zeile 212:
 
:%XDIR(&XPATH.&XENTRY.);
 
:%XDIR(&XPATH.&XENTRY.);
 
</font>  
 
</font>  
−
|
+
|Use macro 'xdir' to write list of directory content to the LOG
 
|-
 
|-
 
|
 
|
Zeile 209: Zeile 218:
 
:%PUT +----;
 
:%PUT +----;
 
</font>  
 
</font>  
−
|
+
|Write string '+----' to the LOG
 
|-
 
|-
 
|
 
|
Zeile 215: Zeile 224:
 
;%END;
 
;%END;
 
</font>  
 
</font>  
−
|
+
|End macro branch for directory processing
 
|-
 
|-
 
|
 
|
Zeile 221: Zeile 230:
 
;%ELSE %DO;
 
;%ELSE %DO;
 
</font>  
 
</font>  
−
|
+
|Start macro branch for non-directory processing
 
|-
 
|-
 
|
 
|
Zeile 227: Zeile 236:
 
;%IF %LENGTH(&ETYPE.) ne 0 %THEN %DO;
 
;%IF %LENGTH(&ETYPE.) ne 0 %THEN %DO;
 
</font>  
 
</font>  
−
|
+
|Start macro branch for supplied positional parameter 'etype'
 
|-
 
|-
 
|
 
|
Zeile 233: Zeile 242:
 
;%IF %INDEX(%SCAN(&ETYPE.,2,_),%SCAN(&XENTRY,2,.)) != 0 %THEN %DO;
 
;%IF %INDEX(%SCAN(&ETYPE.,2,_),%SCAN(&XENTRY,2,.)) != 0 %THEN %DO;
 
</font>  
 
</font>  
−
|
+
|Start macro branch for extension of macro variable 'xentry' is found in 2nd delimited segment of macro variable 'etype'
 
|-
 
|-
 
|
 
|
Zeile 239: Zeile 248:
 
:%GLOBAL windir;
 
:%GLOBAL windir;
 
</font>  
 
</font>  
−
|
+
|Declare macro variable 'windir' to be global
 
|-
 
|-
 
|
 
|
Zeile 245: Zeile 254:
 
:%XSET(windir);
 
:%XSET(windir);
 
</font>  
 
</font>  
−
|
+
|Call macro 'xset' to populate macro variable 'windir' from OS environment variable 'windir'
 
|-
 
|-
 
|
 
|
Zeile 251: Zeile 260:
 
:%PUT +----;
 
:%PUT +----;
 
</font>  
 
</font>  
−
|
+
|Write string '+----' to the LOG
 
|-
 
|-
 
|
 
|
Zeile 257: Zeile 266:
 
:%PUT | File &XENTRY. opened in external editor WordPad.;
 
:%PUT | File &XENTRY. opened in external editor WordPad.;
 
</font>  
 
</font>  
−
|
+
|Write string '|' followed by a message to the LOG
 
|-
 
|-
 
|
 
|
Zeile 263: Zeile 272:
 
:SYSTASK command "&WINDIR.\write.exe ""&XPATH.\&XENTRY.""";
 
:SYSTASK command "&WINDIR.\write.exe ""&XPATH.\&XENTRY.""";
 
</font>  
 
</font>  
−
|
+
|Call external program 'write.exe' to open currently processed file
 
|-
 
|-
 
|
 
|
Zeile 269: Zeile 278:
 
:%PUT +----;
 
:%PUT +----;
 
</font>  
 
</font>  
−
|
+
|Write string '+----' to the LOG
 
|-
 
|-
 
|
 
|
Zeile 275: Zeile 284:
 
;%END;
 
;%END;
 
</font>  
 
</font>  
−
|
+
|End macro branch for extension of macro variable 'xentry' is found in 2nd delimited segment of macro variable 'etype'
 
|-
 
|-
 
|
 
|
Zeile 281: Zeile 290:
 
;%IF %INDEX(%SCAN(&ETYPE.,1,_),%SCAN(&XENTRY,2,.)) != 0 %THEN %DO;
 
;%IF %INDEX(%SCAN(&ETYPE.,1,_),%SCAN(&XENTRY,2,.)) != 0 %THEN %DO;
 
</font>  
 
</font>  
−
|
+
|Start macro branch for extension of macro variable 'xentry' is found in 1st delimited segment of macro variable 'etype'
 
|-
 
|-
 
|
 
|
Zeile 287: Zeile 296:
 
:%PUT +----;
 
:%PUT +----;
 
</font>  
 
</font>  
−
|
+
|Write string '+----' to the LOG
 
|-
 
|-
 
|
 
|
Zeile 293: Zeile 302:
 
:%PUT | File &XENTRY. opened in SAS program editor window.;
 
:%PUT | File &XENTRY. opened in SAS program editor window.;
 
</font>  
 
</font>  
−
|
+
|Write string '|' followed by a message to the LOG
 
|-
 
|-
 
|
 
|
Zeile 299: Zeile 308:
 
:%XEDIT(&XENTRY.,&XPATH.);
 
:%XEDIT(&XENTRY.,&XPATH.);
 
</font>  
 
</font>  
−
|
+
|Call macro 'xedit' to open currently processed file in SAS DMS Program Editor
 
|-
 
|-
 
|
 
|
Zeile 305: Zeile 314:
 
:%PUT +----;
 
:%PUT +----;
 
</font>  
 
</font>  
−
|
+
|Write string '+----' to the LOG
 
|-
 
|-
 
|
 
|
Zeile 311: Zeile 320:
 
;%END;
 
;%END;
 
</font>  
 
</font>  
−
|
+
|End macro branch for extension of macro variable 'xentry' is found in 1st delimited segment of macro variable 'etype'
 
|-
 
|-
 
|
 
|
Zeile 317: Zeile 326:
 
;%END;
 
;%END;
 
</font>  
 
</font>  
−
|
+
|End macro branch for supplied positional parameter 'etype'
 
|-
 
|-
 
|
 
|
Zeile 323: Zeile 332:
 
;%END;
 
;%END;
 
</font>  
 
</font>  
−
|
+
|End macro branch for non-directory processing
 
|-
 
|-
 
|
 
|
Zeile 329: Zeile 338:
 
;%END;
 
;%END;
 
</font>  
 
</font>  
−
|
+
|End macro loop to process entries one by one with loop index 'ie'
 
|-
 
|-
 
|
 
|
Zeile 335: Zeile 344:
 
;proc sql;
 
;proc sql;
 
</font>  
 
</font>  
−
|
+
|Invoke the SAS SQL procedure
 
|-
 
|-
 
|
 
|
Zeile 341: Zeile 350:
 
:drop table dirs;
 
:drop table dirs;
 
</font>  
 
</font>  
−
|
+
|Delete table 'dirs'
 
|-
 
|-
 
|
 
|
Zeile 347: Zeile 356:
 
:drop table entries;
 
:drop table entries;
 
</font>  
 
</font>  
−
|
+
|Delete table 'entries'
 
|-
 
|-
 
|
 
|
Zeile 353: Zeile 362:
 
;quit;
 
;quit;
 
</font>  
 
</font>  
−
|
+
|Terminate the SAS SQL procedure
 
|-
 
|-
 
|
 
|
Zeile 359: Zeile 368:
 
;filename entries clear;
 
;filename entries clear;
 
</font>  
 
</font>  
−
|
+
|Close access path to listing of OS directory content
 
|-
 
|-
 
|
 
|
Zeile 365: Zeile 374:
 
;filename dirs clear;
 
;filename dirs clear;
 
</font>  
 
</font>  
−
|
+
|Close access path to listing of OS directory content of type 'dir'
 
|-
 
|-
 
|
 
|

Version vom 29. Januar 2015, 20:33 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

Zurück

Übersicht

Vorwärts

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