*start*
04168 00024 US 
Date:  6 Apr 84 14:46:02 PST (Friday)
Subject: StarNew.tds
To: Masinter.pa, sannella.pa
From: Bruce Hamilton <Hamilton.ES>

--<>StarNew.tds  by Hamilton  20-Dec-83 14:14:40
-- VERSION FOR PRODUCT SOFTWARE
--FTP rain dir StarARStatus st/usa StarNew.tds StarNew.tds!H
--FTP rain dir StarARStatus st/usa StarNew.msg StarNew.msg!H
--bitmap bigger than 496x512
--from WJThomas

-- now do STAR REPORT query

   Pause["Deactivate and reactivate SimpleExec, then proceed.", FALSE]
 
   AppendCommand[SimpleExec.ExecTTY, "
FTP rain dir StarARStatus ret/ua StarNew.msg OnePage.template ret/sa'# PSReport.user ProductSoftware.user op/c igor ret/ua <Hacks>10.0>tools>MailFrom.bcd
"]

   --ActivateTool["AdobeQuery"]
   --WindowOnTop[AdobeQuery]
   --TOOL _ "AdobeQuery"
   --InvokeMCR[msgSW,"Adobe systems","Product Software"]
   --InvokeMCR[msgSW,"Adobe systems","Product Software"]
   --SUBWINDOW _ "formSW"
   --Submit' Date _ "> 16-Sep-83"
   --Number _ "> 0"
   --Status _ "New OR Nil"
   --Subsystem _ ""
   --System _ "Basic Workstation OR Documents OR Fonts OR System Data OR Workstation Features"
   --Priority _ "Nil"
   --Subject _ ""
   --Submitter _ ""
   --Assigned' To _ "~HAS FunSpec"
   --Attn _ ""
   --Edit'-By _ ""
   --Edit'-Date _ ""

   -- Take QL generated by PSAssign.tds
   ActivateTool["AdobeQueryList"]
   WindowOnTop[AdobeQueryList]
   TOOL _ "AdobeQueryList"
   SUBWINDOW _ "cmdsw"
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   Operand1 _ "StarNew.ql"
   Operand2 _ ""
   Result _ "SysQL"
   Copy

   ActivateTool["AdobeReport"]
   WindowOnTop[AdobeReport]
InvokeMCR[AdobeReport.msgSW,"Adobe systems","Product Software"]
   InvokeMCR[AdobeReport.msgSW,"Adobe systems","Product Software"]
   
   TOOL _ "AdobeReport"
   SUBWINDOW _ "formSW"
   Number _ TRUE
   Submitter _ TRUE
   System _ TRUE
   Subsystem _ TRUE
   Problem' Version _ TRUE
   Priority _ FALSE
   Status _ TRUE
   Subject _ TRUE
   Assigned' To _ TRUE
   Description _ FALSE
   Disposition _ FALSE
   Type _ TRUE
   Impact _ TRUE

   SUBWINDOW _ "cmdSW"
   Output' file _ "STARNewSummary.report"
   Output' format _ "columns"
   Overwrite _ TRUE
   
   SUBWINDOW _ "sortSW"
   Number _ TRUE
   Status _ TRUE
   Assigned' to _ TRUE
   
   ActivateTool["AdobeSort"]
   WindowOnTop[AdobeSort]
   TOOL _ "AdobeSort"
   SUBWINDOW _ "formSW"
   Input' File _ AdobeReport.cmdSW.Output' file
   Output' File _ "STARNewSummary.sort"
   Key' specs _ "Status/ Assigned' To/ Number/"
  
   --WindowOnTop[AdobeQuery]
   --AdobeQuery.cmdSW.ResetQL
   --AdobeQuery.cmdSW.Query
   --IF SubString[LastMessage[msgSW], 0, 19] = "Incorrect user-name"
     --THEN Pause["Login then Proceed", FALSE]
   --IF SubString[LastMessage[msgSW], 0, 23] = "Incorrect user-password"
     --THEN Pause["Login then Proceed", FALSE]
   --IF SubString[LastMessage[msgSW], 0, 33] = "File is protected - access denied"
     --THEN Pause["Login then Proceed", FALSE]
   
   WindowOnTop[AdobeReport]
   AdobeReport.cmdSW.Report
   
   WindowOnTop[AdobeSort]
   AdobeSort.formSW.Sort
   

   WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
   SUBWINDOW _ "cmdsw"
   Output' file _ "STARNewFull.report"
   Output' format _ "template"
   Template' file _ "OnePage.template"
   Set' Fields
   
   SUBWINDOW _ "sortSW"
   Number _ TRUE
   Status _ TRUE
   Assigned' to _ TRUE
   cmdsw.Report

   WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
   SUBWINDOW _ "formSW"
   Input' File _ AdobeReport.cmdSW.Output' file
   Output' File _ "STARNewFull.sort"
   Key' specs _ "Status/ Assigned' to/ Number/"
   Sort

AppendCommand[SimpleExec.ExecTTY, "
OldPrint gacha6/f STARNewSummary.press/o STARNewSummary.sort/l1
OldPrint gacha8/f STARNewFull.press/o STARNewFull.sort/p1
FTP rain dir StarARStatus ^
st/s STARNewSummary.press STARNewSummary.press!H ^
st/s STARNewFull.press STARNewFull.press!H

OldPrint auk/h STARNewSummary.press STARNewFull.press
OldPrint rockhopper/h STARNewSummary.press

MailFrom StarNew.msg
"]

AppendString[ToolDriverExec.fileSW, "
End of STARNew.tds: A msg is being sent automatically to ProductSoftwareARs^.
"]




--Bruce