-- LispARs.CLEANUP
-- does an Update, and prints infinite summaries of the lisp AR database

-- first, delete old report files
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "delete *summ*
"]


-- now, activate any adobe tools needed
ActivateTool["AdobeUpdate"]
InvokeMCR[AdobeUpdate.cmdsw, "Adobe systems", "LispARs"]
ActivateTool["AdobeQuery"]
InvokeMCR[AdobeQuery.cmdsw, "Adobe systems", "LispARs"]
ActivateTool["AdobeReport"]
InvokeMCR[AdobeReport.cmdsw, "Adobe systems", "LispARs"]
ActivateTool["AdobeSort"]

WindowOnTop[AdobeUpdate]
TOOL _ "AdobeUpdate"
SUBWINDOW _ "cmdsw"
Update

WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
  Number _ "> 3"
  Date _ ""
  Submitter _ ""
  Subject _ ""
  Lisp' Version _ ""
  Edit'-By _ ""
  Edit'-Date _ ""
  Attn _ ""
  Assigned' To _ ""
  In'/By _ ""
  System _ ""
  Subsystem _ ""
  Machine _ ""
  Disk _ ""
  Microcode' Version _ ""
  Memory' Size _ ""
  File' Server _ ""
  Server' Software' Version _ ""
  Difficulty _ ""
  Frequency _ ""
  Impact _ ""
  Priority _ ""
  Status _ ""
  Problem' Type _ ""
  Source' Files _ ""
SUBWINDOW _ "cmdsw"
  Query

-- set up report fields
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
  Reset
SUBWINDOW _ "formSW"
  Number _ TRUE
  Date _ TRUE
  Subject _ TRUE
  Attn _ TRUE
  System _ TRUE
  Subsystem _ TRUE
  Difficulty _ TRUE
  Impact _ TRUE
  Priority _ TRUE
  Status _ TRUE
  Problem' Type _ TRUE
SUBWINDOW _ "sortSW"
  System _ TRUE
  Subsystem _ TRUE
  Priority _ TRUE
  Impact _ TRUE
  Status _ TRUE

-- make main unsorted summary report
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "Summary.txt"
Report
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint Summary.press'/o Summary.txt'/l1
ftp phylum dir lispars del Summary.txt Summary.press
ftp phylum Dir LispARs Store Summary.txt Summary.press
Delete Summary.press
"]

Wait[150]

-- sort by attn
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "Summary.txt"
Output' file _ "SortedSummary.txt"
Key' specs _ "Status/ Priority/ Impact/ System/ Subsystem"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint SortedSummary.press'/o SortedSummary.txt'/l1
ftp phylum dir lispars del SortedSummary.txt SortedSummary.press
ftp phylum Dir LispARs Store SortedSummary.txt SortedSummary.press
Delete SortedSummary.press
Delete SortedSummary.txt
"]

Wait[150]

-- sort by system
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "Summary.txt"
Output' file _ "SortedSummary2.txt"
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint SortedSummary2.press'/o SortedSummary2.txt'/l1
ftp phylum dir lispars del SortedSummary2.txt SortedSummary2.press
ftp phylum Dir LispARs Store SortedSummary2.txt SortedSummary2.press
Delete SortedSummary2.press
Delete SortedSummary2.txt
"]

AppendCommand[SimpleExec.execTTY, "Delete Summary.txt
Delete Summary.SortKeys
"]


-- make report for Burton
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS burt"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "BurtonSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "BurtonSumm.txt"            -- change for each person
Output' file _ "BurtonSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint BurtonSummary.press'/o BurtonSummary.txt'/l1
"]                                            -- change for each person



-- make report for Charnley
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS char"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "CharnleySumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "CharnleySumm.txt"            -- change for each person
Output' file _ "CharnleySummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint CharnleySummary.press'/o CharnleySummary.txt'/l1
"]                                            -- change for each person


-- make report for Jellinek
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS Jell"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "JellinekSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "JellinekSumm.txt"            -- change for each person
Output' file _ "JellinekSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint JellinekSummary.press'/o JellinekSummary.txt'/l1
"]                                            -- change for each person




-- make report for JFung
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS jfung"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "JFungSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "JFungSumm.txt"            -- change for each person
Output' file _ "JFungSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint JFungSummary.press'/o JFungSummary.txt'/l1
"]                                            -- change for each person




-- make report for Jonl
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS jonl"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "JonLSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "JonLSumm.txt"            -- change for each person
Output' file _ "JonLSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint JonLSummary.press'/o JonLSummary.txt'/l1
"]                                            -- change for each person




-- make report for Kaplan
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS kapl"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "KaplanSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "KaplanSumm.txt"            -- change for each person
Output' file _ "KaplanSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint KaplanSummary.press'/o KaplanSummary.txt'/l1
"]                                            -- change for each person


-- make report for lichtenberg
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS lich"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "LichtenbergSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "LichtenbergSumm.txt"            -- change for each person
Output' file _ "LichtenbergSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint LichtenbergSummary.press'/o LichtenbergSummary.txt'/l1
"]                                            -- change for each person



-- make report for Masinter
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS masi"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "MasinterSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "MasinterSumm.txt"            -- change for each person
Output' file _ "MasinterSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint MasinterSummary.press'/o MasinterSummary.txt'/l1
"]                                            -- change for each person




-- make report for Nuyens
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS nuye"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "NuyensSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "NuyensSumm.txt"            -- change for each person
Output' file _ "NuyensSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint NuyensSummary.press'/o NuyensSummary.txt'/l1
"]                                            -- change for each person




-- make report for Purcell
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS purc"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "PurcellSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "PurcellSumm.txt"            -- change for each person
Output' file _ "PurcellSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint PurcellSummary.press'/o PurcellSummary.txt'/l1
"]                                            -- change for each person




-- make report for Raim
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS raim"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "RaimSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "RaimSumm.txt"            -- change for each person
Output' file _ "RaimSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint RaimSummary.press'/o RaimSummary.txt'/l1
"]                                            -- change for each person




-- make report for Roach
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS roac"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "RoachSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "RoachSumm.txt"            -- change for each person
Output' file _ "RoachSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint RoachSummary.press'/o RoachSummary.txt'/l1
"]                                            -- change for each person



-- make report for Sannella
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS sann"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "SannellaSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "SannellaSumm.txt"            -- change for each person
Output' file _ "SannellaSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint SannellaSummary.press'/o SannellaSummary.txt'/l1
"]                                            -- change for each person




-- make report for Sheil
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS shei"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "SheilSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "SheilSumm.txt"            -- change for each person
Output' file _ "SheilSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint SheilSummary.press'/o SheilSummary.txt'/l1
"]                                            -- change for each person




-- make report for Stansbury
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS stan"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "StansburySumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "StansburySumm.txt"            -- change for each person
Output' file _ "StansburySummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint StansburySummary.press'/o StansburySummary.txt'/l1
"]                                            -- change for each person




-- make report for Sybalsky
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS syba"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "SybalskySumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "SybalskySumm.txt"            -- change for each person
Output' file _ "SybalskySummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint SybalskySummary.press'/o SybalskySummary.txt'/l1
"]                                            -- change for each person




-- make report for vanMelle
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS vanm"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "vanMelleSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "vanMelleSumm.txt"            -- change for each person
Output' file _ "vanMelleSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint vanMelleSummary.press'/o vanMelleSummary.txt'/l1
"]                                            -- change for each person





-- make report for LispCore^
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ "HAS lisp"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "LispSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "LispSumm.txt"            -- change for each person
Output' file _ "LispSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint LispSummary.press'/o LispSummary.txt'/l1
"]                                            -- change for each person


-- make report for Release
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ ""   -- change for each person
Status _ "Fixed"
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "ReleaseSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "ReleaseSumm.txt"            -- change for each person
Output' file _ "ReleaseSummary.txt"     -- change for each person
Key' specs _ "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint ReleaseSummary.press'/o ReleaseSummary.txt'/l1
"]                                            -- change for each person


-- make Action Item report
WindowOnTop[AdobeQuery]
TOOL _ "AdobeQuery"
SUBWINDOW _ "formSW"
Number _ "> 0"
Attn _ ""   -- change for each person
Status _ "Open OR Fixed"
Priority _ "Absolutely OR Hopefully"
Impact _ "Fatal OR Serious"
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL _ "AdobeReport"
SUBWINDOW _ "cmdsw"
Output' format _ "columns"
Output' file _ "ActionItemSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL _ "AdobeSort"
SUBWINDOW _ "formSW"
Input' file _ "ActionItemSumm.txt"            -- change for each person
Output' file _ "ActionItemSummary.txt"     -- change for each person
Key' specs _ "Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint ActionItemSummary.press'/o ActionItemSummary.txt'/l1
"]                                            -- change for each person


Wait[150]


AppendCommand[SimpleExec.execTTY, "ftp phylum Directory LispARs Store *Summary*
Delete *Summ*
"]