%macro nullreport(text=%bquote( ***** No Data ***** ), _mtls=110, _mtdisw=128 ) ; 
%if %symexist(linesize) %then %let _mtdisw=&linesize; ;
data empty;
   length line $200;
   do i = 1 to 5;
      line="";
      output;
   end;
   line=repeat('*', &_mtls);
   output;
   line="       &text   ";
   output;
   line=repeat('*', &_mtls);
   output;
run;

proc report data=empty;
   column line;
   define line / display width=&_mtdisw center '';
run;
%mend;