_reporttabshtml.sas

Go to the documentation of this file.

 
%MACRO _reportTabsHTML (i_tabnames
                       ,i_pages
                       ,i_current = 1
                       );

   %let l_string=^{RAW <ul class="tabs">;
   
   %LOCAL i l_class l_string;
   %LET i=1;
   %DO %WHILE(%sysfunc(scanq(&i_tabnames, &i)) NE );
      %LET l_class=;
      %IF &i=&i_current %THEN %DO;
         %let l_class=id="current";
      %END;
      %let l_string=&l_string. <li &l_class.><a href="%sysfunc(compress(%sysfunc(scanq(&i_pages, &i)),%str(%")))">%sysfunc(compress(%sysfunc(scanq(&i_tabnames, &i)),%str(%")))</a></li>;
      %LET i=%eval(&i+1);
   %END;

   %let l_string=&l_string. </ul>};
   title2 %sysfunc(quote(&l_string.));
%MEND _reportTabsHTML;