MACRO TAB BOOL

%MACRO TAB_BOOL(dsn=,row=,col=,total=T,indent=0,prefix=,stat=Y,condense=) / store des="see documentation for a detailed description" ;

%LOCAL n_lst v_lst num prefix_n name;
%LET name=TAB_BOOL;
%CHK_LIST(list=&PREFIX);
%DO num=1 %TO &N_LST;
  %IF &NUM gt 1 %THEN %LET total=n;
  %LET prefix_n=%SCAN(&PREFIX,&NUM);
  %BLK_BOOL(dsn=&DSN,row=&ROW,col=&COL,total=&TOTAL,indent=&INDENT,prefix=&PREFIX_N,use=1,stat=&STAT,condense=&CONDENSE);
%END;
data TAB_BOOL;
 set
 %DO num=1 %TO &N_LST;
   %SCAN(&PREFIX,&NUM)
 %END;
;
run;
%GEN_MAIL(name=&NAME);

%MEND TAB_BOOL;