creates a series of directories
%macro create_directory(parent=,child=);
   
%do x = 1 %to %wordcount(list=&child);
      
%let sfolder=%qscan(&child,&x);
 
%put &parent\&sfolder;
       systask command
"mkdir &root.\&parent.\&sfolder" taskname=cdi  status=dstat wait;
       systask kill cdi;
   
%end;
%mend;