Source
%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;