{tipstusc.ace - ALLANS - 6/21/98 
 Produces student schedule import file for TIP.
 command line is  sacego tipstusc '"'
1/5/01 - added leading hyphen for state assigned student IDs per TIP}

database student end 

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

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

select distinct sc.studentid, course, crs_section
from schd_courses sc, reg r
where r.studentid in 
	(select distinct reg.studentid
	from reg, regentry 
	where reg.studentid = regentry.studentid and 
             status = 'A' and 
       reg.building = $bld and 
          with_date is null and 
      reg.studentid is not null and 
    reg.studentname is not null) and

      sc.studentid   = r.studentid and
      sc.building    = $bld and
      sc.schd_status in ('S','L','R') and
       r.status      = 'A' and
        sc.studentid is not null and
           sc.course is not null
end 
format
  on every row 
  if studentid < 0
        then let stuid = "-",studentid using "&&&&&&&&"
        else let stuid = studentid using "&&&&&&&&&"
  print qt
       ,stuid
       ,qt
       ,","
       ,qt
       ,course clipped
       ,qt
       ,","
       ,qt
       ,crs_section using "<<<<"
       ,qt
end