* Statement Builder save script

If Not(IsDialog(Query)) Then
   Script 'query\querydlg.wis'
   If Not(IsDialog(Query)) Then
      MessageBox 'Unable to load Query builder','Query', MB_ICONHAND|MB_OK
      EndScript
   EndIf
EndIf
Query_SavedVersion=`6.0.2`
If IsShown(Query) Then
   If Version >= "4.1.1" Then
      Query.Verb.Text = `SELECT`
   Else DialogBox Select Query,Verb,`SELECT`
Else Query.Verb=`SELECT`
Query.File=`STUDENT.TERMS`
Temp = `WITH STTR.TERM = <<Enter Fall Term>> WITH STTR.STUDENT.LOAD = 'P' WITH STTR.ACTIVE.PROGRAMS UNLIKE 'T909...' WITH @ID LIKE '...CU' WITH STTR.ADMIT.STATUS = 'F' WITH (X818.STTR.PST.EDUC.GOALS = 'GR'  '`
Temp := `TR')  WITH (STTR.START.TERM = '<<Enter Summer Start Term>>' '<<Enter Fall Start Term>>')`
Query.Items = Temp
Query.Sort = ``
Query.Output = `SAVING UNIQUE STTR.ACAD.LEVEL.ID`
Query.Heading=``
Query.Footing=``
Query.GrandTotal=``
Query.HdrSup=0
Query.DetSup=0
Query.ColSup=0
Query.IdSup=0
Query.OutputTo=`Screen`
Query.Before=``
Query.After=`SAVE.LIST FED.COHORT.PT`
If IsShown(Query) Then
   Library `query\query`
   EnableOutputOptions
Else Script `query\query`,1