Macro XDIR (from Fraktal SAS Programming)

Aus phenixxenia.org
Zur Navigation springen Zur Suche springen

Zurück

Übersicht

Vorwärts

Code executed Function performed
%MACRO xdir(xpath);
Start macro definition with name and positional parameter xpath.
%IF %LENGTH(&XPATH.) = 0 %THEN %DO;
Define branch when parameter xpath is not supplied.
%WINDOW path
Start definition of pop-up window.
irow = 20 rows = 14 icolumn = 30 columns = 64
Specify position and size of window.
#4 @5 'Enter path: ' xpath 40 attr = underline
Specify constant text shown, parameter name to be populated and attributes.
 ;
Terminate pop-up window definition statement.
%DISPLAY path;
Open pop-up window.
%END;
Finalize branch definition for empty parameter xpath.
filename path pipe "dir /b ""&XPATH.""" lrecl = 256;
Define text data stream with type pipe and logical record length.
data _NULL_;
Initiate data step run group.
length entry $256;
Specify length in byte for character field entry.
infile path length = lrecl;
Open text data stream path.
input entry $varying256. lrecl;
Specify structure of data stream path.
put entry;
Write value from field entry to the SAS LOG screen.
run;
Terminate data step run group.
filename path clear;
Revoke definition of text data stream.
%MEND xdir;
END macro definition with name

Zurück

Übersicht

Vorwärts