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

--PSReport.tds by Hamilton.es  8-Mar-84 16:26:47
--FTP rain dir StarARStatus st/usa PSReport.tds PSReport.tds!H
--FTP rain dir/c StarARStatus st/usa PSReport.msg PSReport.msg!H
--bitmap bigger than 496x512
--from WJThomas
--the name of SDSupport.ES's Adobe machine is StandIn

-- WEEKLY BUGBOARD REPORTS

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

-- BUGBOARD REPORTS: BASIC WORKSTATION

   ActivateTool["AdobeQuery"]
   WindowOnTop[AdobeQuery]
   TOOL _ "AdobeQuery"
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   SUBWINDOW _ "formSW"
   Number _ ">0"
   Status _ "# Closed AND # Fixed AND # Declined AND # Obsolete AND # Superseded"
   Subsystem _ ""
   System _ "Basic Workstation"
   subject _ ""
   Submitter _ ""
   Assigned' To _ ""
   Attn _ ""
   Edit'-By _ ""
   Edit'-Date _ ""
   cmdSW.ResetQL
   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]
   
   ActivateTool["AdobeQueryList"]
   WindowOnTop[AdobeQueryList]
   InvokeMCR[AdobeQueryList.msgSW,"Adobe systems","Product Software"]
   InvokeMCR[AdobeQueryList.msgSW,"Adobe systems","Product Software"]
   AdobeQueryList.cmdsw.Result _ "BasicWSOpen.ql"
   AdobeQueryList.cmdsw.Operand1 _ "SysQL"
   AdobeQueryList.cmdsw.Copy
   

   ActivateTool["AdobeReport"]
   WindowOnTop[AdobeReport]
   TOOL _ "AdobeReport"
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   SUBWINDOW _ "formSW"
   Number _ TRUE
   Submitter _ TRUE
   Subsystem _ TRUE
   Problem' Version _ TRUE
   Priority _ TRUE
   Status _ TRUE
   Subject _ TRUE
   Assigned' to _ TRUE
   Type _ TRUE
   SUBWINDOW _ "cmdSW"
   Output' file _ "BasicWSOpen.temp"
   Output' format _ "Columns"
   Overwrite _ TRUE
   SUBWINDOW _ "sortSW"
   Number _ TRUE
   Subsystem _ TRUE
   Status _ TRUE
   Priority _ TRUE
   
   ActivateTool["AdobeSort"]
   AdobeSort.formSW.Input' File _ "BasicWSOpen.temp"
   AdobeSort.formSW.Output' File _ "BasicWSOpen.sort"
   AdobeSort.formSW.Key' specs _ "Subsystem/a Status/a Priority/a Number/u"
   
   AdobeReport.cmdSW.Report
   
   WindowOnTop[AdobeSort]
   AdobeSort.formSW.Sort
   
    WindowOnTop[SimpleExec]
    AppendCommand[SimpleExec.ExecTTY, "
   Delete BasicWSOpen.temp
   "]

-- BUGBOARD REPORTS: DOCUMENTS

   ActivateTool["AdobeQuery"]
   WindowOnTop[AdobeQuery]
   TOOL _ "AdobeQuery"
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   SUBWINDOW _ "formSW"
   Number _ ">0"
   Status _ "# Closed AND # Fixed AND # Declined AND # Obsolete AND # Superseded"
   Subsystem _ ""
   System _ "Documents"
   subject _ ""
   Submitter _ ""
   Assigned' To _ ""
   Attn _ ""
   Edit'-By _ ""
   Edit'-Date _ ""
   cmdSW.ResetQL
   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]
   
   ActivateTool["AdobeQueryList"]
   WindowOnTop[AdobeQueryList]
   InvokeMCR[AdobeQueryList.msgSW,"Adobe systems","Product Software"]
   InvokeMCR[AdobeQueryList.msgSW,"Adobe systems","Product Software"]
   AdobeQueryList.cmdsw.Result _ "DocOpen.ql"
   AdobeQueryList.cmdsw.Operand1 _ "SysQL"
   AdobeQueryList.cmdsw.Copy
   

   ActivateTool["AdobeReport"]
   WindowOnTop[AdobeReport]
   TOOL _ "AdobeReport"
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   SUBWINDOW _ "formSW"
   Number _ TRUE
   Submitter _ TRUE
   Subsystem _ TRUE
   Problem' Version _ TRUE
   Priority _ TRUE
   Status _ TRUE
   Subject _ TRUE
   Assigned' to _ TRUE
   Type _ TRUE
   SUBWINDOW _ "cmdSW"
   Output' file _ "DocOpen.temp"
   Output' format _ "Columns"
   Overwrite _ TRUE
   SUBWINDOW _ "sortSW"
   Number _ TRUE
   Subsystem _ TRUE
   Status _ TRUE
   Priority _ TRUE
   
   ActivateTool["AdobeSort"]
   AdobeSort.formSW.Input' File _ "DocOpen.temp"
   AdobeSort.formSW.Output' File _ "DocOpen.sort"
   AdobeSort.formSW.Key' specs _ "Subsystem/a Status/a Priority/a Number/u"
   
   AdobeReport.cmdSW.Report
   
   WindowOnTop[AdobeSort]
   AdobeSort.formSW.Sort
   
    WindowOnTop[SimpleExec]
    AppendCommand[SimpleExec.ExecTTY, "
   Delete DocOpen.temp
   "]

-- BUGBOARD REPORTS: WORKSTATION FEATURES

   ActivateTool["AdobeQuery"]
   WindowOnTop[AdobeQuery]
   TOOL _ "AdobeQuery"
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   SUBWINDOW _ "formSW"
   Number _ ">0"
   Status _ "# Closed AND # Fixed AND # Declined AND # Obsolete AND # Superseded"
   Subsystem _ ""
   System _ "Workstation Features"
   subject _ ""
   Submitter _ ""
   Assigned' To _ ""
   Attn _ ""
   Edit'-By _ ""
   Edit'-Date _ ""
   cmdSW.ResetQL
   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]
   
   ActivateTool["AdobeQueryList"]
   WindowOnTop[AdobeQueryList]
   InvokeMCR[AdobeQueryList.msgSW,"Adobe systems","Product Software"]
   InvokeMCR[AdobeQueryList.msgSW,"Adobe systems","Product Software"]
   AdobeQueryList.cmdsw.Result _ "WSFeaturesOpen.ql"
   AdobeQueryList.cmdsw.Operand1 _ "SysQL"
   AdobeQueryList.cmdsw.Copy
   

   ActivateTool["AdobeReport"]
   WindowOnTop[AdobeReport]
   TOOL _ "AdobeReport"
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   InvokeMCR[msgSW,"Adobe systems","Product Software"]
   SUBWINDOW _ "formSW"
   Number _ TRUE
   Submitter _ TRUE
   Subsystem _ TRUE
   Problem' Version _ TRUE
   Priority _ TRUE
   Status _ TRUE
   Subject _ TRUE
   Assigned' to _ TRUE
   Type _ TRUE
   SUBWINDOW _ "cmdSW"
   Output' file _ "WSFeaturesOpen.temp"
   Output' format _ "Columns"
   Overwrite _ TRUE
   SUBWINDOW _ "sortSW"
   Number _ TRUE
   Subsystem _ TRUE
   Status _ TRUE
   Priority _ TRUE
   
   ActivateTool["AdobeSort"]
   AdobeSort.formSW.Input' File _ "WSFeaturesOpen.temp"
   AdobeSort.formSW.Output' File _ "WSFeaturesOpen.sort"
   AdobeSort.formSW.Key' specs _ "Subsystem/a Status/a Priority/a Number/u"
   
   AdobeReport.cmdSW.Report
   
   WindowOnTop[AdobeSort]
   AdobeSort.formSW.Sort
   
    WindowOnTop[SimpleExec]
    AppendCommand[SimpleExec.ExecTTY, "
   Delete WSFeaturesOpen.temp
   "]

--BEGIN per system report
   
  WindowOnTop[AdobeQuery]
   TOOL _ "AdobeQuery"
   SUBWINDOW _ "formSW"
   
--SET REPORT-SPECIFIC PARAMETERS
   System _ "Services"
   Status _ "# Closed AND # Declined AND # Obsolete AND # Superseded "
  AdobeReport.formSW.System _ FALSE
  AdobeReport.sortSW.System _ FALSE
  AdobeSort.formSW.Key' specs _ "Subsystem/a Status/a Priority/a Number/u"
  
   cmdSW.ResetQL
   cmdSW.Query
  
  WindowOnTop[AdobeQueryList]
  AdobeQueryList.cmdsw.Result _ "SERVICES.ql"
  AdobeQueryList.cmdsw.Operand1 _ "SysQL"
  AdobeQueryList.cmdsw.Copy
  
  AdobeReport.cmdSW.Output' file _ "SERVICES.temp"
  
  AdobeSort.formSW.Input' File _ "SERVICES.temp"
  AdobeSort.formSW.Output' File _ "SERVICES.sort"
  
  WindowOnTop[AdobeReport]
  AdobeReport.cmdSW.Report
  
  WindowOnTop[AdobeSort]
  AdobeSort.formSW.Sort
    
  WindowOnTop[SimpleExec]

AppendCommand[SimpleExec.ExecTTY, "
  Delete SERVICES.temp
"]

--END per system report

--BEGIN per system report
   
  WindowOnTop[AdobeQuery]
   TOOL _ "AdobeQuery"
   SUBWINDOW _ "formSW"
   
--SET REPORT-SPECIFIC PARAMETERS
   System _ "Basic Workstation OR Documents OR Workstation Features"
   Status _ "Fixed"
   AdobeReport.formSW.System _ FALSE
   AdobeReport.formSW.Fix' Version _ TRUE
   AdobeReport.sortSW.System _ FALSE
   AdobeSort.formSW.Key' specs _ "Subsystem/a Status/a Priority/a Number/u"

   cmdSW.ResetQL
   cmdSW.Query
  
  WindowOnTop[AdobeQueryList]
  AdobeQueryList.cmdsw.Result _ "StarFixed.ql"
  AdobeQueryList.cmdsw.Operand1 _ "SysQL"
  AdobeQueryList.cmdsw.Copy
  
  AdobeReport.cmdSW.Output' file _ "StarFixed.temp"
  
  AdobeSort.formSW.Input' File _ "StarFixed.temp"
  AdobeSort.formSW.Output' File _ "StarFixed.sort"
  
  WindowOnTop[AdobeReport]
  AdobeReport.cmdSW.Report
  
  WindowOnTop[AdobeSort]
  AdobeSort.formSW.Sort
    
  WindowOnTop[SimpleExec]

AppendCommand[SimpleExec.ExecTTY, "
  Delete StarFixed.temp
"]

--END per system report

--BEGIN per system report
   
  WindowOnTop[AdobeQuery]
   TOOL _ "AdobeQuery"
   SUBWINDOW _ "formSW"
   
--SET REPORT-SPECIFIC PARAMETERS
   System _ "# Basic Workstation AND # Documents AND # Workstation Features AND # Services"
   Status _ "# Closed AND # Rejected AND # Superseded"
   AdobeReport.formSW.System _ TRUE
   AdobeReport.formSW.Fix' Version _ FALSE
   AdobeReport.sortSW.System _ TRUE
   AdobeSort.formSW.Key' specs _ "System/a Subsystem/a Status/a Priority/a Number/u"

   cmdSW.ResetQL
   cmdSW.Query
  
  WindowOnTop[AdobeQueryList]
  AdobeQueryList.cmdsw.Result _ "NotStarNotServices.ql"
  AdobeQueryList.cmdsw.Operand1 _ "SysQL"
  AdobeQueryList.cmdsw.Copy
  
  AdobeReport.cmdSW.Output' file _ "NotStarNotServices.temp"
  
  AdobeSort.formSW.Input' File _ "NotStarNotServices.temp"
  AdobeSort.formSW.Output' File _ "NotStarNotServices.sort"
  
  WindowOnTop[AdobeReport]
  AdobeReport.cmdSW.Report
  
  WindowOnTop[AdobeSort]
  AdobeSort.formSW.Sort
    
  WindowOnTop[SimpleExec]

AppendCommand[SimpleExec.ExecTTY, "
  Delete NotStarNotServices.temp
"]

--END per system report

--BEGIN per system report
   
  WindowOnTop[AdobeQueryList]
  AdobeQueryList.formSW.List _ "554 842 1017 1539 1670 1877 1931 1954 2166 2339 2507 2531 2599 2710 2785 2812 2867 2868 2977 2980 2984 2990 3155 3165 3175 3181 3326 3476 3479 3481 3490 3505 3611 3640 3690 3727 3730 3737 3751 3752 3754 3813 3829 3959 3985 4303 4477 4502 4537 4562 4604 4716 4800 4831 4917 5021 5056 5069 5302"
  AdobeQueryList.cmdsw.Result _ "SysQL"
  AdobeQueryList.cmdsw.Operand1 _ "List"
  AdobeQueryList.cmdsw.Copy
  
  AdobeReport.cmdSW.Output' file _ "Sherman.temp"
  
  AdobeSort.formSW.Input' File _ "Sherman.temp"
  AdobeSort.formSW.Output' File _ "Sherman.sort"
  
  WindowOnTop[AdobeReport]
  TOOL _ "AdobeReport"
  SUBWINDOW _ "formSW"
   Number _ TRUE
   Submitter _ TRUE
   Subsystem _ TRUE
   Problem' Version _ TRUE
   Priority _ TRUE
   Status _ TRUE
   Subject _ TRUE
   Assigned' to _ TRUE
   Type _ TRUE

  System _ FALSE
  Fix' Version _ FALSE
  
   SUBWINDOW _ "cmdSW"
   Output' file _ "DocOpen.temp"
   Output' format _ "Columns"
   Overwrite _ TRUE

  SUBWINDOW _ "sortSW"
  System _ FALSE
  Assigned' To _ TRUE
  Number _ TRUE
  
  AdobeReport.cmdSW.Report
  
  WindowOnTop[AdobeSort]
  AdobeSort.formSW.Key' specs _ "Assigned' To/a Number/a"
  AdobeSort.formSW.Sort
    
  WindowOnTop[SimpleExec]

AppendCommand[SimpleExec.ExecTTY, "
  Delete Sherman.temp
"]

--END per system report

AppendCommand[SimpleExec.ExecTTY, "

   OldPrint/l1 gacha6/f BasicWSOpen.press/o BasicWSOpen.sort
   OldPrint/l1 gacha6/f DocOpen.press/o DocOpen.sort
   OldPrint/l1 gacha6/f WSFeaturesOpen.press/o WSFeaturesOpen.sort
  OldPrint/l1 gacha6/f SERVICES.press/o SERVICES.sort
  OldPrint/l1 gacha6/f StarFixed.press/o StarFixed.sort
  OldPrint/l1 gacha6/f NotStarNotServices.press/o NotStarNotServices.sort
  OldPrint/l1 gacha6/f Sherman.press/o Sherman.sort
  
OldPrint Auk/h BasicWSOpen.press/c2
OldPrint Rockhopper/h BasicWSOpen.press

OldPrint Auk/h DocOpen.press/c2
OldPrint Rockhopper/h DocOpen.press

OldPrint Auk/h WSFeaturesOpen.press/c2
OldPrint Rockhopper/h WSFeaturesOpen.press

OldPrint Auk/h SERVICES.press/c2
OldPrint Rockhopper/h SERVICES.press

OldPrint Auk/h StarFixed.press/c2
OldPrint Rockhopper/h StarFixed.press

OldPrint Auk/h NotStarNotServices.press/c2
OldPrint Rockhopper/h NotStarNotServices.press

OldPrint Auk/h Sherman.press

MailFrom PSReport.msg
"]

AppendString[ToolDriverExec.fileSW, "
A msg has been sent automatically to ProductSoftwareARs^.
"]
   InvokeMCR[AdobeQuery.msgSW,"Window Mgr","Deactivate"]
   InvokeMCR[AdobeReport.msgSW,"Window Mgr","Deactivate"]
   InvokeMCR[AdobeSort.msgSW,"Window Mgr","Deactivate"]
   InvokeMCR[AdobeQueryList.msgSW,"Window Mgr","Deactivate"]
   


--Bruce