/**********************************************************************/


data test;                
   


   length proj $ 40;      
   retain proj;           
   if _n_=1 then proj=sysget('PROJECT');



run;                                    


/**********************************************************************/


%let proj=%sysget(PROJECT);


/**********************************************************************/


export TIMEDIR=/local/u/headq/timedata
export GROUPID=midfield               
export EMPLOYID=TW0459


/**********************************************************************/


%let timedir=%sysget(TIMEDIR);            
%let groupid=%sysget(GROUPID);            
%let employid=%sysget(EMPLOYID);          
                                          
libname time "&timedir";                  
                                          
proc sort data=time.&groupid out=timetemp;
    where employid="&employid";           
    by project;                           
run;                                      
                                          
proc print data=timetemp;                 
   by project;                            
run;                                      


/**********************************************************************/


libname time "/local/u/headq/timedata";   
                                          
proc sort data=time.midfield out=timetemp;
   where employid="TW0459";
   by project;             
run;                       
                           
proc print data=timetemp;  
   by project;             
run;


/**********************************************************************/