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

Aus phenixxenia.org
Zur Navigation springen Zur Suche springen
← Zum vorherigen VersionsunterschiedZum nächsten Versionsunterschied →
Wolf-Dieter Batz (Diskussion | Beiträge)
autoreview, Bürokraten, editor, reviewer, Administratoren
13.967 Bearbeitungen
KKeine Bearbeitungszusammenfassung
Wolf-Dieter Batz (Diskussion | Beiträge)
autoreview, Bürokraten, editor, reviewer, Administratoren
13.967 Bearbeitungen
KKeine Bearbeitungszusammenfassung
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“