print into log only result of one step and prevent others information

[Nasser_DRMCP]

hello,

my objectif is to print the creation tables scripts of these 3 tables but only the script and prevent the print of any others kind of information in the log file. by launching this macro I get the script but the information below as well.

thanks a lot in adavnce.

proc printto log="/home/ldap/mellouna/log_macro_scrip_tables.txt" new;  run;

%macro mc_library_table_list2(p_lib_name) ;

proc sql;
   create table t_tables_list as
   select memname from dictionary.tables
   where libname="&p_lib_name" and memtype="DATA" and memname like 'CL%';
quit;

data _null_;
if 0 then set work.t_tables_list nobs=n;
call symput('mv_numobs',n);
stop;
run;

%do i=1 %to &mv_numobs;
    Data _null_;
    Set t_tables_list(firstobs=&i obs=&i);
    Call symputx('mv_table_name',memname);
    run;
options nostimer nonotes nosource;
proc sql nofeedback ;
  describe table &p_lib_name..&mv_table_name. ;
quit;

%end;

%mend ;

%mc_library_table_list2(p_lib_name=SASHELP) ;

MPRINT(MC_LIBRARY_TABLE_LIST2):   quit;
MPRINT(MC_LIBRARY_TABLE_LIST2):   Data _null_;
MPRINT(MC_LIBRARY_TABLE_LIST2):   Set t_tables_list(firstobs=2 obs=2);
MPRINT(MC_LIBRARY_TABLE_LIST2):   Call symputx('mv_table_name',memname);
MPRINT(MC_LIBRARY_TABLE_LIST2):   run;
===========> CLASSFIT options nostimer nonotes nosource
MPRINT(MC_LIBRARY_TABLE_LIST2):   proc sql nofeedback ;
MPRINT(MC_LIBRARY_TABLE_LIST2):   describe table SASHELP.CLASSFIT ;

[PaigeMiller · Accepted solution]

No need to ask the question twice.

All replies should go in your other thread at https://communities.sas.com/t5/SAS-Programming/print-into-log-only-result-of-one-step-and-prevent-ot...

[RW9]

If you want the text output of the describe statements, then direct that output to a seperate file, you will always get information about the run to log, you can minimise it, but there will always be feedback.  Its really hard to follow your post but simply:

data _null_;
  set sashelp.vtable (where=(libname="&p_lib_name." and substr(memname,1,2)="CL")) end=last;
  if _n_=1 then call execute('proc printto listing="c:/code.txt";run;proc sql;');
  call execute(cats('describe table &p_lib_name..',memname,';'));
  if last then call execute('quit;proc printto listing=listing;run;');
run;