31 %macro mp_tree(dir=/tmp
36 length dir 8 ext filename dirname $256 fullpath $512 ;
37 call missing(of _all_);
42 %
if &sysscp=WIN or &SYSSCP eq DNTHOST %then %let sep=\;
48 rc=filename(
'tmp',fullpath);
51 if dir then dirname=fullpath;
53 filename=scan(fullpath,-1,sep) ;
54 dirname =substrn(fullpath,1,length(fullpath)-length(filename));
55 if index(filename,
'.')>1 then ext=scan(filename,-1,
'.');
59 do i=1 to dnum(dir_id);
60 fullpath=cats(dirname,sep,dread(dir_id,i));