/*Retrieve SAS Tables stored in metadata*/
%mdsecds(folder="/", membertypes="table",includesubfolders=yes);

PROC SQL;
	CREATE TABLE WORK.Table AS 
		SELECT DISTINCT /* Table */
	(trim(t1.Location) || trim(t1.ObjName) || "(Table)") AS Table FROM WORK.MDSECDS_JOIN t1 WHERE t1.PublicType = 'Table' ;
QUIT;

%_eg_conditional_dropds(WORK.MDSECDS_PERMSW);

%_eg_conditional_dropds(WORK.MDSECDS_PCONDS);

%_eg_conditional_dropds(WORK.MDSECDS_PERMSL);

%_eg_conditional_dropds(WORK.MDSECDS_OBJS);

%_eg_conditional_dropds(WORK.MDSECDS_JOIN);


%let out_table=PUB_RPT.Libget;

 data &out_table;
length table_name $ 1000;
length libname $ 1000;
run;

/*look up Library name for tables*/
proc sql;
	select table, count(table) into:table_list separated by "$ ", :table_num from work.TABLE;
quit;


%macro loop(list);

%macro dummy;
%mend dummy;


%do i=1 %to &table_num;
	%let val=%scan(&list,&i, $);
	%put &val;


%metaauto;
	%metadata_getDatafileFromPath(path=&val,
		type=1,
		assignlib=y,
		outvar=MYTABLE, 
		debug=y);

	%put &MYTABLE;
		proc sql;
	insert into &out_table (table_name,libname) values("&val","&MYTABLE");

%end;

%mend;

%loop(&table_list);