*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