{tipcrsdb.ace - ALLANS - 6/26/98 
 Produces courses database import file for TIP.
 command line is  sacego tipcrsdb '"'
 7/29/99 - AS - Added lines at end of output to included "" for last 2 fields} 

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/crsdata.unl"
end

select distinct course, description
from master_sched
where building = $bld 
order by 1,2 
end

format
  on every row
  print
    qt,course clipped,qt,",",
    qt,description clipped,qt,",",
    qt,qt,",",qt,qt
end