| 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 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 value from dataset 'dirs' for
|
|
- 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
|
