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

Aus phenixxenia.org
Zur Navigation springen Zur Suche springen
K
K
Zeile 11: Zeile 11:
 
  %MACRO xdir(xpath);
 
  %MACRO xdir(xpath);
 
  %IF &XPATH. eq %THEN %DO;
 
  %IF &XPATH. eq %THEN %DO;
−
  %WINDOW path irow = 20 icolumn = 30 rows = 15 columns = 60        
+
  %WINDOW path  
−
  #5 @5 'Enter path:'      
+
  irow = 20 rows = 14 icolumn = 30 columns = 64        
−
  #5 @20 xpath 32 attr = underline                 
+
  #4 @5 'Enter path: ' xpath 40 attr = underline                 
 
  ;
 
  ;
 
  %DISPLAY path;
 
  %DISPLAY path;
Zeile 19: Zeile 19:
 
  filename path pipe "dir /b &XPATH." lrecl = 256;
 
  filename path pipe "dir /b &XPATH." lrecl = 256;
 
  data _NULL_;
 
  data _NULL_;
−
  infile path;
+
length entry $256;
−
  input entries $ 1-256;
+
  infile path length = lrecl;
−
   put entries;
+
  input entry $varying256. lrecl;
 +
   put entry;  
 
  run;
 
  run;
 
  %MEND xdir;
 
  %MEND xdir;

Version vom 22. Juli 2014, 14:51 Uhr

Zurück

Übersicht

Vorwärts 

%MACRO xdir(xpath);
%IF &XPATH. eq %THEN %DO;
%WINDOW path 
 irow = 20 rows = 14 icolumn = 30 columns = 64        
 #4 @5 'Enter path: ' xpath 40 attr = underline                
;
%DISPLAY path;
%END;
filename path pipe "dir /b &XPATH." lrecl = 256;
data _NULL_;
length entry $256;
infile path length = lrecl;
input entry $varying256. lrecl;
  put entry; 
run;
%MEND xdir;

Zurück

Übersicht

Vorwärts

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