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


proc sql;                                   
                                            
create view member as                       
    select *                                
    from (select comname, member1 as memname
          from commit1                      
          where member1 ne '')              
    union all                               
    select *                                
    from (select comname, member2 as memname
          from commit1                      
          where member2 ne '')              
    union all                               
    select *                                
    from (select comname, member3 as memname
          from commit1                      
          where member3 ne '')              
    union all                               
    select *                                
    from (select comname, member4 as memname
          from commit1                      
          where member4 ne '')              
    union all                               
    select *                                
    from (select comname, member5 as memname
          from commit1                      
          where member5 ne '');             
                                            
create view commit2 as                      
    select comname, mtgloc, mtgtime         
    from commit1                            
    order by comname;                       
quit;


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


proc sql;                              
                                       
create view mylib.supplier as          
  select supno, suploc                 
  from shipmnt                         
  order by supno;                      
                                       
create view mylib.customer as          
  select custno, custloc               
  from shipmnt                         
  order by custno;                     
                                       
create view mylib.ship as              
  select supno, custno, itemno, shpdate
  from shipmnt                         
  order by supno, custno;              
quit;


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


proc sql;                                                 
    select SUPNO, SHPDATE, ITEMNO, CUSTNO, SUPLOC, CUSTLOC
    from mylib.supplier, mylib.customer, mylib.ship       
    where supplier.SUPNO=ship.SUPNO and                   
          customer.CUSTNO=ship.CUSTNO;                    
quit; 


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