{tipteasc.ace - ALLANS - 6/21/98 
 Produces teacher schedule import file for TIP.
 command line is  sacego tipteasc '"'} 

database student end 

define
  variable bld int
  param [1] qt char(1)
end

input
  prompt for bld using "BUILDING NUMBER:  "
end
 
output 
  page  length  9999 
  left  margin  0 
  right margin  0 
  top   margin  0 
  report to pipe "cat > $SMSRPTDIR/tip/2001/teasc.unl" 
end 

select distinct t.ssn, ms.course, ms.crs_section 
from teacher t, master_sched ms 
where t.tea_number = ms.teacher_number and 
       ms.building = $bld and
             t.ssn is not null and
         ms.course is not null 
order by 2,3
end 

format
  on every row 
  print qt
       ,ssn clipped 
       ,qt
       ,","
       ,qt
       ,course clipped
       ,qt
       ,","
       ,qt
       ,crs_section using "<<<<"
       ,qt
end