$ ! schd97_onc ver0.0 10/8/97  ads
$ ! Select, order, group, and format class schedule data for export
$ ! as ASCII, var len, "|" delim,  for final formatting of Class Schedule.
$ !  from:
$ ! schd_onc.com ver2.0 3/24/94 ADS
$ ! Select, order, group, and format class schedule data for import
$ ! into WordPerfect for final formatting of Class Schedule.
$ ! ..97: Group classes by day/eve, sort by number by section
$ ! WAS: Group classes by dept by day/eve, sort by number by section
$ !
$ say = "write sys$output"
$ asq = "$dms:asq"
$ say -
  "Prepare PrePrint Schedule File for EACC ON-CAMPUS (OFFCAMPUS[#64] <> "Y"):"
$ ! WAS: say -
$ !  "Prepare PrePrint Schedule File for EACC ON-CAMPUS (Sections < 21):"
$ say ""
$ inquire tcode "Enter TermCode (e.g., 934)"
$ tcode = f$edit(tcode,"collapse")	! remove spaces
$ tcode = f$extract(0,3,tcode)		! use 1st 3 characters only
$ coso = "[debra.coursefiles]"+tcode+"scourse"
$ say "Source file is: " + coso
$ say ""
$ define/nolog course_source 'coso'
$ if f$search("onc*.*.*") .NES. "" then delete onc*.*.*
$ say "Extracting Schedule Data via ASQ:"
$ say ""
$ asq
set source course_source,[reg.files]catalog via .COURSE
display #5,#9,.FULLTITLE via .COURSE,#41,#42,#40,#39,#32,#71,#38 -
	where #64 <> "Y" -
	into onc1.lst
display #5,#9,.FULLTITLE via .COURSE,#45,#46,#44,#43,#32,#71,#38 -
	where #64 <> "Y" and #44 <> "" -
	into onc2.lst
$ say ""
$ lst2=f$search("onc2.lst;*")
$ if lst2 .EQS. ""
$ then
$	copy onc1.lst onc12.lst
$ else
$	copy onc1.lst,onc2.lst onc12.lst
$ endif
$ !..97:
$ say "Sorting by DAY/EVENING, COURSE-SECTION and"
$ say " moving associated labs under corresponding lecture." 
$ sortit/key=(pos:92,siz:1)/key=(pos:1,siz:7) -
      /key=(pos:10,siz:2)/key=(pos:8,siz:1,desc) -
      /stable onc12.lst onc12.srt 
$ !WAS:
$ !say "Sorting by DEPT, DAY/EVENING, COURSE-SECTION and"
$ !say " moving associated labs under corresponding lecture." 
$ !sortit/key=(pos:94,siz:2)/key=(pos:92,siz:1)/key=(pos:1,siz:7) -
$ !      /key=(pos:10,siz:2)/key=(pos:8,siz:1,desc) -
$ !      /stable onc12.lst onc12.srt 
$ say ""
$ say "Preparing class records for final formatting in WordPerfect"
$ ! run fields
$ ! WAS: run fields95
$ run fields97
ONC12
$ xferfile = tcode+"ONC.ASC"
$ ! WAS: xferfile = tcode+"ONC.FWP"
$ rename onc12.fwp 'xferfile'
$ say "File to transfer is: " + xferfile