MACRO GET ATTR: Unterschied zwischen den Versionen

Aus phenixxenia.org
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „Kategorie:zazy %MACRO GET_ATTR(dsn=,source=,attrib=) / store des = "Get attribute from SAS Variable"; %LOCAL name; %LET name = GET_ATTR; '''%IF &DSN…“)
 
K
Zeile 5: Zeile 5:
 
  %LOCAL name;
 
  %LOCAL name;
 
  %LET name = GET_ATTR;
 
  %LET name = GET_ATTR;
  '''%IF &DSN ne and &SOURCE ne and &ATTRIB ne %THEN %DO;'''
+
  '''%IF &DSN. ne and &SOURCE. ne and &ATTRIB. ne %THEN %DO;'''
  '''%IF %INDEX(&DSN,.) eq 0 %THEN %DO;'''
+
  '''%IF %INDEX(&DSN.,.) eq 0 %THEN %DO;'''
  %LET dsn=WORK.&DSN;
+
  %LET dsn=WORK.&DSN.;
 
  '''%END;'''
 
  '''%END;'''
  ''proc datasets nolist lib = %SCAN(&DSN,1);''
+
  ''proc datasets nolist lib = %SCAN(&DSN.,1);''
  ''contents noprint data = %SCAN(&DSN,2)(keep=&SOURCE) out = work.tmp_data(keep=&ATTRIB);''
+
  ''contents noprint data = %SCAN(&DSN.,2)(keep=&SOURCE.) out = work.tmp_data(keep = &ATTRIB.);''
 
  ''run;''
 
  ''run;''
 
  ''quit;''
 
  ''quit;''
 
  ''proc sql noprint;''
 
  ''proc sql noprint;''
  ''select &ATTRIB''
+
  ''select &ATTRIB.''
  ''  into :&ATTRIB''
+
  ''  into :&ATTRIB.''
 
  ''  from work.tmp_data''
 
  ''  from work.tmp_data''
 
  '';''
 
  '';''
  '''%IF %UPCASE(&ATTRIB) ne LABEL %THEN %DO;'''
+
  '''%IF %UPCASE(&ATTRIB.) ne LABEL %THEN %DO;'''
  %LET &ATTRIB = &&&ATTRIB;
+
  %LET &ATTRIB. = &&&ATTRIB.;
 
  '''%END;'''
 
  '''%END;'''
 
  ''quit;''
 
  ''quit;''
 
  %PUT &NAME._MESSAGE: Temporary SAS dataset WORK.TMP_DATA created ;
 
  %PUT &NAME._MESSAGE: Temporary SAS dataset WORK.TMP_DATA created ;
  %PUT &NAME._MESSAGE: Field %UPCASE(&SOURCE) in dataset %UPCASE(&DSN) has &ATTRIB = %BQUOTE(&&&ATTRIB.). ;
+
  %PUT &NAME._MESSAGE: Field %UPCASE(&SOURCE) in dataset %UPCASE(&DSN.) has &ATTRIB. = %BQUOTE(&&&ATTRIB.). ;
 
  %PUT &NAME._MESSAGE: Information stored into Local Macrovariable of calling environment: ;
 
  %PUT &NAME._MESSAGE: Information stored into Local Macrovariable of calling environment: ;
  %PUT &NAME._MESSAGE: &ATTRIB=%BQUOTE(&&&ATTRIB);
+
  %PUT &NAME._MESSAGE: &ATTRIB. = %BQUOTE(&&&ATTRIB.);
 
  %PUT ;
 
  %PUT ;
 
  '''%END;'''
 
  '''%END;'''
Zeile 34: Zeile 34:
 
  %PUT &NAME._STATUS: Global Macrovariable(s) not available. ;
 
  %PUT &NAME._STATUS: Global Macrovariable(s) not available. ;
 
  %PUT ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^;
 
  %PUT ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^;
  %GEN_MAIL(name=&NAME,rc=1);
+
  %GEN_MAIL(name = &NAME.,rc=1);
 
  '''%END;'''
 
  '''%END;'''
  
 
  %MEND GET_ATTR;
 
  %MEND GET_ATTR;

Version vom 28. Juni 2013, 16:41 Uhr


%MACRO GET_ATTR(dsn=,source=,attrib=) / store des = "Get attribute from SAS Variable";
%LOCAL name;
%LET name = GET_ATTR;
%IF &DSN. ne and &SOURCE. ne and &ATTRIB. ne %THEN %DO;
%IF %INDEX(&DSN.,.) eq 0 %THEN %DO;
%LET dsn=WORK.&DSN.;
%END;
proc datasets nolist lib = %SCAN(&DSN.,1);
contents noprint data = %SCAN(&DSN.,2)(keep=&SOURCE.) out = work.tmp_data(keep = &ATTRIB.);
run;
quit;
proc sql noprint;
select &ATTRIB.
  into :&ATTRIB.
  from work.tmp_data
;
%IF %UPCASE(&ATTRIB.) ne LABEL %THEN %DO;
%LET &ATTRIB. = &&&ATTRIB.;
%END;
quit;
%PUT &NAME._MESSAGE: Temporary SAS dataset WORK.TMP_DATA created ;
%PUT &NAME._MESSAGE: Field %UPCASE(&SOURCE) in dataset %UPCASE(&DSN.) has &ATTRIB. = %BQUOTE(&&&ATTRIB.). ;
%PUT &NAME._MESSAGE: Information stored into Local Macrovariable of calling environment: ;
%PUT &NAME._MESSAGE: &ATTRIB. = %BQUOTE(&&&ATTRIB.);
%PUT ;
%END;
%ELSE %DO;
%PUT vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv;
%PUT &NAME._ERROR: Missing Keyword Parameter(s).;
%PUT &NAME._STATUS: Macro processing abended. ;
%PUT &NAME._STATUS: Global Macrovariable(s) not available. ;
%PUT ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^;
%GEN_MAIL(name = &NAME.,rc=1);
%END;
%MEND GET_ATTR;