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

Aus phenixxenia.org
Zur Navigation springen Zur Suche springen
K
K
Zeile 23: Zeile 23:
 
:%GLOBAL ne ie dir;
 
:%GLOBAL ne ie dir;
 
</font>  
 
</font>  
−
|
+
|Declare global macro variables for communication with called macros
 
|-
 
|-
 
|
 
|
Zeile 29: Zeile 29:
 
:%LOCAL xpath xentry entry etype;
 
:%LOCAL xpath xentry entry etype;
 
</font>  
 
</font>  
−
|
+
|Declare local macro variables
 
|-
 
|-
 
|
 
|
Zeile 35: Zeile 35:
 
;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'
 
|-
 
|-
 
|
 
|
Zeile 41: Zeile 41:
 
;filename dirs pipe "dir /b /ad &XPATH." lrecl = 256;  
 
;filename dirs pipe "dir /b /ad &XPATH." lrecl = 256;  
 
</font>  
 
</font>  
−
|
+
|Open access path to listing of OS directory content of type 'dir'
 
|-
 
|-
 
|
 
|
Zeile 47: Zeile 47:
 
;data entries;
 
;data entries;
 
</font>  
 
</font>  
−
|
+
|Initiate datastep to access OS directory content
 
|-
 
|-
 
|
 
|
Zeile 53: Zeile 53:
 
:length entry $256;
 
:length entry $256;
 
</font>  
 
</font>  
−
|
+
|Declare length of data field 'entry'
 
|-
 
|-
 
|
 
|
Zeile 59: Zeile 59:
 
:infile entries length = lrecl end = EOF;
 
:infile entries length = lrecl end = EOF;
 
</font>  
 
</font>  
−
|
+
|Set pointer to access path 'entries'
 
|-
 
|-
 
|
 
|
Zeile 65: Zeile 65:
 
:input entry $varying256. lrecl;
 
:input entry $varying256. lrecl;
 
</font>  
 
</font>  
−
|
+
|Read from 'entries' with variable field length
 
|-
 
|-
 
|
 
|
Zeile 71: Zeile 71:
 
:if EOF then call symput('ne',trim(left(put(_N_,8.))));
 
:if EOF then call symput('ne',trim(left(put(_N_,8.))));
 
</font>  
 
</font>  
−
|
+
|Write count of entries to macro variable 'ne'
 
|-
 
|-
 
|
 
|
Zeile 77: Zeile 77:
 
;run;
 
;run;
 
</font>  
 
</font>  
−
|
+
|Terminate datastep
 
|-
 
|-
 
|
 
|
Zeile 83: Zeile 83:
 
;data dirs;
 
;data dirs;
 
</font>  
 
</font>  
−
|
+
|Initiate datastep to access OS directories listing
 
|-
 
|-
 
|
 
|
Zeile 89: Zeile 89:
 
:length dir $256;
 
:length dir $256;
 
</font>  
 
</font>  
−
|
+
|Declare length of data field 'dir'
 
|-
 
|-
 
|
 
|
Zeile 95: Zeile 95:
 
:infile dirs length = lrecl end = EOF;
 
:infile dirs length = lrecl end = EOF;
 
</font>  
 
</font>  
−
|
+
|Set pointer to access path 'dirs'
 
|-
 
|-
 
|
 
|
Zeile 101: Zeile 101:
 
:input dir $varying256. lrecl;
 
:input dir $varying256. lrecl;
 
</font>  
 
</font>  
−
|
+
|Read from 'dirs' with variable field length
 
|-
 
|-
 
|
 
|
Zeile 107: Zeile 107:
 
;run;
 
;run;
 
</font>  
 
</font>  
−
|
+
|Terminate datastep
 
|-
 
|-
 
|
 
|

Version vom 29. Januar 2015, 18:31 Uhr

Zurück

Übersicht

Vorwärts

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 of type 'file'

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

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

data entries;

 Initiate datastep 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 datastep

data dirs;

 Initiate datastep 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 datastep

%DO ie = 1 %TO &NE.;

data _NULL_;

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

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

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

run;

%PUT |;

%PUT &XPATH.&XENTRY.;

%LET dir =;

data _NULL_;

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

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

run;

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

%PUT +----;

%XDIR(&XPATH.&XENTRY.);

%PUT +----;

%END;

%ELSE %DO;

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

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

%GLOBAL windir;

%XSET(windir);

%PUT +----;

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

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

%PUT +----;

%END;

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

%PUT +----;

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

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

%PUT +----;

%END;

%END;

%END;

%END;

proc sql;

drop table dirs;

drop table entries;

quit;

filename entries clear;

filename dirs clear;

%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=5005“