*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