SAS - export all files in a library

SAS_export_files_library.sas

/*This program exports all files from a library into CSV files. 
Author: F. Khurshed
Date: 2020-09-25
*/

options dlcreatedir;

proc options option=dlcreatedir;
run;

%let lib2export = WORK;
%let path2files = /home/demo/;

*list of files;
data _null_;
set sashelp.vtable(where = (libname = "&lib2export") keep = libname memname);
*create folder path for files to be stored;
folder4file = catt("&path2files.", memname);

*use libname to create folders;
rc_open = libname('demo1', folder4file) ;
rc_close = libname('demo1');

file2export = catt(folder4file, "/", memname, ".csv");

length str $300.;
str = catt("proc export data=", 
			"&lib2export.", 
			".",
			memname, 
			" outfile=",
			trim(quote(file2export)),
			" dbms=csv replace;run;");
			
call execute (str);

run;